AccessTr.neT
Otomatik Mail Gönderimi - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Otomatik Mail Gönderimi (/konu-otomatik-mail-gonderimi.html)

Sayfalar: 1 2 3


Otomatik Mail Gönderimi - temre - 28/03/2017

Merhaba,
Ekli tablolarıma girdiğim bilgilere göre mesajın oluşturulmasını sağlayıp yine tabloda isimlerini belirttiğim belgeleri masaüstünden ekleyerek tabloda belirtilen tarih ve saatte mesajın otomatik atılmasını sağlayabilir miyim?


Cvp: Otomatik Mail Gönderimi - murat dikme - 29/03/2017

Merhaba sayın @temre
Sadece "fikir vermesi amacı ile" forumda Sayın  @atoz112  ve Sayın @ozanakkaya  hocalarımın desteği ile yapmış olduğum ve gayet güzel çalışan uygulamamdan örnek çalışmayı ekliyorum.

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-otomatik-mail-atma.html?page=4&highlight=otomatik+mail konunun 19. mesajındaki Sayın @ozanakkaya nıneklemiş olduğu örneği inceleyebilirsiniz.
İyi çalışmalar.


Cvp: Otomatik Mail Gönderimi - temre - 29/03/2017

Teşekkür ederim Murat Bey,
Örneklerinizi inceleyip geri bilgilendirme yapacağım.


Cvp: Otomatik Mail Gönderimi - temre - 29/03/2017

Merhaba,
Örneği uyguladığım zaman aşağıdaki hata mesajını aldım..

[Resim: do.php?imgf=149077327800981.jpg]


Cvp: Otomatik Mail Gönderimi - murat dikme - 29/03/2017

Sayın @temre almış olduğunuz hata iletisinin sebebi Gmail ve SMTP sunucu ayarlarının farklı olması.

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]"




Cvp: Otomatik Mail Gönderimi - temre - 29/03/2017

Teşekkür ederim; uğraşıp bilgi vereceğim..