vba邮箱代码（vba foxmail）

各位高手，帮帮忙，我想用指定的邮箱批量发送邮件的VBA代码，求写

可以将附件上传到服务器，然后利用u-mail邮件营销平台的变量功能来实现

如何用VBA代码控制OUTLOOK发送邮件

'我一直是这样用的

Sub SendMail()

Set myOlApp = CreateObject("Outlook.Application")

Set objMail = myOlApp.CreateItem(olMailItem)

With objMail

    .To = "收件人邮箱地址"

    .Subject = "邮件主题"

    .Body = "邮件正文内容"

    .Attachments.Add "附件完整路径，如：D:\1.docx"

    .Send

End With

End Sub

运行正常，已经用了一年多了。放在excel或word里都行。

VBA批量生成邮箱URL问题？

两种方法:

Word中有个群发功能, 比较简单.

使用excel vba. 编程. 可以百度一下, 有很多代码.