Skip to main content

AccessTr.neT


Gizli Pencere Modunda Mail Göndermiyor

Gizli Pencere Modunda Mail Göndermiyor

#5
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
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
RE: Gizli Pencere Modunda Mail Göndermiyor - Yazar: Viruse1980 - 09/01/2021, 22:33
Task