using other mail account by sending mail from Excel to outlook [duplicate]

问题

This question already has answers here:

choose account in outlook when send mail via excel vba [duplicate] (1 answer)

MS Access / Outlook 2010 - how to choose which account to send email from? (2 answers)

VBA Send Email from Second Outlook Email Address (1 answer)

How to send mail from a specific account? (1 answer)

Closed 4 months ago.

I have this macro running in VBA. it is to send a mail out of Excel using Outlook. Now i have two accounts on outlook, let's say Test1@outlook.com and Test2@outlook.com

Outlook is automatically using test1@outlook.com, but i want it to use Test2@outlook.com when i use this macro. Can anybody help my?

Dim xOutApp As Object
    Dim xOutMail As Object
    Dim xMailBody As String
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)
    xMailBody = "Hello," & vbNewLine & vbNewLine & _
              "Please find attached our forms" & vbNewLine & _
              "" & vbNewLine & _
              "Have a nice day!" & vbNewLine & _
               "" & vbNewLine & _
                "" & vbNewLine & _
              ""
                  On Error Resume Next
    With xOutMail
        .To = "leroy@driesen.nl"
        .CC = ""
        .BCC = ""
        .Subject = " /  " + Format(Range("B2 ")) + " / " + Format(Range("C2")) + " / " + Format(Range("D2")) + " / " + Format(Range("E2")) + " / " + Format(Range("F2")) + " / Job nr. " + Format(Range("G2"))
        .Body = xMailBody
        .Display   'or use .Send
    End With
    On Error GoTo 0
    Set xOutMail = Nothing
    Set xOutApp = Nothing
End Sub

Many thanks!

来源：https://stackoverflow.com/questions/64264085/using-other-mail-account-by-sending-mail-from-excel-to-outlook