Merhaba Hocam.

Eklediğim uygulamada AnaMenu Formunda Firma ve Firma2 adında iki adet açılan kutu var bu açılan kutulardan seçtiğim müşteriye ait rapor alıyorum ve pdf olarak kayıt edebiliyorum. Benim istediğim müşteriyi seçip Rapor Al butonuna tıkladığımız zaman Satış ve Satış2 tablosundaki o muştriye ait e-posta adresi YazıcıSeçFirma ve YazıcıSeçFirma2 formudaki metin kutusunda görünsün. e-posta gönder adresine tıkladığımız zaman mail gönderilsin. Eğer oluyorsa e-postanın gidip gitmediğini uyarı olarak göstersin.  Bu konuda yardımlarınıza ihtiyacım var. Saygılarımla iyi çalışmalar.

Merhaba,

Firma isimli raporun Açıldığında olayındaki 

DoCmd.OpenForm "YaziciSecFirma", acNormal

Kodunu sil,

Raporun Ayrıntının Yazıldığında olayına aşağıdaki kodu ekle

DoCmd.OpenForm "YaziciSecFirma", acNormal

Forms!YaziciSecFirma![e-posta] = Dlookup ("[e-posta]", "Satis", "[FirmaAdi]='" & Me.FirmaAdi & "'")

YaziciSecFirma isimli formun Vba sayfasında en alta aşağıdaki kodu ekle

Function SendMail(BelgeAdi)

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") = "GondericiGmailAdresi"

Flds.Item(schema & "sendpassword") = "Gmailşifreniz"

Flds.Item(schema & "smtpusessl") = 1

Flds.Update

veri1 = txtEklenti

With iMsg

.To = Me.e_posta

.From = "Gönderen Adı Soyadı ( GondericiGmailAdresi )"

.Subject = "Deneme Konu"

.HTMLBody = "Deneme Metin"

.Sender = "xx"

.Organization = "GondericiGmailAdresi"

.ReplyTo = "GondericiGmailAdresi"



.AddAttachment BelgeAdi



Set .Configuration = iConf

 .Send



End With



Set iMsg = Nothing

Set iConf = Nothing

Set Flds = Nothing



MsgBox ("mail gönderildi")

Kill BelgeAdi

End Function

Üstteki fonksiyonda GondericiGmailAdresi ve Gmailşifreniz kısımlarını gmail adres bilgilerinizi yazınız. Deneme Konu ve Deneme Metin Kısımlarını da kendinize göre düzenleyiniz.

Formdaki Komut24'ün tıklandığında olayına da aşağıdaki kodu ekle

Dim BelgeAdi As String

BelgeAdi = CurrentProject.Path & "\" & Format(Now(), "dd.mm.yyyy") & "V.S.Fat.M.B.Rap.pdf"

DoCmd.OutputTo acOutputReport, "Firma", acFormatPDF, BelgeAdi, False

Call SendMail(BelgeAdi)

Bu işlemleri yaptıktan sonra gmail adresinizle oturum açıp, https://www.google.com/settings/security/lesssecureapps bağlantısını açıp "Daha az güvenli uygulamalar için erişim" ayarını "Aç" olarak değiştirmeniz gerekli.

Çok, çok teşekkürler Hocam ellerinize sağlık.

Hocam konuyu taşıyabilirsiniz. Saygılarımla iyi çalışmalar.

sayın m_demir,

EK'te;
bahsettiğiniz talebinize yönelik olarak,
alternatif olması amacı ile eklemeye imkan bulunamaması nedeni ile geç konunuza dahil edilmek sureti ile hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.

bilginize...iyi çalışmalar,saygılar.

Çok, çok teşekkürler Hocam ellerinize sağlık. Çok güzel olmuş.

Sayın atoz112

sizin ve bir çok kişinin Access 2003 çalışmalarında kullandığınız;

DoCmd.OutputTo acOutputReport, "xxxxxxx", acFormatPDF

kodu çalışmıyor ama hep bu kullanılıyor. yani en azında benim çalışmamda çalışmıyor. Rapor kaydet penceresinden sonra çıkan çıktı biçim seç penceresindeki seçeneklerin hangisi seçilirse seçilsin kayıttan sonra dosya açılamıyor. pdf açılmıyor yani. sorunun nedenini çözemedim. yardımcı olunursa sevinirim.

saygılar