Skip to main content

AccessTr.neT


Otomatik Mail Gönderimi

Otomatik Mail Gönderimi

#1
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?
.zip OTOMATIKMAILGONDERME.zip (Dosya Boyutu: 13,34 KB | İndirme Sayısı: 25)
temre, 18-02-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#2
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-oto...matik+mail konunun 19. mesajındaki Sayın @ozanakkaya nıneklemiş olduğu örneği inceleyebilirsiniz.
İyi çalışmalar.
.rar temre_muratdikme29032017.rar (Dosya Boyutu: 126,35 KB | İndirme Sayısı: 46)
Son Düzenleme: 29/03/2017, 07:51, Düzenleyen: murat dikme.
Cevapla
#3
Teşekkür ederim Murat Bey,
Örneklerinizi inceleyip geri bilgilendirme yapacağım.
temre, 18-02-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Photo #4
Merhaba,
Örneği uyguladığım zaman aşağıdaki hata mesajını aldım..

[Resim: do.php?imgf=149077327800981.jpg]
temre, 18-02-2010 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 29/03/2017, 10:42, Düzenleyen: temre.
Cevapla
#5
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]"

Cevapla
#6
Teşekkür ederim; uğraşıp bilgi vereceğim..
temre, 18-02-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task