A.S.C Filtre, Grafik ve Raporlama Eklentisi

[VBA] Gmail Kritere Göre Mail Gönderme
#1
Sn. Access Hocalarim,

Formdaki örnekleri karıştırarak ve yoğun uğraşlardan sonra Access'e gmail ayarlarını yapabildim. Atık Access'e mail attırabiliyorum. Sevincimi anlatamam.

Hocam sizden bir konuda destek rica edeceğim. Merak edenlere de faydalı olacağı düşüncesindeyim.

Ek'e bir çalışma ekledim. Her kayıt yapıldığında kritere göre ilgili kişilere mail göndermek istiyorum.

örnek mail ekranını ve çalışmayı ekledim. Dönüşlerinizi sabırsızlıkla bekliyor olacağım.

Mail gönderme kodları aşağıdaki gibidir.


Dim objCDOMail As Object

   Set objCDOMail = CreateObject("CDO.Message")

   objCDOMail.To = "xxxx"
   objCDOMail.From = "xxxxx"
   'objCDOMail.CC = "xxxx@hotmail.com" ' Eğer isterseniz CC olarak yani bilgi gönderilecek e-mail adresi
   objCDOMail.Subject = "mail konusu"
  'objCDOMail.AddAttachment "xxx" ' eğer isterseniz eklenecek dosya
   

   objCDOMail.TextBody = "Deneme Maili."

   objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
   objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
   objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
   
   objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
   objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxxxx"
   objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxx"
   objCDOMail.Configuration.Fields.Item("urn:schemas:httpmail:importance") = 2
   objCDOMail.Configuration.Fields.Item("urn:schemas:mailheader:X-Priority") = 1
   objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
   
   objCDOMail.BodyPart.Charset = "utf-8"
   objCDOMail.TextBodyPart.Charset = "utf-8"
   
   objCDOMail.Configuration.Fields.Update
   objCDOMail.Send
   
   Set objCDOMail = Nothing
'MsgBox "Mailiniz Gönderildi"


Eklenti Dosyaları
.zip   Gmail.zip (Boyut: 89,89 KB / İndirilme: 3)



  Alıntı
Bu mesajı beğenenler:
#2
Sn benuva;
Ek dosya olarak gonderilecek veriye ait rapor duzenlemeli, kisilere ait e-posta adres sutunu olmali.
objCDOMail.To olan bolume kisilerin e-posta adresslerini noktali virgul ile ayrilmasi ile coklu gonderim yapilabilir. Ek dosya ise veriye ait raporun gizli acilmasini docmd.outputto... gecici klasore cikarilmasi ile e-postaya eklenebilir.



  Alıntı
Bu mesajı beğenenler:
#3
Örnek üzerinden gösterebilme imkanı olsa daha iyi olurdu hocam



  Alıntı
Bu mesajı beğenenler:
#4
(13-02-2020, 08:08)benuva demiş ki: Örnek üzerinden gösterebilme imkanı olsa daha iyi olurdu hocam

Ornegini, soyledigim alanlari eklersen donguyu onerebilirim.



  Alıntı
Bu mesajı beğenenler:
#5
sn benuva örneğiniz üzerinde çalıştım. bir mail gönderme fonksiyonu oluşturdum bir de komut düğmesinin arkasına kod yazdım. Fonksiyon kullanımı kod içerisinde yazılı siz bu fonksiyon parametrelerini isteğinize göre doldurursunuz.


Eklenti Dosyaları
.rar   Order List_OnurCan.rar (Boyut: 38,02 KB / İndirilme: 2)



  Alıntı
Bu mesajı beğenenler:
#6
Hocam,kodu aşağıdaki şekilde kendime uyarladım (mailler uydurmadır). 

Kod aşağıdaki şekilde hata vermektedir. Kontrol için çalışma da eklenmiştir. Değerli yardımlarınızı rica ederim.

hata mesajı
Compile error: Type mismatch

Visual Basic
  1. Private Sub Komut13_Click()
  2.  
  3. If IsNull(Me.PLAKA) Then
  4. Exit Sub
  5. End If
  6.  
  7.  
  8. If (Not IsNull(Me.PLAKA)) And (Me.KRITER.Value = "ORTAK" Or _
  9. Me.KRITER.Value = "DIGER") Then
  10.  
  11. ' a ve b kişisine mail gönder
  12.  
  13. Call MailGonder("info@info.com", ("info2@info.com" & "info3@info.com"), "Araç girişi", "sorgu1", "Yeni araç girişi olmuştur")
  14.  
  15. End If
  16.  
  17.  
  18. If (Not IsNull(Me.PLAKA)) And (Me.KRITER.Value = "TEK") Then
  19.  
  20. ' a kişisine mail gönder
  21.  
  22. Call MailGonder("info@info.com", "info4@info.com", "Araç girişi", "sorgu1", "Yeni Araç girişi olmuştur")
  23.  
  24. End If
  25.  
  26.  
  27. End Sub




Eklenti Dosyaları
.zip   Order List_OnurCan.zip (Boyut: 74,95 KB / İndirilme: 2)



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Whatsapp Ile Mesaj Gönderme ates2014 1 73 14-02-2020, 15:55
Son Mesaj: ates2014
  Ilgili Raporu Mail Gönderme Mtaner 4 77 10-02-2020, 13:26
Son Mesaj: onur_can
  Kritere Göre Form Ya Da Rapor Açma neco_can 1 36 23-01-2020, 11:00
Son Mesaj: dsezgin
  Satış Yaptığım Müşterilere Mail Gönderme Ali Kutup 7 8.440 21-12-2019, 23:30
Son Mesaj: adnan
  [VBA] Access Ile Gmail Mail Gönderiminde Karakter Sorunu mengene 4 163 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 314 18-12-2019, 23:29
Son Mesaj: halily
  [SORGU] Kritere Göre Verisi Değişen Arama Sihirbazı Kullanımı fsor26 3 175 10-12-2019, 01:48
Son Mesaj: dsezgin
  [FONKSiYON] Win10 da E-mail Gönderemiyorum ates2014 13 1.150 18-11-2019, 08:47
Son Mesaj: serdem48

Foruma Git:


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