AccessTr.neT

Değerli Accesstr Dostları;

Hazırladığım talep programında iki farklı forma mail butonu ekledim. Bu sayede yetkili kullanıcı firmalara analiz veya teklif için direk mail atabilecekler.

Programı Shift ile açıp çalıştırdığımda maili gönderiyor, sorun yok. Ancak Access pencerelerini gizleyip göndermeye çalıştığımda Vba maili göndermiyor.

Daha önce hazırladığım başka bir uygulamada hiç sorun olmamıştı. Tüm ayarları ve references' leri kontrol etmeme rağmen sorunu bir türlü çözemedim.

Yardımlarınız için şimdiden teşekkürler.

Nto: Mailler frm_YB_003_cariliste formunda Cari Ünvanına çift tıklayınca çalışıyor. Birde frm_YB_004_karsilastirma formunda "Fiyat İste" butonlarında çalışıyor.

Merhaba, doğru yere mi baktım bilmiyorum ama, kod içerisinde "cbx_firma01" adında denetim olmasına rağmen frm_YB_003_cariliste isimli formda bu isimde denetim yok.

Selam

cbx_firma01 dediğim karşılaştırma tablosunda var hocam. O formda 4 adet combobox var. açılır listenin Column değerini verdim. Diğer cari liste formunda alt formdaki değeri aldım

Me.cbx_firma03.Column(1) kodunu "frm_YB_004_karsilastirma" isimli formda kullanabilirsiniz, ancak bu denetim "frm_YB_003_cariliste" formunda yok. Olmadığı için kod çalışmaz. Pencere gizlemeseniz de çalışmaz. Benim gözden kaçırdığım bir şey mi var diye bakıyorum, yok.

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

Sorun Çözüldü

Kodlarda hata yokmuş, sorun rapor sayfasının alt formunda ki hayalı Vba kodundan kaynaklanıyormuş, Düzeltildi. Teşekkür ederim