附加文件通过电子邮件发送通过EXCEL
问题描述:
我需要发送附件少的电子邮件到不同的客户端。附件放在不同的文件夹中,每个文件夹都由名称命名。附加文件通过电子邮件发送通过EXCEL
例如..
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
答
这里有一个脚本,我使用的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
当然,编辑,以适应您的环境。祝你好运