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.