Excel VBA ile Elektronik Posta Gönderme Yöntemleri

Merhabalar.

Mehmet CANBULAT'ın paylaştığı videolardan derlediğim notları paylaşıyorum:

Google, Outlook gibi post servis sağlayıcıları otomatik elektronik posta göbderildiğini tespit ettiği anda, iletiyi "spam"a düşürür. https://youtu.be/myGC-muEDCg?t=65

Elektronik posta ile gönderilecek ek'leri bazı firmalar masaüstünde oluşturmanıza izin vermeyebilir, en uygun klasör "Temp" klasörüdür. https://youtu.be/W-oohkfA1dE?t=3310

⚠️ CDO ile elektronik posta iki doğrulaması aktif olan hesaplarda çalışmaz.

CDO ile mail gönderme ayarları:

1) Şifrenin geçici olarak kullanılması için form kutucuğu oluşturulmuş.

2) Gönderim butonu ve onun komutu. Komut butona çift tıklayınca görüntülenir. Aslında bu kod "Module" olarak değil, sayfa içine yazılır.

Private Sub passwordok_Click() Me.Hide End Sub

3) Gönderim için ana kod:
Sub CDO_Mail_Gonder() 'UYARI: Aşağıdaki adrese gidip ekrana gelen izni ' "Daha az güvenilir uygulamalara izin ver: AÇIK" haline getirmelisiniz. 'https://www.google.com/settings/security/lesssecureapps 'Eğer hesabınızda iki adımlı doğrulama aktif ise bu kod çalışmaz, 'bağlantıya gittiğinizde şu iletiyi alırsınız: ' Bu ayar 2 Adımlı Doğrulama'nın etkinleştirildiği hesaplar için kullanılamaz. ' Bu tür hesaplar, daha az güvenli uygulama erişimi için ' uygulamaya özel şifre kullanılmasını gerektirir. Dim iMsg As Object Dim iConf As Object Dim strBody As String Dim Flds As Variant Dim pref As String yeniden_sifre_gir: uf_password.Show If uf_password.txtpassword.Value = "" Then MsgBox "CDO mail için şifre giriniz", vbExclamation, "Sayın " & Environ("UserName") Unload uf_password GoTo yeniden_sifre_gir: End If Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") iConf.Load -1 'CDO Source Defaults Set Flds = iConf.Fields pref = "http://schemas.microsoft.com/cdo/configuration/" With Flds .Item(pref & "smtpusessl") = True .Item(pref & "smtpauthenticate") = 1 .Item(pref & "sendusername") = "default.user@gmail.com" .Item(pref & "sendpassword") = uf_password.txtpassword.Value .Item(pref & "smtpserver") = "smtp.gmail.com" .Item(pref & "sendusing") = 2 .Item(pref & "smtpserverport") = 25 'Alternative 465 End With strBody = "Merhabalar" & vbNewLine & vbNewLine & _ "..." & vbNewLine & vbNewLine & _ Environ("UserName") With iMsg Set .Configuration = iConf .To = "default.user@gmail.com" .CC = "" .BCC = "" .From = """Current USER"" <current.user@gmail.com>" .Subject = "Gmail ile e-mail gönderme" .TextBody = strBody '.AddAttachment strfile .Send End With MsgBox "İleti gönderildi", vbInformation, "Sayın " & Environ("UserName") Set iMsg = Nothing Set iConf = Nothing Set Flds = Nothing Unload uf_password End Sub

Kaynak: https://youtu.be/SnKY5TPboV4