Ustam kodları başka bir Access çalışmamda kullanıyorum sorun olmuyor. Ancak aynı kodları buraya attığımda outlooka düşmüyor bile. PDF olarak dışarı aktarmada sorun yok. Kullandığım kodlar;
Dim oApp As New Outlook.Application
Dim oEmail As Outlook.MailItem
Dim fileName As String, todayDate As String
todayDate = Format(Now, "dd.mm.yyyy")
fileName = Application.CurrentProject.Path & "\Gonderilen\" & todayDate & " Tarihli Sefer Raporu.pdf"
DoCmd.OutputTo acReport, "rpr_YB_006_talep", acFormatPDF, fileName, False
Set oEmail = oApp.CreateItem(olMailItem)
With oEmail
.Recipients.Add rfr_mail
'.Recipients.Add Dlookup ("mail_2", "tbl_0001_DB_Mail")
'.Recipients.Add Dlookup ("mail_3", "tbl_0001_DB_Mail")
.Subject = "Gün Sonu Araç Sefer Raporu"
.Body = "Bu Mesaj Mruva Yazılım Tarafından Otomatik Oluşturulmuştur. Cevap Yazmayınız"
.Attachments.Add fileName
.Send
End With
Gizli Pencere Modunda Mail Göndermiyor
Bu Konudaki Yorumlar |
Gizli Pencere Modunda Mail Göndermiyor - Yazar: Viruse1980 - 08/01/2021, 09:02
RE: Gizli Pencere Modunda Mail Göndermiyor - Yazar: ozanakkaya - 08/01/2021, 09:44
RE: Gizli Pencere Modunda Mail Göndermiyor - Yazar: Viruse1980 - 08/01/2021, 10:31
RE: Gizli Pencere Modunda Mail Göndermiyor - Yazar: ozanakkaya - 08/01/2021, 12:56
RE: Gizli Pencere Modunda Mail Göndermiyor - Yazar: Viruse1980 - 09/01/2021, 22:33
RE: Gizli Pencere Modunda Mail Göndermiyor - Yazar: Viruse1980 - 10/01/2021, 16:44
|
Konuyu Okuyanlar: 1 Ziyaretçi