thepaintedman
Yeni Üye
- Katılım
- 12 Eyl 2020
- Mesajlar
- 1
- En iyi yanıt
- 0
- Puanları
- 1
- Yaş
- 32
- Konum
- Antalya Kepez
- Ad Soyad
- furka basaran
İyi çalışmalar konuyu tekrar gündeme getiriyorum ama sayfada bulduğum kodlarda ek kısmını oluşturamıyorum mailim eksi şekilde gidiyor yardımcı olabilirseniz sevinirim
Sub Mail()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim strFile As String
Dim mm As Worksheet
Set mm = Sheets("Sayfa1")
aa = mm.Range("B65536").End(3).Row
For a = 2 To aa
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = mm.Range("b" & a).Value
.CC = "furkan..bsrn@gmail.com"
.BCC = ""
.Subject = mm.Range("c" & a).Value
.Body = mm.Range("d" & a).Value
.Addattachment = mm.Range("e" & a).Value
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
Next a
End Sub
kullandığım kod budur
Sub Mail()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim strFile As String
Dim mm As Worksheet
Set mm = Sheets("Sayfa1")
aa = mm.Range("B65536").End(3).Row
For a = 2 To aa
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = mm.Range("b" & a).Value
.CC = "furkan..bsrn@gmail.com"
.BCC = ""
.Subject = mm.Range("c" & a).Value
.Body = mm.Range("d" & a).Value
.Addattachment = mm.Range("e" & a).Value
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
Next a
End Sub
kullandığım kod budur