mail ile bilgi verme

1 2
13/12/2016, 11:10

murat dikme

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
13/12/2016, 12:30

ozanakkaya

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.
13/12/2016, 12:37

murat dikme

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.
13/12/2016, 13:32

murat dikme

Sayın @ozanakkaya hocam verdiğiniz kodları ekleyerek gerekli düzeltmeleri yaptım fakat kodlar çalışmadı.
13/12/2016, 14:27

atoz112

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.
13/12/2016, 14:36

murat dikme

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.
1 2