Question

excel中vba怎么实现自动调用outlook批量发送邮件

Answer 1

Set olApp = CreateObject("Outlook.Application")
Set newItem = olApp.CreateItem(olMailItem)
newItem.To = "邮箱地址，多个地址以分号隔开"
newItem.Subject = "abc"
newItem.Body = "abc"
newItem.Send

Answer 2

以前研究过类似的，好像Outlook有防病毒保护，不允许直接由Vba发送邮件，会出现提示框的。只有人为按确认键后才能发送。所以我当时是用宏自动生成草稿，最后由人工统一发送。 当初也找到过第三方软件来解决这个问题，但现在忘了名称了。