<% strHost = "smtp.yandex.ru" ' Mail Sunucumuzun adı Set Upload = Server.CreateObject("Persits.Upload") Upload.IgnoreNoPost = True Upload.SaveVirtual "temp" ' Ekli dosyanın geçici kayıt edileceği klasör, yazma izni olduğuna emin olun :) If Upload.Form("Send") <> "" Then ' Burada şimdi dosya seçimi yapıyoruz, zararlı dosyaları sunucuya göndermesinler... If Upload.Files("cv").Ext = ".jpg" or Upload.Files("cv").Ext = ".doc" or Upload.Files("cv").Ext = ".docx" or Upload.Files("cv").Ext = ".pdf" then ' Artık Mailimizi gönderebiliriz. Set Mail = Server.CreateObject("Persits.MailSender") Mail.Port = 465 Mail.SSL = True Mail.From = "info@elektrogrup.com.tr" ' Mail sunucumuza ait bir e-mail adresi Mail.FromName = "Elektro Grup" Mail.Username = "info@elektrogrup.com.tr" Mail.Password = "htcrzhsbqpickmtt" Mail.Host = strHost Mail.Subject = Upload.Form("Konu") Mail.Body = Upload.Form("Adiniz") Mail.AddAddress Upload.Form("Kime") If Not Upload.Files("cv") Is Nothing Then Mail.AddAttachment Upload.Files("cv").Path End If Mail.Send Response.Write "Özgeçmişiniz bize ulaştı.
" Upload.Files("cv").delete ' Upload edilen dosyanın sunucumuzda kalması peki iyi bir şey değil o sebeple siliyoruz. else Response.Write "
Göndermek istediğiniz dosya uzantısı desteklenmiyor. Kabul edilen dosya uzantıları .doc .docx .pdf .jpg!" end if End If %>

Adınız Soyadınız:
Göndermek istediğiniz Özgeçmişinizi seçiniz: Kabul edilen dosya uzantıları: .DOC .DOCX .PDF .JPG