vba常用代码自动发邮件

以下是一个用 VBA 发送邮件的示例代码：

Sub SendEmail()
    
    Dim objOutlook As Object
    Dim objMail As Object
    
    Set objOutlook = CreateObject("Outlook.Application")
    Set objMail = objOutlook.CreateItem(0)
    
    With objMail
        .To = "recipient@example.com"
        .Subject = "邮件主题"
        .Body = "邮件内容"
        .Attachments.Add "C:\Users\Username\Documents\example.pdf" '添加附件
        .Send '发送邮件
    End With
    
    Set objMail = Nothing
    Set objOutlook = Nothing
    
End Sub

在此代码中，需要将 `recipient@example.com` 改成实际的收件人邮箱地址，并将邮件主题和内容改成实际需要发送的内容。如果需要添加附件，可以使用 `.Attachments.Add` 方法添加附件的路径。

请注意，在使用此代码之前，需要确保已经在本地安装了 Outlook 客户端。