从不同帐户 VBA 发送电子邮件

Question

尝试使用 VBA 发送电子邮件，但尽管尽了最大努力，它仍然从我的个人电子邮件地址发送。请有人建议如何从辅助电子邮件地址发送？

Sub Send_Mail()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Send_Mail")
Dim I As Integer

Dim OA As Object
Dim msg As Object

Set OA = CreateObject("outlook.application")
Set OutAccount = OA.Session.Accounts.Item(2)

Dim last_row As Integer
last_row = Application.CountA(sh.Range("A:A"))

For I = 2 To last_row
    Set msg = OA.CreateItem(0)
    msg.SendUsingAccount = OutAccount
    msg.To = sh.Range("B" & I).Value
    msg.cc = sh.Range("D" & I).Value
    msg.Subject = sh.Range("E" & I).Value
    msg.body = sh.Range("F" & I).Value
            
    If sh.Range("G" & I).Value <> "" Then
        msg.attachments.Add sh.Range("G" & I).Value
            
End If
    
msg.send
    
sh.Range("H" & I).Value = "Sent"

Next I

MsgBox "All emails sent successfully"

End Sub

谢谢！

Answer 1

您可以使用 .From 设置您要从哪个电子邮件帐户发送邮件。

strFrom = Name & "<" & Email & ">"
msg.From = strFrom