批量发带有附件的邮件并提到收件人名字

maohuimaohui

我的工作是外贸业务员，经常需要发营销邮件。如何批量发邮件可以达到每次发邮件只用准备一份邮件模板，就可以达到邮件内容提到客户名字和带有附件的效果？？

凌空一羽

Sub lkyy()
Dim olt As New Outlook.Application
Set olt = CreateObject("Outlook.Application")
Dim omail As MailItem
ar = Sheet1.UsedRange
For i = 3 To UBound(ar)
    Set omail = olt.CreateItem(olMailItem)
    With omail
        .To = ar(i, 2)
        .Subject = ar(i, 1)
        .Body = ar(i, 3)
        '.Attachments.Add ar(i, 4)   附件
        .Send
    End With
    Set omail = Nothing
Next
Set olt = Nothing
End Sub

我也不会将文件变成粗体加深红色

闻启学

凌空一羽 发表于 2019-7-31 17:12
Sub lkyy()
Dim olt As New Outlook.Application
Set olt = CreateObject("Outlook.Application")

将文字 变成粗体    和加什么红色

这个要用html 代码格式  

邮件本来就是网页  大家别想太复杂