附加文件通过电子邮件发送通过EXCEL

我需要发送附件less的电子邮件给不同的客户端。 附件放在不同的文件夹中，每个文件夹都由名称命名。

例如..

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 

我需要为每个客户提供一个例程（+ – 14个客户端）。 注意到在这方面取得了成功。 任何帮助？

Sub 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 

当然，编辑适合你的环境。 祝你好运