SMTP mail gönderimi için kodun ilgili alanlarını aşağıdaki kodla değiştirerek deneyiniz.
Ayrıca Sunucu ayarlarınızı domain hizmeti aldığınız kurumdan yada kişiden öğrenmeniz ve kodu bu ayarlara göre düzenlemeniz gerekmektedir.
İyi Çalışmalar.
Kod:
schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "mail.nova-tr.com"
Flds.Item(schema & "smtpserverport") = 587
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = "[email protected]"
Flds.Item(schema & "sendpassword") = "şifreniz"
Flds.Item(schema & "smtpusessl") = False
Flds.Update
veri1 = txtEklenti
With iMsg
.To = "[email protected]" & " ; " & acilan10.Column(0) & " ; " & acilan11.Column(0) & " ; " & acilan12.Column(0) & " ; " & acilan13.Column(0) & " ; " & acilan14.Column(0) & " ; " & acilan15.Column(0) & " ; " & acilan16.Column(0) & " ; " & acilan17.Column(0)
.From = "Gönderen Adı Soyadı ( [email protected] )"
.Subject = "Deneme Konu"
.HTMLBody = "Deneme Metin"
.Sender = "xx"
.Organization = "[email protected]"
.ReplyTo = "[email protected]"