Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [VBA] Gmail ile gönderilen mailin ekine pdf eki

[VBA] Gmail ile gönderilen mailin ekine pdf eki
mengene
Kıdemli Üye >1000

*
Kayıt Tarihi: 15.06.2010
Toplam 242 konu açtı.
Toplam 1.194 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003,
Beğeniler: 0 / 0
#1
03-11-2014, 23:49 (En son düzenleme: 03-11-2014, 23:52 mengene.)
Merhaba Arkadaşlar,

Aşağıda access üzerinden gmail hesabımla mail gönderebiliyorum. Sorum şu: bu kod çalıştığında "SiparisBilgileri" adlı raporum bu maille birlikte mailin ekine pdf olarak eklensin ve gitsin istiyorum. Bunun için kodda nasıl bir ekleme yapmak gerekir. Yardımcı olan olursa çok sevinirim.

Kullandığım access 2010 dur.

Saygılarımla,

Visual Basic
  1. Sub sendGmail()
  2. Set objCDOMail = CreateObject("CDO.Message")
  3. konu = "#### | Bilgilendirme " & Me.SiparisID & " nolu siparişiniz ve " & Me.UrunID.Column(1) & " kodlu ürününüz tamamlanmıştır"
  4. ana = "Merhaba değerli müşterimiz. Aşağıda bilgileri olan siparişiniz tarafımızca tamamlanmıştır." & vbNewLine
  5.  
  6.  
  7. ana = ana & vbNewLine & "Sipariş No:" & Me.SiparisID & vbNewLine
  8. ana = ana & vbNewLine & "Müşteri Sipariş No:" & Me.MusteriSiparisNo & vbNewLine
  9. ana = ana & vbNewLine & "Ürün Kodu:" & Me.UrunID.Column(1) & vbNewLine
  10. ana = ana & vbNewLine & "Ürün Açıklaması:" & Me.UrunAciklamasi & vbNewLine
  11. ana = ana & vbNewLine & "Ürün Rengi:" & Me.SiparisUrunRenkID.Column(1) & vbNewLine
  12. ana = ana & vbNewLine & "Termin Tarihi:" & Me.TerminTarihi & vbNewLine
  13. ana = ana & vbNewLine & "Sipariş Miktarı:" & Me.ToplamSiparisMiktari & vbNewLine
  14. ana = ana & vbNewLine & "Kapanış Tarihi:" & Me.KapandiTarih & vbNewLine
  15. ana = ana & vbNewLine & "Bu mail otomatik gönderilen bir maildir. Lütfen cevap yazmayınız. İletişim için info@###### adresi veya 0212 ####### nolu telefonla iletişime geçiniz." & vbNewLine
  16. ana = ana & vbNewLine & "Bizimle çalıştığınız için teşekkür ederiz." & vbNewLine
  17. ana = ana & vbNewLine & "Saygılarımızla" & vbNewLine
  18. ana = ana & "###### Planlama Birimi" & vbNewLine
  19.  
  20. objCDOMail.To = Me.FirmaEmaili
  21. objCDOMail.From = "####@gmail.com"
  22.  
  23. objCDOMail.Subject = konu
  24. 'objCDOMail.AddAttachment "SiparisBilgileri"
  25.  
  26.  
  27. objCDOMail.TextBody = ana
  28.  
  29.  
  30. With objCDOMail.Configuration.Fields
  31. .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
  32.  
  33. .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
  34. .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
  35. .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
  36. .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "####@gmail.com"
  37. .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "#####"
  38. .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
  39. .Update
  40. End With
  41. objCDOMail.Send
  42.  
  43. Set objCDOMail = Nothing
  44.  
  45. End Sub





  Bul
  Alıntı
Bu mesajı beğenenler:
onur_can
Kıdemli Üye >1000

*
Kayıt Tarihi: 01.01.2009
Toplam 150 konu açtı.
Toplam 5.511 yorum yaptı.
Toplam 261 puanı bulunmakta.
Beğeniler: 10 / 76
#2
04-11-2014, 00:36
Merhaba sn mengene şu komutu deneyebilirsiniz.
Visual Basic
  1. DoCmd.SendObject acSendReport, raporadı, acFormatPDF, , , , , "Rapor Ekleme"





  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 27 konu açtı.
Toplam 9.092 yorum yaptı.
Toplam 1.103 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 57 / 240
#3
04-11-2014, 01:55
Sn mengene;
Rapor belli bir kosul ile calisiyorsa ... sonrasina actirip, dasya olusturulduktan sonra kapatabilirsin.
Sub sendGmail()
....
... actirip
DoCmd.OutputTo acOutputReport, "RaporAdi", acfformatpdf, Application.CurrentProject.Path & "\Dosya.pdf", False
objCDOMail.AddAttachment Application.CurrentProject.Path & "\Dosya.pdf"
....
..... kapatabilirsin
Kill Application.CurrentProject.Path & "\Dosya.pdf"
End Sub
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
mengene
Kıdemli Üye >1000

*
Kayıt Tarihi: 15.06.2010
Toplam 242 konu açtı.
Toplam 1.194 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003,
Beğeniler: 0 / 0
#4
04-11-2014, 10:35
(04-11-2014, 01:55)dsezgin83260 demiş ki: Sn mengene;
Rapor belli bir kosul ile calisiyorsa ... sonrasina actirip, dasya olusturulduktan sonra kapatabilirsin.
Sub sendGmail()
....
... actirip
DoCmd.OutputTo acOutputReport, "RaporAdi", acfformatpdf, Application.CurrentProject.Path & "\Dosya.pdf", False
objCDOMail.AddAttachment Application.CurrentProject.Path & "\Dosya.pdf"
....
..... kapatabilirsin
Kill Application.CurrentProject.Path & "\Dosya.pdf"
End Sub

Teşekkür ederim verdiğiniz çözüm çok güzel çalışıyor.

Çok ufak bir şey sormak istiyorum. Maili dönder tuşuna tıkladığımda pdf mi yoksa başka formatlara mı çevireyim diye program diyalog penceresi açıyor. Direkt olarak pdf e çevirmesini ve diyalog penceresinin açılmamasını nasıl sağlarım acaba?

Saygılarıma



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 27 konu açtı.
Toplam 9.092 yorum yaptı.
Toplam 1.103 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 57 / 240
#5
04-11-2014, 16:11
sn mengene;
acfformatpdf bir f harfini fazla kalmis.
DoCmd.OutputTo acOutputReport, "Table1", acFormatPDF, Application.CurrentProject.Path & "\Dosya.pdf", False
False-True bolumu olusturulan pdf dosyasini gormek istiyormusun? cevabi.
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
mengene
Kıdemli Üye >1000

*
Kayıt Tarihi: 15.06.2010
Toplam 242 konu açtı.
Toplam 1.194 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003,
Beğeniler: 0 / 0
#6
04-11-2014, 20:38
Çok teşekkür ederim dsezgin83260 yardımlarınız için. Çözüme ulaştı sayenizde.



  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [VBA] Gmail Le Mail Gönderme Yeni Ayarları (çözüldü) hedefkaya 7 1.016 20-07-2022, 12:13
Son Mesaj: benuva
  [VBA] Hotmail Veya Yandex Ile Mail Gönderme (gmail Dışında Başka Hesapla) hedefkaya 0 551 28-06-2022, 14:49
Son Mesaj: hedefkaya
  Kod Ile Gmail Den Meal Gönderemiyorum. ates2014 6 589 20-06-2022, 21:00
Son Mesaj: ates2014
  [VBA] Gmail Kritere Göre Mail Gönderme benuva 12 2.029 13-02-2020, 23:22
Son Mesaj: onur_can
  [VBA] Access Ile Gmail Mail Gönderiminde Karakter Sorunu mengene 4 1.012 19-12-2019, 11:56
Son Mesaj: serdem48
  [VBA] acccessden gmail nasıl gönderirim ozkan.demirezen 1 668 08-10-2018, 18:12
Son Mesaj: onur_can
  EKTE GÖNDERİLEN MENÜYÜ KALDIRMAK membor 3 1.666 17-03-2016, 09:54
Son Mesaj: membor

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi