如何在 vba 的 Outlook 中更改我的电子邮件帐户发件人“发件人”

Question

我的 Outlook 中有 2 个邮箱帐户，所以我在发送电子邮件时如何更改电子邮件帐户

"From"

Enter image description here

我需要从我的电子邮件地址“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

• 表达式 ：返回MailItem 对象的表达式。

备注：

SendUsingAccount 属性可用于指定帐户 当 Send 方法为 叫。此属性返回 Null 如果为 MailItem 不再存在。

• 更多信息请访问Source。