VBA Versender Konto einstellen bei Email Versand mit Outlook über Excel

  • Excel

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Maik1406.

    VBA Versender Konto einstellen bei Email Versand mit Outlook über Excel

    Hallo Leute,

    ich mal wieder.... :D

    Habe eine Code für einen Email Versand mit Outlook aus Excel heraus, der meine Ansprüchen fast gerecht wird.
    Jetzt versuche ich aber das Versenderkonto automatisch auswählen zu lassen.

    Könnt Ihr mit hier auf die Sprünge helfen?

    habe es schon probiert mit : .SentOnBehalfOfName = """xxx"" <xxx@gmail.com>" - Damit hat es nicht funktioniert

    Vielen Dank.



    Visual Basic-Quellcode

    1. Sub PDF_per_EMail()
    3. Application.ScreenUpdating = False
    4. Dim strPDF As String
    5. Dim strEMailText As String
    6. Dim strBetreff As String
    7. Dim strEmpfänger As String
    8. Dim strCopy As String
    9. Dim strBlindcopy As String
    10. Dim olApp As Object
    11. Dim Zeile As Integer
    12. Dim olOldbody As String
    14. strPDF = ThisWorkbook.Worksheets("Rechnung").Range("BN28").Value
    16. strEmpfänger = ThisWorkbook.Worksheets("Rechnung").Range("CC14").Value ' Empfänger-Adresse getrennt durch ein Semikolon (;)
    18. strCopy = "" ' Empfänger-Adresse getrennt durch ein Semikolon (;)
    20. strBlindcopy = "" ' Empfänger-Adresse getrennt durch ein Semikolon (;)
    22. strBetreff = ThisWorkbook.Worksheets("Rechnung").Range("BN27").Value
    24. '** PDF erzeugen
    25. ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    26. strPDF, Quality:=xlQualityStandard, IncludeDocProperties:=False, _
    27. IgnorePrintAreas:=False, OpenAfterPublish _
    28. :=False
    31. Set olApp = CreateObject("Outlook.Application")
    32. With olApp.CreateItem(0)
    33. .GetInspector.Display
    34. olOldbody = .htmlBody
    37. .To = strEmpfänger
    38. .CC = strCopy
    39. .BCC = strBlindcopy
    40. .Subject = strBetreff
    41. .Attachments.Add strPDF
    42. .htmlBody = ""
    43. .Display
    44. '.Send
    45. End With
    47. Kill strPDF
    49. '** Objektvariablen wieder löschen
    50. Set objOutlookApp = Nothing
    51. Set objEmail = Nothing
    53. Application.ScreenUpdating = True
    55. End Sub

    Maik1406 schrieb:

    .SentOnBehalfOfName = """xxx"" <xxx@gmail.com>" - Damit hat es nicht funktioniert
    Sendest du über einen Exchange-Server?
    Da funktioniert es. Aber nur wenn du dort auch eine Sendeberechtigung für das Konto eingetragen hast.

    Bei gmail kannst du meines Wissens immer nur an einem Konto hängen-

    Aber eines muss dir klar sein:
    Du kannst nicht im Auftrag eines x-beliebigen Kontos Mails versenden.
    Da passen die Server schon auf.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Hallo,

    ich habe alle Email Accounts in Outlook eingebunden und arbeite aktiv mit diesen Konten.

    Abgerufen werden diese über IMAP.

    Wenn ich eine neue Email erstelle, kann ich oben doch die ganzen Emails auswählen, mit den ich versenden möchte.
    Diese Einstellung soll quasi mit VBA getätigt werden.

    Den mein Standard Account ist nicht immer der Account, mit dem ich generierte Emails versenden möchte.

    Vielleicht hast du ne Idee?

    Danke.