附加文件通过电子邮件发送通过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 

当然，编辑，以适应您的环境。祝你好运