Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

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

Mr.Midnight
Mr.Midnight
Access Cevaplanmış Soruları
1
1231

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

Çözüldü #1
Mr.Midnight
Aktif Üye
Mr.Midnight
Bul
Aktif Üye
Adı Soyadı: Gö.... Ur....
Yaşı: 44
Konum: Tekirdağ
Ofis Versiyonu: Ofis 2016 32 Bit
Son Oturumu: 18/11/2023,13:58
Yorumları: 44
Konuları: 12
Kayıt Tarihi: 30/12/2017
Teşekkür Puanı: 0
Mesleğiniz: Lojistik
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
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 22/07/2025,21:49
Yorumları: 13.543
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.148
Mesleğiniz: Memur
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
Task