+- 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ığı: mail ile bilgi verme (/konu-mail-ile-bilgi-verme.html)
Sayfalar:
1
2
mail ile bilgi verme - murat dikme - 13/12/2016
Merhaba değerli hocalarım. Ekteki örnek uygulamada kaydet dediğimizde "Bilgi Ver" bölümünde seçilen kişiye mail gönderimini nasıl yapabiliriz? Şimdiden teşekkürler.
Not: gönderen kişi için gmail hesabı kullanılacak
Cvp: mail ile bilgi verme - ozanakkaya - 13/12/2016
Merhaba,
Formunuzun Vba sayfasına aşağıdaki fonksiyonu ekleyin,
Function SendMail()
Dim iMsg, iConf, Flds, schema
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = txtgmailadresi
Flds.Item(schema & "sendpassword") = txtgmailsifre
Flds.Item(schema & "smtpusessl") = 1
Flds.Update
veri1 = txtEklenti
With iMsg
.To = Metin7
.From = txtGonderen & "(" & txtgmailadresi & ")"
.Subject = txtKonu
.HTMLBody = txtmetin
.Sender = "xx"
.Organization = txtgmailadresi
.ReplyTo = txtgmailadresi
Set .Configuration = iConf
.Send
End With
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
End Function
Koddaki "txtgmailadresi" sizin gmail adresiniz, "txtgmailsifre" gmail şifreniz, Metin7 ise alıcının mail adresidir.
Sizin uygulamanızda, "Açılan Kutu30" (doğrusu acl_bilgiver olmalı) isimli açılan kutunun satır kaynağındaki sorguya 3. sütun olarak email alanını ekle, Koddaki metin7 yerine de
me.Açılan_Kutu30.Column(2)kodu ekle
Kaydet butonunun tıklandığında olayındaki
Me.TESLİM_ALAN.Requerykodunun hemen altına
SendMailkodu ekle.
Bu şekilde alıcının mail adresini açılan kutudan alabilirsin.
Ayrıca Gmail Hesabıyla E-mail Gönderme Uygulaması bağlantısındaki uygulamayı inceleyebilirsiniz.
Cvp: mail ile bilgi verme - murat dikme - 13/12/2016
Sayın @ozanakkaya hocam ilginize yardımlarınıza çok teşekkür ederim. kodları deneyip geri dönüş yapacağım. Tekrardan teşekkürler.
Cvp: mail ile bilgi verme - murat dikme - 13/12/2016
Sayın @ozanakkaya hocam verdiğiniz kodları ekleyerek gerekli düzeltmeleri yaptım fakat kodlar çalışmadı.
Cvp: mail ile bilgi verme - atoz112 - 13/12/2016
sayın murat dikme,
Alıntı:Sayın @ozanakkaya hocam verdiğiniz kodları ekleyerek gerekli düzeltmeleri yaptım fakat kodlar çalışmadı.
ifadenize yönelik olarak;
"çalışmadı" ile kast ettiğiniz tam olarak nedir?
daha ayrıntılı bilgi vermeniz yerinde olacaktır.
yeri gelmişken,hatırlatmakta ve buna dikkatinizi çekmekte fayda var.
konularınızda geri bildirimlerde bulunurken,eğer olumsuz bir netice alıyorsanız;bu olumsuzluğu ayrıntılı bilgilendirmeler ile,gerekirse destekleyici unsur mahiyetinde ekran görüntüleri de dahil ederek bildirimde bulunmanız olumlu olacaktır.böylece,hem harici mesaj yoğunluğuna nenden olacak şekilde açıklama gerektirecek kısa cümlelere karşı sorular sorulmasına zemin oluşturmamış olursunuz hem de çözüme daha erken bilgilendirmede bulunursunuz.
son olarak;
Acessten Mail Gönderme(SMTP+GMAİL)
eğer kodlar doğru yazılmışsa,yukarıda bağlantısı yazılı konunun 11.mesajında yazılı açıklamayı da inceleyiniz.bu ayarı da yapmanız gerekecektir.
bilginize...iyi çalışmalar,saygılar.
Cvp: mail ile bilgi verme - murat dikme - 13/12/2016
Sayın @atoz112 hocam Sayın @ozanakkaya hocamın verdiği kodlarını kendi uygulamamda denedim. Fakat mail gönderimi yapılamadı. şuan tekrar uygulamam üzerinde deniyorum kodları. Sonuç ile ilgili ilgi vereceğim.