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.