[VBA] Mail Uygulaması (forumu Inceledim Bulamadım)

dsezgin · 15-11-2020, 16:07

(13-11-2020, 16:37)adnnfrm demiş ki: Hocam ilginize çok teşekkür ederim. Ama ben konu başında gmail diye belirtmiştim (

Mesaj 2'de gmail ile ilgili konuya referans vermiştim.

GMail ile Dosya Gonderme

adnnfrm · 17-11-2020, 03:41

(15-11-2020, 16:07)dsezgin demiş ki:
(13-11-2020, 16:37)adnnfrm demiş ki: Hocam ilginize çok teşekkür ederim. Ama ben konu başında gmail diye belirtmiştim (

Mesaj 2'de gmail ile ilgili konuya referans vermiştim.

GMail ile Dosya Gonderme

Hocam Merhaba,
Ben ilgili konuyu inceledim ve kendi projem için yavaş yavaş uyarlamaları yapmaya başladım. Fakat birkaç sorum olacak;

Öncelikle kodu aşağıdaki gibi kullandım;

Sub sendGmail()
Set objCDOMail = CreateObject("CDO.Message")
konu = "deneme"
ana = "Merhaba değerli müşterimiz. Aşağıda bilgileri olan siparişiniz tarafımızca tamamlanmıştır." & vbNewLine

objCDOMail.To = "kendimailim@gmail.com"
objCDOMail.From = "kendimailim@gmail.com"

objCDOMail.Subject = konu
objCDOMail.TextBody = ana

With objCDOMail.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "kendimailim@gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "****"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
.Update
End With
End Sub

1)
End with ten sonraki aşağıdaki kod ne işe yarıyor anlamadım

objCDOMail.Send
Set objCDOMail = Nothing

2)
Raporu sanırım diğer kullanıcı önce pc sine kaydettriyor. Sonrasında maile ek yapıyor. Bende pdf e kayıt kısmınını sormasına gerek yok hocam. O yüzden pdf kısmındaki kodu ilave edemedim.

3)
"objCDOMail.To"
Kısmı varya hocam to kısmını ilgili müşteri için tanımlanan tüm e mail adreslerine göndermesini istiyorum.

4)
Gmail bu arada "Oturum açma girişimi engellendi" diye bir hata verdi. Maili göndermedi.

Ben bir örnek database yüklesem siz gerekli uyarlamaları yapmanız mümkün müdür ben çözemedim işin açıkcası. Hem herkes için bir bir uygulama örneği olmuş olur.

Ben ekte bir örnek vt hazırladım hocam. Siparişler formunda "e-posta gönder" butonuna basıldığında ilgili müşteri için tanımlanmış ve e-posta tercihi tiklenmiş (sorgular kısmında "Müşteri_İletişim(Tercih)" e-postalara raporu pdf olarak göndermek istiyorum. Ama bir türlü ilgili kodların uyarlamasını yapamadım. Nah

(

Saygılarımla

dsezgin · 18-11-2020, 02:01

Visual Basic
Private Sub Komut2_Click()
Dim Kyt As DAO.Recordset, Kimlere As String
Dim Posta
Set Posta = CreateObject("CDO.Message")
konu = "deneme"
ana = "Merhaba degerli müsterimiz. Asagida bilgileri olan siparisiniz tarafimizca tamamlanmistir." & vbNewLine
 Set Kyt = CurrentDb.OpenRecordset("SELECT [E-Posta] FROM Müşteri_İletişim WHERE (((Müşteri_ID)=" & Me.Açılan_Kutu0 & "))")
 If Kyt.RecordCount = 0 Then Exit Sub
 Do Until Kyt.EOF
    Kimlere = Kimlere & Kyt![E-Posta] & "; "
    Kyt.MoveNext
 Loop
 Kyt.Close: Set Kyt = Nothing
Posta.To = "kendimailim@gmail.com"
Posta.From = Kimlere   '*** Gonderilecek kisilerin listesi **** Kyt kayit seti ile olusturuldu ******
 Posta.Subject = konu
Posta.TextBody = ana
 DoCmd.OpenReport "Satışlar", acViewNormal, , , acHidden
 DoCmd.OutputTo acOutputReport, "Satışlar", acFormatPDF, Application.CurrentProject.Path & "\Dosya.pdf", False
Posta.AddAttachment Application.CurrentProject.Path & "\Dosya.pdf"
DoCmd.Close acReport, "Satışlar"
 With Posta.Configuration.Fields
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "kendimailim@gmail.com"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "****"
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
        .Update
End With
Posta.Send
 Set Posta = Nothing
Kill Application.CurrentProject.Path & "\Dosya.pdf     '******* rapor Gecici olarak uretildikten sonra silme **********"
End Sub

denermısınız, kod ile posta gonderebılmek ıcın gmail guvenlik ayarlarını en aza indirmelisiniz!

adnnfrm · 18-11-2020, 03:37

(18-11-2020, 02:01)dsezgin demiş ki:

Visual Basic
Private Sub Komut2_Click()
Dim Kyt As DAO.Recordset, Kimlere As String
Dim Posta
Set Posta = CreateObject("CDO.Message")
konu = "deneme"
ana = "Merhaba degerli müsterimiz. Asagida bilgileri olan siparisiniz tarafimizca tamamlanmistir." & vbNewLine
 Set Kyt = CurrentDb.OpenRecordset("SELECT [E-Posta] FROM Müşteri_İletişim WHERE (((Müşteri_ID)=" & Me.Açılan_Kutu0 & "))")
 If Kyt.RecordCount = 0 Then Exit Sub
 Do Until Kyt.EOF
    Kimlere = Kimlere & Kyt![E-Posta] & "; "
    Kyt.MoveNext
 Loop
 Kyt.Close: Set Kyt = Nothing
Posta.To = "kendimailim@gmail.com"
Posta.From = Kimlere   '*** Gonderilecek kisilerin listesi **** Kyt kayit seti ile olusturuldu ******
 Posta.Subject = konu
Posta.TextBody = ana
 DoCmd.OpenReport "Satışlar", acViewNormal, , , acHidden
 DoCmd.OutputTo acOutputReport, "Satışlar", acFormatPDF, Application.CurrentProject.Path & "\Dosya.pdf", False
Posta.AddAttachment Application.CurrentProject.Path & "\Dosya.pdf"
DoCmd.Close acReport, "Satışlar"
 With Posta.Configuration.Fields
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "kendimailim@gmail.com"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "****"
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
        .Update
End With
Posta.Send
 Set Posta = Nothing
Kill Application.CurrentProject.Path & "\Dosya.pdf     '******* rapor Gecici olarak uretildikten sonra silme **********"
End Sub

denermısınız, kod ile posta gonderebılmek ıcın gmail guvenlik ayarlarını en aza indirmelisiniz!

Hocam;

Denedim fakat şöyle hatalar aldım.
Öncelikle kod kaydetme penceresi açıyor ama aynı zamanda programın bulunduğu klasöre "dosya" diye bir pdf atıyor. Eğer ben başka bir isimde kaydetme işlemi yaparsam örneğin "rapor.pdf" diye bunu da kaydediyor. Ama bu sefer aşağıdaki satırda debug veriyor;

Posta.Send

ve hata kodu olarak:
Run-Time '-2147220977 (8004020f)':
Sunucu, bir veya daha çok alıcı adresini reddetti. Sunucunun yanıtı: 5.............
diye gidiyor.

Eğer "dosya.pdf" diye kaydedersem bu seferde aşağıdaki satırda debug veriyor

DoCmd.OutputTo acOutputReport, "Satışlar", acFormatPDF, Application.CurrentProject.Path & "\Dosya.pdf", False

Saygılarımla

adnnfrm · **Kayıt Tarihi:** 27.11.2019

(18-11-2020, 03:37)adnnfrm demiş ki:

(18-11-2020, 02:01)dsezgin demiş ki:

Visual Basic
Private Sub Komut2_Click()
Dim Kyt As DAO.Recordset, Kimlere As String
Dim Posta
Set Posta = CreateObject("CDO.Message")
konu = "deneme"
ana = "Merhaba degerli müsterimiz. Asagida bilgileri olan siparisiniz tarafimizca tamamlanmistir." & vbNewLine
 Set Kyt = CurrentDb.OpenRecordset("SELECT [E-Posta] FROM Müşteri_İletişim WHERE (((Müşteri_ID)=" & Me.Açılan_Kutu0 & "))")
 If Kyt.RecordCount = 0 Then Exit Sub
 Do Until Kyt.EOF
    Kimlere = Kimlere & Kyt![E-Posta] & "; "
    Kyt.MoveNext
 Loop
 Kyt.Close: Set Kyt = Nothing
Posta.To = "kendimailim@gmail.com"
Posta.From = Kimlere   '*** Gonderilecek kisilerin listesi **** Kyt kayit seti ile olusturuldu ******
 Posta.Subject = konu
Posta.TextBody = ana
 DoCmd.OpenReport "Satışlar", acViewNormal, , , acHidden
 DoCmd.OutputTo acOutputReport, "Satışlar", acFormatPDF, Application.CurrentProject.Path & "\Dosya.pdf", False
Posta.AddAttachment Application.CurrentProject.Path & "\Dosya.pdf"
DoCmd.Close acReport, "Satışlar"
 With Posta.Configuration.Fields
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "kendimailim@gmail.com"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "****"
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
        .Update
End With
Posta.Send
 Set Posta = Nothing
Kill Application.CurrentProject.Path & "\Dosya.pdf     '******* rapor Gecici olarak uretildikten sonra silme **********"
End Sub

denermısınız, kod ile posta gonderebılmek ıcın gmail guvenlik ayarlarını en aza indirmelisiniz!

Hocam;

Denedim fakat şöyle hatalar aldım.
Öncelikle kod kaydetme penceresi açıyor ama aynı zamanda programın bulunduğu klasöre "dosya" diye bir pdf atıyor. Eğer ben başka bir isimde kaydetme işlemi yaparsam örneğin "rapor.pdf" diye bunu da kaydediyor. Ama bu sefer aşağıdaki satırda debug veriyor;

Posta.Send

ve hata kodu olarak:
Run-Time '-2147220977 (8004020f)':
Sunucu, bir veya daha çok alıcı adresini reddetti. Sunucunun yanıtı: 5.............
diye gidiyor.

Eğer "dosya.pdf" diye kaydedersem bu seferde aşağıdaki satırda debug veriyor

DoCmd.OutputTo acOutputReport, "Satışlar", acFormatPDF, Application.CurrentProject.Path & "\Dosya.pdf", False

Bu arada pdf kaydetme işlemini sormasına gerek yok hocam. İlgili raporu oluşturup gönderebilir.

Saygılarımla

adnnfrm · **Kayıt Tarihi:** 27.11.2019

(18-11-2020, 03:39)adnnfrm demiş ki:
(18-11-2020, 03:37)adnnfrm demiş ki:
(18-11-2020, 02:01)dsezgin demiş ki:
Visual Basic
Private Sub Komut2_Click() Dim Kyt As DAO.Recordset, Kimlere As String Dim Posta Set Posta = CreateObject("CDO.Message") konu = "deneme" ana = "Merhaba degerli müsterimiz. Asagida bilgileri olan siparisiniz tarafimizca tamamlanmistir." & vbNewLine Set Kyt = CurrentDb.OpenRecordset("SELECT [E-Posta] FROM Müşteri_İletişim WHERE (((Müşteri_ID)=" & Me.Açılan_Kutu0 & "))") If Kyt.RecordCount = 0 Then Exit Sub Do Until Kyt.EOF Kimlere = Kimlere & Kyt![E-Posta] & "; " Kyt.MoveNext Loop Kyt.Close: Set Kyt = Nothing Posta.To = "kendimailim@gmail.com" Posta.From = Kimlere '*** Gonderilecek kisilerin listesi **** Kyt kayit seti ile olusturuldu ****** Posta.Subject = konu Posta.TextBody = ana DoCmd.OpenReport "Satışlar", acViewNormal, , , acHidden DoCmd.OutputTo acOutputReport, "Satışlar", acFormatPDF, Application.CurrentProject.Path & "\Dosya.pdf", False Posta.AddAttachment Application.CurrentProject.Path & "\Dosya.pdf" DoCmd.Close acReport, "Satışlar" With Posta.Configuration.Fields .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "kendimailim@gmail.com" .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "****" .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 .Update End With Posta.Send Set Posta = Nothing Kill Application.CurrentProject.Path & "\Dosya.pdf '******* rapor Gecici olarak uretildikten sonra silme **********" End Sub
denermısınız, kod ile posta gonderebılmek ıcın gmail guvenlik ayarlarını en aza indirmelisiniz!
Hocam;

Denedim fakat şöyle hatalar aldım.
Öncelikle kod kaydetme penceresi açıyor ama aynı zamanda programın bulunduğu klasöre "dosya" diye bir pdf atıyor. Eğer ben başka bir isimde kaydetme işlemi yaparsam örneğin "rapor.pdf" diye bunu da kaydediyor. Ama bu sefer aşağıdaki satırda debug veriyor;

Posta.Send

ve hata kodu olarak:
Run-Time '-2147220977 (8004020f)':
Sunucu, bir veya daha çok alıcı adresini reddetti. Sunucunun yanıtı: 5.............
diye gidiyor.

Eğer "dosya.pdf" diye kaydedersem bu seferde aşağıdaki satırda debug veriyor

DoCmd.OutputTo acOutputReport, "Satışlar", acFormatPDF, Application.CurrentProject.Path & "\Dosya.pdf", False

Bu arada pdf kaydetme işlemini sormasına gerek yok hocam. İlgili raporu oluşturup gönderebilir.

Saygılarımla

Hocam sanırım problemi çözdüm;

Ekli olarak mail gönderebiliyorum. Şimdi metin ayarları vs. var. Onlarıda "DFirst" fonksiyonu ile çözeceğim. İnşallah tamamlamış olurum.

yine forumdan aldım kodları üstatlar sağolsun aşağıdaki kodlama ile çözdüm var mıdır sizce sıkıntılı bir durum hocam;

Function yolla()
DoCmd.OutputTo acOutputReport, "Rapor1", acFormatPDF, "C:\xyz\Rapor.pdf", False

Dim objCDOMail As Object
Set objCDOMail = CreateObject("CDO.Message")

objCDOMail.To = DFirst("mail_List", "srg_Mail_B") ' Sorgudan Alıyorum. Sorguda alt alta tanımlı mail adreslerini aralarında ";" koyarak tek satır oluşturuyor.
objCDOMail.From = "xxxxxxxxx" ' bu alanı da DFirst ile ayar tablosuna bağlayacağım.
objCDOMail.CC = "xxxxxxxxxx" ' bu alanı da DFirst ile ayar tablosuna bağlayacağım.
objCDOMail.Subject = "konu" ' bu alanı da farklı sorgular kullanarak yine Dfirst ile çekeceğim.
objCDOMail.Addattachment "C:\xyz\Rapor.pdf" ' tanımlı klasörden otomatik alacak raporu. Rapor fix tanımla oluşacak çünkü.

objCDOMail.TextBody = "metin" ' bu alanı da farklı sorgular kullanarak yine Dfirst ile çekeceğim.

objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True ' bu alanı da DFirst ile ayar tablosuna bağlayacağım.
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 ' bu alanı da DFirst ile ayar tablosuna bağlayacağım.
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' bu alanı da DFirst ile ayar tablosuna bağlayacağım.

objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" ' bu alanı da DFirst ile ayar tablosuna bağlayacağım.

objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = DFirst("smtp_username", "tbl_tanimlamalar")
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = DFirst("smtp_password", "tbl_tanimlamalar")
objCDOMail.Configuration.Fields.Item("urn:schemas:httpmail:importance") = 2 ' bu alanı da DFirst ile ayar tablosuna bağlayacağım.
objCDOMail.Configuration.Fields.Item("urn:schemas:mailheader:X-Priority") = 1 ' bu alanı da DFirst ile ayar tablosuna bağlayacağım.
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 ' bu alanı da DFirst ile ayar tablosuna bağlayacağım.

objCDOMail.Configuration.Fields.Update
objCDOMail.Send

Set objCDOMail = Nothing
MsgBox "Mailiniz Gönderildi"
End Function

Saygılarımla

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	[VBA] Mail Ile Tablo Ya Da Sorgu Gönderme	benuva	5	244	17-06-2023, 12:18 Son Mesaj: benuva
	[FORM] Liste Kutusundaki Veriyi Mail Ile Göndermek	husem	8	914	27-01-2023, 00:52 Son Mesaj: BeyTor
	[FORM] Access Aktif Olan Formu, Mail Olarak Göndermek.	Fenerli88	5	379	25-01-2023, 02:14 Son Mesaj: BeyTor
	[FORM] Mail gönderimi.	orderyazbim	14	6.302	19-11-2022, 20:10 Son Mesaj: firatmalkoc
	[VBA] Gmail Le Mail Gönderme Yeni Ayarları (çözüldü)	hedefkaya	7	535	20-07-2022, 12:13 Son Mesaj: benuva
	[FORM] menu uygulaması	harun57	3	1.695	02-07-2022, 12:05 Son Mesaj: golf2000
	[VBA] Hotmail Veya Yandex Ile Mail Gönderme (gmail Dışında Başka Hesapla)	hedefkaya	0	223	28-06-2022, 14:49 Son Mesaj: hedefkaya
	[VBA] Ayrı Ayrı Outlook'la Mail Gönderebilmek	benuva	9	566	21-06-2022, 01:18 Son Mesaj: dsezgin

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL