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: 19)



  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: 15)



  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: 15)



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] Liste Kutusundaki Veriyi Mail Ile Göndermek husem 4 186 26-05-2020, 02:08
Son Mesaj: dsezgin
  Kullanıcı şifre Hatırlama Ve Değiştirme Işlemi Mail Atarak cozum@msn.com 1 150 25-04-2020, 13:26
Son Mesaj: dsezgin
  [VBA] Combobox Ya Da Listbox'dan Label'a Veri Gönderme benuva 6 241 21-04-2020, 16:40
Son Mesaj: benuva
  Liste Kutusundan Excel'e Kayıt Seçerek Gönderme VARLIK66 6 259 10-03-2020, 13:49
Son Mesaj: VARLIK66
  Whatsapp Ile Mesaj Gönderme ates2014 1 212 14-02-2020, 15:55
Son Mesaj: ates2014
  Ilgili Raporu Mail Gönderme Mtaner 4 238 10-02-2020, 13:26
Son Mesaj: onur_can
  Kritere Göre Form Ya Da Rapor Açma neco_can 1 183 23-01-2020, 11:00
Son Mesaj: dsezgin
  Satış Yaptığım Müşterilere Mail Gönderme Ali Kutup 7 8.793 21-12-2019, 23:30
Son Mesaj: adnan

Foruma Git:


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