Senden Sie E-Mail aus verschiedenen E-Mail-Konten

Wenn ich E-Mails senden, gehen Sie von meinem persönlichen Posteingang bei der Arbeit, aber ich brauche Sie, um zu gehen von einem anderen Postfach, dass ich Zugang habe. Ich habe beide Postfächer in meinem outlook.

Kann ich senden E-Mails aus einem bestimmten Postfach?

Hier ist der code, den ich verwende. Es nicht die 2. Sache, die in meinem Konto.

 Sub Mail_small_Text_Change_Account()

    Dim cel As Range
    Dim OutApp As Outlook.Application
    Dim OutMail As Outlook.MailItem
    Dim strbody As String

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(olMailItem)

    strbody = "Hi there" & vbNewLine & vbNewLine & _
          "This is line 1" & vbNewLine & _
          "This is line 2" & vbNewLine & _
          "This is line 3" & vbNewLine & _
          "This is line 4"

    On Error Resume Next

    For Each cel In Range(("C2"), Range("C2").End(xlDown))
        With OutMail
            .To = cel.Value
            '.CC = cel.Offset(0, 3).Value
            .Subject = "Benefits Refund"
            .Body = strbody
            .SendUsingAccount = OutApp.Session.Accounts.Item(2)
            .Send   'or use .Display
        End With

    Next

    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub
InformationsquelleAutor William | 2014-01-31
Schreibe einen Kommentar