如何在 vba 的 Outlook 中更改我的電子郵件帳戶發件人“發件人”

Question

我的 Outlook 中有 2 個郵箱帳戶，因此在發送電子郵件時如何更改電子郵件帳戶

"From"

在此處輸入圖片說明

我需要從我的電子郵件地址“anas3643@hotmail.com”發送

Sub Test_for_using()
'MVP OShon from VBATools.pl
    Dim oMail  As MailItem
    On Error GoTo blad
    Select Case TypeName(Application.ActiveWindow)
    Case "Explorer":  Set oMail = ActiveExplorer.Selection.Item(2)
    Case "Inspector": Set oMail = ActiveInspector.CurrentItem
    Case Else: Exit Sub
    End Select
    Call odpowiedz_do_nadawcy(oMail)
    blad:
End Sub

Sub odpowiedz_do_nadawcy(Item As Outlook.MailItem)
    Dim oReply As MailItem
    With Item
        Set oReply = .Forward
        Dim MyValue As Integer
        Dim x As String
        Dim emailNames(19) As String
        emailNames(1) = "anas.alwasel11@gmail.com"
        emailNames(2) = "anas3643@hotmail.com"
        emailNames(3) = "anas.alwasel11@gmail.com"
        emailNames(4) = "anas3643@hotmail.com"
        emailNames(5) = "anas.alwasel11@gmail.com"
        emailNames(6) = "anas3643@hotmail.com"
        emailNames(7) = "anas.alwasel11@gmail.com"
        emailNames(8) = "anas3643@hotmail.com"
        emailNames(9) = "anas.alwasel11@gmail.com"
        emailNames(10) = "anas3643@hotmail.com"
        emailNames(11) = "anas.alwasel11@gmail.com"
        emailNames(12) = "anas3643@hotmail.com"
        emailNames(13) = "anas.alwasel11@gmail.com"
        emailNames(14) = "anas3643@hotmail.com"
        emailNames(15) = "anas.alwasel11@gmail.com"
        emailNames(16) = "anas3643@hotmail.com"
        emailNames(19) = "anas3643@hotmail.com"

        MyValue = CInt(Int((19 * rnd()) + 1))     ' Generate random value between 1 and 6.
        x = emailNames(MyValue)
        oReply.Forward
        oReply.Recipients.Add (x)
        oReply.Send
        Set oReply = Item

    End With

End Sub

Answer 1

MailItem.SendUsingAccount屬性

返回或設置一個Account對象，該對象表示要在其下發送MailItem的帳戶。 （讀/寫。）

語法：

expression . SendUsingAccount

• expression ：返回MailItem對象的表達式。

備注：

SendUsingAccount屬性可用於指定在調用Send方法時應用於發送MailItem的帳戶。 如果為MailItem指定的帳戶不再存在，則此屬性返回Null 。

• 更多信息在源。