A.S.C Filtre, Grafik ve Raporlama Eklentisi

[VBA] Gmail Kritere Göre Mail Gönderme
#13
Bu eklediğim kod çalışyor,Eğer sizde hata verirse SMTP ayarlarını gözden geçirmeniz gerekiyor.
Visual Basic
  1. Private Function MailGonder(xmailto As String, xmailfrom As String, xmailkonu As String, xmailatach As String, xbody As String)
  2. Dim objCDOMail As Object
  3.  
  4.   Set objCDOMail = CreateObject("CDO.Message")
  5.  
  6.   objCDOMail.To = xmailto
  7.   objCDOMail.From = xmailfrom
  8.   'objCDOMail.CC = "xxxx@hotmail.com" ' Eğer isterseniz CC olarak yani bilgi gönderilecek e-mail adresi
  9.   objCDOMail.Subject = xmailkonu
  10.  objCDOMail.AddAttachment xmailatach
  11.  
  12.   objCDOMail.TextBody = xbody
  13.  
  14.  
  15.   objCDOMail.BodyPart.Charset = "utf-8"
  16.   objCDOMail.TextBodyPart.Charset = "utf-8"
  17.  
  18.    objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
  19.  
  20.    objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
  21.    objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
  22.    objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
  23.    objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "kullanıcıadı"
  24.    objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
  25.    objCDOMail.Configuration.Fields.Item("urn:schemas:httpmail:importance") = 2
  26.    objCDOMail.Configuration.Fields.Item("urn:schemas:mailheader:X-Priority") = 1
  27.    objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
  28.  
  29.   objCDOMail.BodyPart.Charset = "utf-8"
  30.   objCDOMail.TextBodyPart.Charset = "utf-8"
  31.  
  32.  
  33.   objCDOMail.Configuration.Fields.Update
  34.   objCDOMail.Send
  35.  
  36.   Set objCDOMail = Nothing
  37. MsgBox "Mailiniz Gönderildi"
  38. End Function



Bu mail gönderme fonksiyonumuz, mailide bir buton yardımıyla click olayına aşağıdaki kodu yazınız. Dosya yolunu kendinize göre değiştirin.

Visual Basic
  1. Private Sub Komut23_Click()
  2. Dim sd As QueryDef
  3. Set sd = CurrentDb.QueryDefs("Sorgu1")
  4.  
  5.  
  6. DoCmd.OutputTo acOutputQuery, "sorgu1", acFormatPDF, "C:\MAILRAPORLARI\mail.pdf", True
  7.  
  8. If IsNull(Me.PLAKA) Then
  9. Exit Sub
  10. End If
  11.  
  12.  
  13. If (Not IsNull(Me.PLAKA)) And (Me.KRITER.Value = "ORTAK" Or _
  14. Me.KRITER.Value = "DIGER") Then
  15.  
  16. ' a ve b kişisine mail gönder
  17.  
  18. Call MailGonder("info_BEN@info.com", "info_A@info.com", "Araç girişi", "C:\MAILRAPORLARI\mail.pdf", "Yeni araç girişi olmuştur")
  19. Call MailGonder("info_BEN@info.com", "info_B@info.com", "Araç girişi", "C:\MAILRAPORLARI\mail.pdf", "Yeni araç girişi olmuştur")
  20.  
  21. End If
  22.  
  23.  
  24. If (Not IsNull(Me.PLAKA)) And (Me.KRITER.Value = "TEK") Then
  25.  
  26. ' a kişisine mail gönder
  27.  
  28. Call MailGonder("info_BEN@info.com", "info_A@info.com", "Araç girişi", "C:\MAILRAPORLARI\mail.pdf", "Yeni Araç girişi olmuştur")
  29.  
  30. End If
  31.  
  32.  
  33. End Sub





  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Whatsapp Ile Mesaj Gönderme ates2014 1 88 14-02-2020, 15:55
Son Mesaj: ates2014
  Ilgili Raporu Mail Gönderme Mtaner 4 80 10-02-2020, 13:26
Son Mesaj: onur_can
  Kritere Göre Form Ya Da Rapor Açma neco_can 1 41 23-01-2020, 11:00
Son Mesaj: dsezgin
  Satış Yaptığım Müşterilere Mail Gönderme Ali Kutup 7 8.451 21-12-2019, 23:30
Son Mesaj: adnan
  [VBA] Access Ile Gmail Mail Gönderiminde Karakter Sorunu mengene 4 167 19-12-2019, 11:56
Son Mesaj: serdem48
  [VBA] Bir Not Alanından Belirli Kritere Uyan Parçaları Alıp Başka Bir Tabloya Kaydetmek abkbek 6 330 18-12-2019, 23:29
Son Mesaj: halily
  [SORGU] Kritere Göre Verisi Değişen Arama Sihirbazı Kullanımı fsor26 3 180 10-12-2019, 01:48
Son Mesaj: dsezgin
  [FONKSiYON] Win10 da E-mail Gönderemiyorum ates2014 13 1.155 18-11-2019, 08:47
Son Mesaj: serdem48

Foruma Git:


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