Outlook VBA -在创建"New Email“时选择发件人帐户

Sub CreateNewEmail()
    Dim objOutlook As Outlook.Application
    Dim objNamespace As Outlook.Namespace
    Dim objMailItem As Outlook.MailItem
    
    Set objOutlook = New Outlook.Application
    Set objNamespace = objOutlook.GetNamespace("MAPI")
    
    '选择发件人帐户
    Set objMailItem = objOutlook.CreateItem(olMailItem)
    objMailItem.SentOnBehalfOfName = "yourname@yourdomain.com"
    
    '设置邮件内容和其他属性
    objMailItem.Subject = "邮件主题"
    objMailItem.Body = "邮件正文"
    objMailItem.To = "收件人邮箱地址"
    
    '发送邮件
    objMailItem.Send
    
    '释放对象
    Set objMailItem = Nothing
    Set objNamespace = Nothing
    Set objOutlook = Nothing
End Sub