从VBA发出两封不同的电子邮件

VBA（Visual Basic for Applications）是一种用于自动化任务和编写宏的编程语言，常用于Microsoft Office套件中的应用程序，如Excel、Word和Outlook。通过VBA，我们可以编写代码来发送电子邮件。

要从VBA发出两封不同的电子邮件，可以按照以下步骤进行操作：

引用Outlook对象库：在VBA编辑器中，点击"工具" -> "引用"，勾选"Microsoft Outlook XX.X Object Library"，点击"确定"。
创建Outlook应用程序对象：使用CreateObject函数创建Outlook应用程序对象，如下所示：

Dim outlookApp As Object
Set outlookApp = CreateObject("Outlook.Application")

创建邮件对象：使用CreateItem方法创建邮件对象，如下所示：

Dim email As Object
Set email = outlookApp.CreateItem(0)

其中，参数0表示创建一封新邮件。

设置邮件属性：可以使用邮件对象的各种属性来设置邮件的收件人、主题、正文等信息，如下所示：

email.To = "recipient1@example.com"
email.Subject = "邮件1主题"
email.Body = "邮件1正文"

发送邮件：使用Send方法发送邮件，如下所示：

email.Send

重复步骤3至5，创建并发送第二封邮件。

完整的VBA代码示例如下：

Sub SendEmails()
    Dim outlookApp As Object
    Set outlookApp = CreateObject("Outlook.Application")
    
    Dim email1 As Object
    Set email1 = outlookApp.CreateItem(0)
    email1.To = "recipient1@example.com"
    email1.Subject = "邮件1主题"
    email1.Body = "邮件1正文"
    email1.Send
    
    Dim email2 As Object
    Set email2 = outlookApp.CreateItem(0)
    email2.To = "recipient2@example.com"
    email2.Subject = "邮件2主题"
    email2.Body = "邮件2正文"
    email2.Send
    
    Set email1 = Nothing
    Set email2 = Nothing
    Set outlookApp = Nothing
End Sub

这样，就可以使用VBA从Outlook发送两封不同的电子邮件了。

请注意，以上示例中使用的是Outlook作为邮件客户端，如果你使用的是其他邮件客户端，可能需要相应的更改代码。此外，还可以通过VBA代码设置更多邮件属性，如附件、抄送、密送等。更多关于Outlook VBA的信息，可以参考腾讯云的Outlook VBA开发文档。