OTOMATIKMAILGONDERME.zip
(Dosya Boyutu: 13,34 KB | İndirme Sayısı: 25)
Alıntı:belirtilen tarih ve saatte mesajın otomatik atılmasıifadeniz için ise zaman dolduğunda olay yordamı kullanılabilir diye düşünüyorum. Bu konu ile alakalı olarak https://accesstr.net/konu-hatirlatma-oto...matik+mail konunun 19. mesajındaki Sayın @ozanakkaya nıneklemiş olduğu örneği inceleyebilirsiniz.
temre_muratdikme29032017.rar
(Dosya Boyutu: 126,35 KB | İndirme Sayısı: 46)
#4
![[Resim: do.php?imgf=149077327800981.jpg]](https://accesstr.net/resim/do.php?imgf=149077327800981.jpg)
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]"