oner
Yeni Üye
Merhabalar,
Aşağıdaki makroyu düzenleme şansımız var mı? klasör olarak değilde her mail adresinin karşısında ayrı bir pdf dosyası vs. olacak
2559_Sütundaki_Adreslere_Klasördeki_Dosyaları_Mail_Göndermek
Aşağıdaki makroyu düzenleme şansımız var mı? klasör olarak değilde her mail adresinin karşısında ayrı bir pdf dosyası vs. olacak
2559_Sütundaki_Adreslere_Klasördeki_Dosyaları_Mail_Göndermek
PHP:
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 = ""
.BCC = ""
.Subject = mm.Range("c" & a).Value
.Body = mm.Range("d" & a).Value
klasoryolu = mm.Range("e" & a).Value
Set evn = CreateObject("scripting.filesystemobject")
Set klasor = evn.GetFolder(klasoryolu)
For Each Dosya In klasor.Files
.Attachments.Add Dosya.path
Next
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
Next a
End Sub
Ekli dosyalar
Moderatör tarafında düzenlendi: