Skip to main content

AccessTr.neT


mail ile bilgi verme

mail ile bilgi verme

#1
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
.rar muratd.rar (Dosya Boyutu: 86,68 KB | İndirme Sayısı: 10)
Son Düzenleme: 13/12/2016, 11:11, Düzenleyen: murat dikme.
Cevapla
#2
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.
Cevapla
#3
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.
Cevapla
#4
Sayın @ozanakkaya hocam verdiğiniz kodları ekleyerek gerekli düzeltmeleri yaptım fakat kodlar çalışmadı.
Cevapla
#5
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.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#6
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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task