Skip to main content

AccessTr.neT


Mail Gönderme Koduna Mail Adresini Değişkenden Atama Hatası

Mail Gönderme Koduna Mail Adresini Değişkenden Atama Hatası

Çözüldü #1
Merhaba;
Kaydetme ve outlookdan mail gönderme kodlarımı tek bir butona aşağıdaki kullandım. Ancak kodda mail adresini tablodan buldurduğum adrs değişkenini yazdığım kod kabul etmiyor. Maili gönderme yapacağım adres değişkenlik içeriyor. Ancak yazdığım kod mail adresini koda direkt yazmamı istiyor. Bu durumu nasıl aşabilirim aceba yardımcı olabilirmisiniz...

Private Sub btnMail1_Click()


 If IsNull(YuklemeYapDepo) Or IsNull(Acenta) Or IsNull(Ulke) Or IsNull(Sehir) Or IsNull(KonteynirTip) Then
     MsgBox "Lütfen zorunlu alanları boş bırakmayınız", vbExclamation + vbOKOnly, "İşlem Hatası"
         
   Else
     
     'Bilgileri Kaydet
     DoCmd.RunCommand acCmdSaveRecord
     'Mail Gönder
     Dim adrs As String
     adrs = Dlookup ("Email", "tblKullanici", "[kAdi]= '" & Me.txtKullaniciAdi & "'")
     
     DoCmd.OpenReport "KonteynirTalepFormu", acViewPreview, , "TalepNo=" & Me.TalepNo, acWindowNormal

     DoCmd.SendObject acSendReport, "KonteynirTalepFormu", "PDFFormat(*.pdf)", "adrs;", , , "Konteynır Talep Raporu", "Ekteki talebi işleme almanızı rica ederim ", False
     DoCmd.Close acReport, "KonteynirTalepFormu"
     
     MsgBox "Bilgiler başarıyla kaydedildi.", vbInformation + vbOKOnly, "İşlem Tamam"
     TumDenetimAktif
     
   End If
End Sub
Cevapla
#2
Merhaba, 
Tanımlamadaki Dlookup kodu düzgün çalıştığını varsayarsak,


DoCmd.SendObject acSendReport, "KonteynirTalepFormu", "PDFFormat(*.pdf)", "adrs;", , , "Konteynır Talep Raporu", "Ekteki talebi işleme almanızı rica ederim ", False


buradaki "adrs;" kısmının adrs şeklinde olması gerekli. 



DoCmd.SendObject acSendReport, "KonteynirTalepFormu", "PDFFormat(*.pdf)", adrs, , , "Konteynır Talep Raporu", "Ekteki talebi işleme almanızı rica ederim ", False
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da