Fuatckmk
Altın Üye
- Katılım
- 21 Aralık 2017
- Mesajlar
- 65
- Excel Vers. ve Dili
- Excel 365 - Türkçe
- Altın Üyelik Bitiş Tarihi
- 06-06-2025
Arkadaşlar merhaba,
Otomatik mail ile gönderilecek eki, Exceldeki E kolonundan çekmesini istiyorum.
Kodlarım aşağıdaki gibi. Konu, içerik, mail adresi değişkenlik gösteriyor.(Dosya yolu da herkesin farklı olacak) bu bağlamda nasıl bir kod yazmalıyım. Yardımcı olabilir misiniz?
Otomatik mail ile gönderilecek eki, Exceldeki E kolonundan çekmesini istiyorum.
Kodlarım aşağıdaki gibi. Konu, içerik, mail adresi değişkenlik gösteriyor.(Dosya yolu da herkesin farklı olacak) bu bağlamda nasıl bir kod yazmalıyım. Yardımcı olabilir misiniz?
Kod:
Sub MAIL_GONDER()
Dim Outlook_App As Object
Dim Outlook_Mail As Object
Dim S1 As Worksheet, X As Long
Set Outlook_App = CreateObject("Outlook.Application")
Set S1 = Sheets("Sayfa1")
For X = 2 To S1.Cells(S1.Rows.Count, 1).End(3).Row
If S1.Cells(X, 4) = "" Then
Set Outlook_Mail = Outlook_App.CreateItem(0)
With Outlook_Mail
.To = S1.Cells(X, 3)
.CC = ""
.Subject = S1.Cells(X, 2)
.body = S1.Cells(X, 1)
.BodyFormat = 2
.Save
.send
S1.Cells(X, 4) = "Gönderildi."
End With
End If
Next
Set S1 = Nothing
Set Outlook_Mail = Nothing
Set Outlook_App = Nothing
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub