【蜂邮EDM】：邮件群发系统，EDM邮件营销平台，邮件代发服务。 查看价格
【AokSend邮件API】：触发式邮件API，15元/万封，99%送达率。 查看价格
【烽火邮箱】：新人领取免费域名邮箱，可用作企业邮箱公司邮箱。 查看价格

VBA发邮件的10个代码示例合集

在现代社会中，自动化处理任务已经成为一种必备技能。对于VBA（Visual Basic for Applications）用户来说，发送邮件是一个常见的任务。本文将为您提供10个VBA发邮件的代码示例，并详细解释每个代码的功能和使用场景，帮助您高效地完成邮件发送任务。

一、VBA发邮件的基本语法

在开始具体的代码示例之前，我们先回顾一下VBA发邮件的基本语法。通过Send方法，我们可以发送邮件。以下是基本语法的示例：

Sub SendEmail()    Dim OutlookApp As Outlook.Application    Set OutlookApp = This电脑名里的Outlook应用    OutlookApp.Sendsmail revoltionSubject, "收件人姓名", "邮件正文"End Sub

这个示例中，我们首先设置了Outlook应用，然后使用Sendsmail方法发送邮件。接下来我们将具体代码示例分解。

二、10个VBA发邮件的代码示例

示例1：基础邮件发送

最基础的邮件发送代码如下：

Sub SendEmail()    Dim recipients As Variant    recipients = "收件人1", "收件人2"    Dim subject As String    subject = "邮件主题"    Dim body As String    body = "邮件正文"    Dim outlookApp As Outlook.Application    Set outlookApp = This电脑名里的Outlook应用    outlookApp.Sendsmail subject, recipients, bodyEnd Sub

解释：

• 我们定义了一个数组recipients，用于接收邮件地址。
• 定义了一个变量subject，用于存储邮件主题。
• 定义了一个变量body，用于存储邮件正文。
• 通过Set outlookApp = This电脑名里的Outlook应用，我们设置了Outlook的应用。
• 最后，使用Sendsmail方法发送邮件。

示例2：自动回复邮件

自动回复邮件是一种常见的应用，用于在用户发送邮件时立即收到回复。以下是一个示例：

Sub AutoReplyEmail()    Dim recipients As Variant    recipients = "收件人1", "收件人2"    Dim subject As String    subject = "已收到您的邮件"    Dim body As String    body = "感谢您的邮件已收到。"    Dim outlookApp As Outlook.Application    Set outlookApp = This电脑名里的Outlook应用    outlookApp.Sendsmail subject, recipients, bodyEnd Sub

解释：

• recipients数组存储了接收邮件的地址。
• subject存储邮件主题，body存储邮件正文。
• 使用Sendsmail方法发送邮件，并附上自动回复内容。

示例3：批量发送邮件

有时候，我们需要批量发送邮件给多个收件人。以下是批量发送邮件的示例：

【烽火邮箱】：烽火邮箱是一款简洁高效的企业邮箱平台，新客户赠送免费企业邮箱，一个起卖、按月付费（低至9.9元）；支持别名邮箱及群组邮箱，支持定制无限邮箱。高权重纯净IP池，系统自带反垃圾机制。
立即查看 >> ：企业邮箱价格

【蜂邮EDM】：邮件群发系统，EDM邮件营销平台，邮件代发服务，专业研发定制邮件营销系统及邮件群发解决方案！蜂邮自研产品线主要分为标准版、外贸版、企业版、定制版，及邮件API邮件SMTP接口服务。
立即查看 >> ：邮件发送价格

【AokSend邮件API】：专注触发式邮件API发送服务。15元/万封，发送验证码邮件、忘记密码邮件、通知告警邮件等，不限速。综合送达率99%、进箱率98%。触发邮件也叫事务性邮件或推送邮件，包含：验证码邮件、重置密码邮件、余额提醒邮件、会员到期邮件、账号认证邮件等！
立即查看 >> ：邮件发送价格

Sub SendEmails()    Dim recipients As Variant    recipients = "收件人1", "收件人2", "收件人3"    Dim subject As String    subject = "邮件主题"    Dim body As String    body = "邮件正文"    Dim outlookApp As Outlook.Application    Set outlookApp = This电脑名里的Outlook应用    For Each recipient In recipients        outlookApp.Sendsmail subject, recipient, body    NextEnd Sub

解释：

• recipients数组存储了多个接收邮件的地址。
• 使用For Each循环遍历数组，逐个发送邮件。

示例4：使用VBA邮件模板

有时候，我们需要发送带有邮件模板的邮件。以下是使用邮件模板的示例：

Sub SendEmailWithTemplate()    Dim recipients As Variant    recipients = "收件人1", "收件人2"    Dim templatePath As String    templatePath = "C:\Templates\邮件模板.docx"    Dim outlookApp As Outlook.Application    Set outlookApp = This电脑名里的Outlook应用    outlookApp.SendsmailFromRecipients recipients, templatePath, "邮件主题"End Sub

解释：

• recipients数组存储了接收邮件的地址。
• templatePath存储了邮件模板的路径。
• 使用SendsmailFromRecipients方法发送邮件，并附上邮件模板。

示例5：发送给Cc和Bcc地址

在某些情况下，我们需要发送邮件给Cc（抄送）或Bcc（抄送人）地址。以下是示例：

Sub SendEmailCcAndBcc()    Dim recipientsAsCC As Variant    Dim recipientsAsBcc As Variant    recipientsAsCC = "cc地址1", "cc地址2"    recipientsAsBcc = "bcc地址1", "bcc地址2"    Dim subject As String    subject = "邮件主题"    Dim body As String    body = "邮件正文"    Dim outlookApp As Outlook.Application    Set outlookApp = This电脑名里的Outlook应用    outlookApp.Sendsmail subject, recipientsAsCC, recipientsAsBcc, bodyEnd Sub

解释：

• recipientsAsCC数组存储了Cc地址。
• recipientsAsBcc数组存储了Bcc地址。
• 使用Sendsmail方法发送邮件，同时指定Cc和Bcc地址。

示例6：发送邮件到多个邮件地址

有时候，我们需要发送邮件到多个邮件地址。以下是发送邮件到多个地址的示例：

Sub SendEmailsToMultipleAddresses()    Dim recipients As Variant    recipients = "收件人1", "收件人2", "收件人3"    Dim subject As String    subject = "邮件主题"    Dim body As String    body = "邮件正文"    Dim outlookApp As Outlook.Application    Set outlookApp = This电脑名里的Outlook应用    For Each recipient In recipients        outlookApp.Sendsmail subject, recipient, body    NextEnd Sub

解释：

• recipients数组存储了多个接收邮件的地址。
• 使用For Each循环遍历数组，逐个发送邮件。

示例7：使用VBA邮件库

有时候，我们需要使用VBA邮件库来发送邮件。以下是使用VBA邮件库的示例：

Sub SendEmailsUsingMailLibrary()    Dim recipients As Variant    recipients = "收件人1", "收件人2"    Dim subject As String    subject = "邮件主题"    Dim body As String    body = "邮件正文"    Dim outlookApp As Outlook.Application    Set outlookApp = This电脑名里的Outlook应用    ' 导入邮件库    Import "C:\MailLib\maillib1024.dll"    ' 使用邮件库发送邮件    With outlookApp        .Sendsmail subject, recipients, body    End WithEnd Sub

解释：

• recipients数组存储了接收邮件的地址。
• subject存储邮件主题，body存储邮件正文。
• 使用Import语句导入邮件库。
• 使用邮件库发送邮件。

示例8：发送邮件并附上附件

有时候，我们需要发送包含附件的邮件。以下是发送邮件并附上附件的示例：

Sub SendEmailWithAttachment()    Dim recipients As Variant    recipients = "收件人1", "收件人2"    Dim subject As String    subject = "邮件主题"    Dim body As String    body = "邮件正文"    Dim pathToAttachment As String    pathToAttachment = "C:\附件\附件1.pdf"    Dim outlookApp As Outlook.Application    Set outlookApp = This电脑名里的Outlook应用    ' 发送邮件    outlookApp.Sendsmail subject, recipients, body    ' 附加附件    outlookApp POco conqueror = new Outlook_attachment    OutlookAttachment路径 = pathToAttachment    OutlookAttachment主题 = subject    OutlookAttachment内容 = body    OutlookAttachment附件 = True    OutlookAttachment发送 = TrueEnd Sub

解释：

• recipients数组存储了接收邮件的地址。
• subject存储邮件主题，body存储邮件正文。
• pathToAttachment存储了附件的路径。
• 使用Sendsmail方法发送邮件，并附加附件。

示例9：发送邮件并附上批注

有时候，我们需要发送邮件并附上批注。以下是发送邮件并附上批注的示例：

Sub SendEmailWithAnnotation()    Dim recipients As Variant    recipients = "收件人1", "收件人2"    Dim subject As String    subject = "邮件主题"    Dim body As String    body = "邮件正文"    Dim pathToAnnotation As String    pathToAnnotation = "C:\批注\批注1.txt"    Dim outlookApp As Outlook.Application    Set outlookApp = This电脑名里的Outlook应用    ' 发送邮件    outlookApp.Sendsmail subject, recipients, body    ' 附加批注    outlookApp POco conqueror = new Outlook_annotation    OutlookAnnotation路径 = pathToAnnotation    OutlookAnnotation主题 = subject    OutlookAnnotation内容 = body    OutlookAnnotation附件 = True    OutlookAnnotation发送 = TrueEnd Sub

解释：

• recipients数组存储了接收邮件的地址。
• subject存储邮件主题，body存储邮件正文。
• pathToAnnotation存储了批注的路径。
• 使用Sendsmail方法发送邮件，并附加批注。

示例10：发送邮件并附上页面设置

有时候，我们需要发送邮件并附上特定的页面设置。以下是发送邮件并附上页面设置的示例：

Sub SendEmail()    Dim recipients As Variant    recipients = "收件人1", "收件人2"    Dim subject As String    subject = "邮件主题"    Dim body As String    body = "邮件正文"    Dim outlookApp As Outlook.Application    Set outlookApp = This电脑名里的Outlook应用    outlookApp.Sendsmail subject, recipients, bodyEnd Sub0

解释：

• recipients数组存储了接收邮件的地址。
• subject存储邮件主题，body存储邮件正文。
• 使用Sendsmail方法发送邮件，并设置页面。

三、总结

以上是10个VBA发邮件的代码示例，涵盖了基础邮件发送、自动回复邮件、批量发送邮件、发送邮件到多个地址、发送邮件并附上附件、发送邮件并附上批注、发送邮件并附上页面设置等场景。这些代码示例可以帮助您高效地完成邮件发送任务。

在实际使用中，您需要根据自己的需求调[文]整代码。例如，可以使用邮件库或批处理[章]工具来自动化邮件发送。此外，需要注意[来] Outlook 应用的权限设置，确保 Outlook 应用有发送电子邮件的权限。

希望这些代码示例对您有所帮助！

【蜂邮EDM】：邮件群发系统，EDM邮件营销平台，邮件代发服务。 查看价格
【AokSend邮件API】：触发式邮件API，15元/万封，99%送达率。 查看价格
【烽火邮箱】：新人领取免费域名邮箱，可用作企业邮箱公司邮箱。 查看价格