vba自动发送邮件

以下是使用VBA自动发送邮件的步骤：

1. 打开Excel，按下Alt + F11，打开VBA编辑器。
2. 在VBA编辑器中，选择“插入” > “模块”。
3. 在新模块中输入以下代码：

Sub SendEmail()
    Dim objOutlook As Object
    Dim objMail As Object
    
    Set objOutlook = CreateObject("Outlook.Application")
    Set objMail = objOutlook.CreateItem(0)
    
    With objMail
        .To = "收件人邮箱地址"
        .Subject = "邮件主题"
        .Body = "邮件正文"
        .Attachments.Add "附件路径"
        .Send
    End With
    
    Set objMail = Nothing
    Set objOutlook = Nothing
End Sub

4. 将“收件人邮箱地址”、“邮件主题”、“邮件正文”和“附件路径”替换为实际内容。
5. 点击“运行” > “运行子过程”或按下F5键运行代码。

这样，邮件就会被自动发送出去了。请注意，你需要在电脑上安装Outlook或者其他邮件客户端才能发送邮件。