附加文件通過電子郵件發送通過EXCEL

Question

我需要發送附件少的電子郵件到不同的客戶端。附件放在不同的文件夾中，每個文件夾都由名稱命名。

例如..

In column "A" = Clients name 
In column "B" = Clientes emails 
In column "C" = The subject 
In column "D" = The email body (ex: Hello, here the attachemtn) 
In column "E" = The folder where the attachemtns are on 

我需要具有用於每個cliente一個例程（+ - 14個clientes）。 注意到這方面有任何成功。 有什麼幫助嗎？

子SendEMAIL（）

Dim MyOlapp As Object, MeuItem As Object 
Set MyOlapp = CreateObject("Outlook.Application") 
Set MeuItem = MyOlapp.CreateItem(olMailItem) 
With MeuItem 
.to = Range("A2") 
.Subject = Range("D2") 
.Body = "Range("C2") 

End With 
End Sub 

Answer 1

這裏有一個腳本，我使用的Outlook來發送帶有附件的電子郵件......

Sub NLANghtRpt() 
Dim myItem As Outlook.MailItem 
Dim myAttachments As Outlook.Attachments 

'location of your files 
myPath1 = "C:\Users\username\Documents\" 


Set myItem = Application.CreateItem(olMailItem) 
With myItem 
    .To = "whoever you want to send to" 
    .CC = "whoever you want to copy" 
    .Subject = "your subject here" 
    .Body = "NIGHTLY REPORT FOR " & Format(Now, "mm.dd.yy") 
     ' I use the previous line for a generic message with a time stamp 

Set myAttachments = myItem.Attachments 

myAttachments.Add myPath1 & ("ReportSchedule.xls") 
myAttachments.Add myPath1 & ("ReportBooks.xls") 
myAttachments.Add myPath1 & ("ReportHours.xls") 


myItem.Display 
End With 
End Sub 

當然，編輯，以適應您的環境。祝你好運