從不同的帳戶 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