AccessTr.neT
Mail Gönderme Koduna Mail Adresini Değişkenden Atama Hatası - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Mail Gönderme Koduna Mail Adresini Değişkenden Atama Hatası (/konu-mail-gonderme-koduna-mail-adresini-degiskenden-atama-hatasi.html)

Mail Gönderme Koduna Mail Adresini Değişkenden Atama Hatası - Mr.Midnight - 29/01/2018

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


Cvp: Mail Gönderme Koduna Mail Adresini Değişkenden Atama Hatası - ozanakkaya - 30/01/2018

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