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?
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.
Teşekkür ederim Murat Bey,
Örneklerinizi inceleyip geri bilgilendirme yapacağım.
Merhaba,
Örneği uyguladığım zaman aşağıdaki hata mesajını aldım..
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") = "mailadrsiniz@nova-tr.com"
Flds.Item(schema & "sendpassword") = "şifreniz"
Flds.Item(schema & "smtpusessl") = False
Flds.Update
veri1 = txtEklenti
With iMsg
.To = "mailadrsiniz@nova-tr.com" & " ; " & 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ı ( mailadrsiniz@nova-tr.com )"
.Subject = "Deneme Konu"
.HTMLBody = "Deneme Metin"
.Sender = "xx"
.Organization = "mailadrsiniz@nova-tr.com"
.ReplyTo = "mailadrsiniz@nova-tr.com"
Teşekkür ederim; uğraşıp bilgi vereceğim..