'***********bu ayarları değiştir*********** FROMSTR="atanmail@e-veri.com" '******* kim atıyor maili TOSTR="kime@e-veri.com" '******* kime atıyor maili CCSTR="bilgi@e-veri.com" '******* bilgi olarak kime atıyor maili SUBJECTSTR="başlık" '******* mail başlığı BODYSTR="mail içeriği" SMTPSERVER="mail.e-veri.com" '******* smtp sunucu adresi SMTPPORT=25 '******* smtp sunucu portu SMTPUSERNAME="atanmail@e-veri.com" '******* smtp kullanıcı SMTPUSERPASS="sifre" '******* smtp kullanıcı şifresi
'************bunları dokunma****************** Set MKonf = CreateObject("CDO.Configuration") Sch = "http://schemas.microsoft.com/cdo/configuration/" Set Alnlr = MKonf.Fields With Alnlr .Item(Sch & "sendusing") = 2 .Item(Sch & "smtpserver") = SMTPSERVER .Item(Sch & "smtpserverport") = SMTPPORT .Item(Sch & "smtpauthenticate") = 1 .Item(Sch & "sendusername") = SMTPUSERNAME .Item(Sch & "sendpassword") = SMTPUSERPASS .Update End With
Set CDOM = CreateObject("CDO.Message") CDOM.Configuration = MKonf CDOM.From = FROMSTR CDOM.To = TOSTR CDOM.Cc = CCSTR CDOM.Subject = SUBJECTSTR CDOM.HtmlBody = BODYSTR CDOM.Send Set CDOM = Nothing Set Alnlr = Nothing Set MKonf = Nothing
|
Sık kullanılanlara ekle
Bu dökümanı yazdır
|