Bir diğer alternatif kullanım olarak;
Kod:
Public Function SendEmailDisplayOutlook( _
MsgTo As String, _
MsgSubject As String, _
MsgBody As String, _
ReportPath As String)
Dim olApp As New Outlook.Application
Dim olMailItem As Outlook.MailItem
Set olMailItem = olApp.CreateItem(0)
With olMailItem
.To = MsgTo
.Subject = MsgSubject
.Body = MsgBody
.Attachments.Add ReportPath
.Display
End With
Set olMailItem = Nothing
Set olApp = Nothing
End FunctionKod:
Dim dosyaadi As String
dosyaadi = "dosyayolu_ve_raporun_adi" & Format(Now, "YYYYMMDD_hms") & ".pdf"
DoCmd.OutputTo acOutputReport, "raporun_adi", acFormatPDF, dosyaadi
Call SendEmailDisplayOutlook("email_adresi_bilgisi", "mesaj_konusu", "mesaj_Body", dosyaadi)