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
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.Requery
kodunun hemen altına
SendMail
kodu 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.
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.
Sayın @
ozanakkaya hocam verdiğiniz kodları ekleyerek gerekli düzeltmeleri yaptım fakat kodlar çalışmadı.
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.
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.