如何使用 Excel VBA 在 Outlook 中选择特定电子邮件地址

如何使用 VBA 在 Outlook 电子邮件中设置特定的“发件人”地址

方法 1：用于在 Outlook 中选择“发件人”地址的 VBA 脚本

' Define the subroutine
Sub enviar_email()
    ' Create an Outlook application object
    Dim objeto_outlook As Object
    Set objeto_outlook = CreateObject("Outlook.Application")
    ' Create a new email item
    Dim Email As Object
    Set Email = objeto_outlook.CreateItem(0)
    ' Set recipient and email details
    Email.To = Cells(2, 1).Value
    Email.CC = ""
    Email.BCC = ""
    Email.Subject = "Hello Teste"
    Email.Body = Cells(2, 2).Value & "," & Chr(10) & Chr(10) _
        & Cells(2, 3).Value & Chr(10) & Chr(10) _
        & "Thanks" & Chr(10) & "Regards"
    ' Add attachment
    Email.Attachments.Add ThisWorkbook.Path & "\Marcelo - " & Cells(2, 4).Value & ".xlsm"
    ' Set the "From" address
    Dim senderAddress As String
    senderAddress = "youremail@domain.com" ' Replace with desired sender
    Email.SentOnBehalfOfName = senderAddress
    ' Display email for confirmation
    Email.Display
End Sub

使用 C# 实现 Outlook 电子邮件自动化

方法 2：用于在 Outlook 电子邮件中选择“发件人”地址的 C# 脚本

using System;
using Microsoft.Office.Interop.Outlook;
class Program
{
    static void Main(string[] args)
    {
        // Create an Outlook application object
        Application outlookApp = new Application();
        // Create a new mail item
        MailItem mail = (MailItem)outlookApp.CreateItem(OlItemType.olMailItem);
        // Set recipient and email details
        mail.To = "recipient@domain.com";
        mail.Subject = "Hello Teste";
        mail.Body = "This is a test email generated by C#."; 
        // Add an attachment
        mail.Attachments.Add(@"C:\Path\To\Your\File.xlsm");
        // Set the "From" address
        mail.SentOnBehalfOfName = "youremail@domain.com";
        // Display the email for confirmation
        mail.Display(true);
    }
}

Python 自动化：通过 Outlook 发送电子邮件

方法 3：使用 PyWin32 选择“发件人”地址的 Python 脚本

import win32com.client as win32
def send_email():
    # Create an instance of Outlook
    outlook = win32.Dispatch("Outlook.Application")
    # Create a new email
    mail = outlook.CreateItem(0)
    # Set recipient and email details
    mail.To = "recipient@domain.com"
    mail.Subject = "Hello Teste"
    mail.Body = "This is a test email generated by Python."
    # Attach a file
    mail.Attachments.Add("C:\\Path\\To\\Your\\File.xlsm")
    # Set the "From" address
    mail._oleobj_.Invoke(*(64209, 0, 8, 0, "youremail@domain.com"))
    # Display the email
    mail.Display(True)
# Call the function
send_email()

有关 VBA 电子邮件自动化的常见问题

1. 如何在 VBA 中指定“发件人”地址？
2. 使用 SentOnBehalfOfName 属性来指定 VBA 宏中所需的电子邮件地址。
3. 如果附件文件丢失怎么办？
4. 您可以使用包含错误处理程序 On Error GoTo 当附件丢失时通知用户或跳过电子邮件。
5. 我可以发送电子邮件而不显示它们吗？
6. 是的，更换 Email.Display 和 Email.Send 直接发送电子邮件。
7. 如何验证电子邮件地址？
8. 使用VBA Like 运算符或正则表达式在发送前验证电子邮件格式。
9. 是否可以在电子邮件正文中使用 HTML 格式？
10. 是的，设置 BodyFormat 财产给 olFormatHTML 并将您的 HTML 内容包含在 HTMLBody 财产。

简化 Outlook 自动化以提高工作效率

使用 VBA 自动执行 Outlook 中的任务可以实现更大的灵活性和控制力。选择特定的发件人帐户、添加动态附件和自定义消息可确保用户节省时间并保持通信的准确性。这对于管理多个发件人帐户的企业特别有用。 🚀

使用 VBA 宏等工具，用户可以创建强大的工作流程，防止常见错误，例如不正确的发件人详细信息或丢失文件。通过应用最佳实践，这些脚本增强了可靠性和用户体验，使 Outlook 成为专业和个人通信的强大工具。