選擇 outlook 賬戶發送 email / VBA

Question

希望一切順利。 這是我必須從 Excel 文件發送電子郵件的代碼，但我想對其進行調整，以便能夠從發送自（“abc@abc.com”）的電子郵件中選擇 outlook 帳戶。

Sub SendEmail()
Dim i As Integer, Mail_Object, Email_Subject, o As Variant, lr As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
Set Mail_Object = CreateObject("Outlook.Application")
For i = 2 To lr
        With Mail_Object.CreateItem(o)
            .Subject = Range("B" & i).Value
            .To = Range("A" & i).Value
            .Body = Range("C" & i).Value
            '.CC = Range("G" & i).Value
            '.Send
            .display 'disable display and enable send to send automatically
    End With
Next i
        MsgBox "E-mail successfully sent", 64
        Application.DisplayAlerts = False
Set Mail_Object = Nothing
End Sub

我看過不同的視頻，但我對代碼的“設置”部分有點困惑。 你能幫我嗎？ 謝謝

Answer 1

我認為您在SentOnBehalfOfName屬性之后：

With Mail_Object.CreateItem(o)
    .Subject = Range("B" & i).Value
    .To = Range("A" & i).Value
    .Body = Range("C" & i).Value
    .SentOnBehalfOfName = "abc@abc.com"
    '.CC = Range("G" & i).Value
    '.Send
    .display 'disable display and enable send to send automatically
End With