Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
29/01/2018 22:05
Konu Sahibi
Mr.Midnight
Yorumlar
1
Okunma
525
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

Mr.Midnight

Üye
94424
Gö.... Ur....
 38
 5
 18
 30/12/2017
0
 Tekirdağ
 Lojistik
 Ofis 2016 32 Bit
 04/04/2019,11:44
Çözüldü 
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...

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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



ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 480
 12.053
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
Merhaba, 
Tanımlamadaki Dlookup kodu düzgün çalıştığını varsayarsak,


Visual Basic Code
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. 



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


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Access Hatası FulyaTekin 4 83 01/05/2019, 15:06
Son Yorum: FulyaTekin
Çözüldü Saat 17:00Da Otomatik Mail Atsın haziran4 6 181 26/04/2019, 15:52
Son Yorum: ozanakkaya
Çözüldü Locked Fonksiyonu Yok Hatası okumas 3 77 26/04/2019, 11:31
Son Yorum: haliliyas
Çözüldü İfade Başvuru Hatası U.ALTUN 7 355 18/04/2019, 12:27
Son Yorum: haliliyas
Çözüldü Mysql 5.7 Php 7.3 Guncellemesinden Sonra Smtp Mail Gönderemiyorum zetyu 6 257 10/04/2019, 00:19
Son Yorum: zetyu

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.