如何在 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 。

• 更多信息在源。