| |
|
Tarih : 08.09.2009 14:59:50
|
|
| Basit ama çok gerekli olan bu kod parçasını kullanabilirsiniz. Hemen hemen her sitenin ihtiyacı olan , iletişim formlarında yada farklı durumlarda sitenizden mail atmak istiyorsanız bu kodu kullanabilirsiniz. |
|
| |
'***********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