0
我需要发送附件少的电子邮件到不同的客户端。附件放在不同的文件夹中,每个文件夹都由名称命名。附加文件通过电子邮件发送通过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