,可以通过以下步骤实现:
Sub SendEmail()
Dim olApp As Outlook.Application
Dim olMail As Outlook.MailItem
Dim recipient As Outlook.Recipient
' 创建Outlook应用程序对象
Set olApp = New Outlook.Application
' 创建邮件对象
Set olMail = olApp.CreateItem(olMailItem)
' 设置邮件的主题、正文等内容
olMail.Subject = "邮件主题"
olMail.Body = "邮件正文"
' 添加收件人
Set recipient = olMail.Recipients.Add("recipient1@example.com")
recipient.Type = olTo
' 添加更多收件人
Set recipient = olMail.Recipients.Add("recipient2@example.com")
recipient.Type = olTo
' 发送邮件
olMail.Send
' 释放对象
Set olMail = Nothing
Set olApp = Nothing
End Sub
在代码中,可以通过olMail.Recipients.Add
方法添加多个收件人,然后设置收件人的类型为olTo
表示主要收件人。
这样,Outlook将会使用宏发送邮件给不同的收件人。你可以根据需要修改宏代码中的邮件主题、正文和收件人信息。
需要注意的是,使用宏发送邮件可能会受到Outlook的安全设置限制,如果遇到问题,可以参考Outlook的安全设置或咨询相关技术支持人员。
腾讯云相关产品和产品介绍链接地址:
以上是腾讯云提供的一些相关产品,可以根据具体需求选择适合的产品来实现邮件发送功能。
领取专属 10元无门槛券
手把手带您无忧上云