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

29/01/2018, 22:05

Mr.Midnight

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
30/01/2018, 10:43

ozanakkaya

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