Outlook & Ansender

Das hat jetzt gedauert ... sorry

lsr2 — Fri, 02 Feb 2018 17:12:09 GMT

Sorry dass das jetzt so lange gedauert hat - falls du noch interessiert bist, hier ist der Code.
Das macht nicht GENAU das was du willst, aber du kannst das sicher rauslesen. Anwendungsfall (bei mir) ist, dass man in einer gemeinsam genutzten Outlook-Mailbox eine Mail markiert, einen speziellen "reply" Button klickt (hinter dem das Makro liegt) und dann das reply-Mail displayed kriegt in dem man seine Antwort schreiben kann. Einfach auf deine Beduerfnisse modifizieren. ABC123 ist jener String, der im Exchange/AD als "Envelope Sender" hinterlegt ist (nicht die Mailadresse; der String hat kein @). Aus Datenschutzgruenden ist der Abteilungsname als ABC123 maskiert.


Sub ReplyAsABC()

    'declare variables
    Dim objReplyMail As MailItem
    Dim lCount As Long

    'check if we have only 1 mailitem selected (not multiple, not meeting items)
    If Not (Application.ActiveExplorer.Selection.Count = 1 And TypeName(Application.ActiveExplorer.Selection.Item(1)) = "MailItem") Then
        Call MsgBox("Not a single mail item selected!", vbCritical + vbOKOnly, "Wrong selection")
        End
    End If

    'get currently selected mail 
    Dim objMailItem As MailItem
    'create a an reply-mail of the currently selected mail
    Set objMailItem = Application.ActiveExplorer.Selection.Item(1).ReplyAll

    'create reply-mail by copying the created replymail
    'if you don't create a copy, you can't set the .SendUsingAccount property (it's read only)
    'this is FU*** NOWHERE DOCUMENTED - this took me days to find out!!
    Set objReplyMail = objMailItem.Copy

    'FINALLY - it's apparenlty necessary to set all those properties
    'set sender to active-directory entry for ABC123
    objReplyMail.Sender = Application.Session.AddressLists("Global Address List").AddressEntries("ABC123")
    'make sure correct (own) account is used for sending - to make show up in YOUR 'sent' folder
    objReplyMail.SendUsingAccount = Application.Session.accounts(1)
    'set onbehalf mail address
    'objReplyMail.SentOnBehalfOfName = "ABC123"

    'check each recipient if it is ABC123, if so, remove it
    For lCount = 1 To objReplyMail.Recipients.Count
        If objReplyMail.Recipients(lCount).Name = "ABC123" Then
            Call objReplyMail.Recipients.Remove(lCount)
            'yeah i know this is bad style :/
            Exit For
        End If
    Next

    'display reply mail
    Call objReplyMail.Display

End Sub

PS: Die Kommentare habe ich weder fuer GH extra geschrieben noch editiert
PPS: Wieso ist dein Nick eigentl "Gukerl" und nicht "Gurkerl"?

Das hat jetzt gedauert ... sorry

lsr2 — Fri, 02 Feb 2018 17:12:09 GMT

Sorry dass das jetzt so lange gedauert hat - falls du noch interessiert bist, hier ist der Code.
Das macht nicht GENAU das was du willst, aber du kannst das sicher rauslesen. Anwendungsfall (bei mir) ist, dass man in einer gemeinsam genutzten Mailbox eine Mail markiert, einen speziellen "reply" Button klickt (hinter dem das Makro liegt) und dann das reply-Mail displayed kriegt in dem man seine Antwort schreiben kann. Einfach auf deine Beduerfnisse modifizieren. ABC123 ist jener String, der im Exchange/AD als "Envelope Sender" hinterlegt ist (nicht die Mailadresse; der String hat kein @). Aus Datenschutzgruenden ist der Abteilungsname als ABC123 maskiert.


Sub ReplyAsABC()

    'declare variables
    Dim objReplyMail As MailItem
    Dim lCount As Long

    'check if we have only 1 mailitem selected (not multiple, not meeting items)
    If Not (Application.ActiveExplorer.Selection.Count = 1 And TypeName(Application.ActiveExplorer.Selection.Item(1)) = "MailItem") Then
        Call MsgBox("Not a single mail item selected!", vbCritical + vbOKOnly, "Wrong selection")
        End
    End If

    'get currently selected mail
    Dim objMailItem As MailItem
    'create a an reply-mail of the currently selected mail
    Set objMailItem = Application.ActiveExplorer.Selection.Item(1).ReplyAll

    'create reply-mail by copying the created replymail
    'if you don't create a copy, you can't set the .SendUsingAccount property (it's read only)
    'this is FU*** NOWHERE DOCUMENTED - this took me days to find out!!
    Set objReplyMail = objMailItem.Copy

    'FINALLY - it's apparenlty necessary to set all those properties
    'set sender to active-directory entry for LSC ZH
    objReplyMail.Sender = Application.Session.AddressLists("Global Address List").AddressEntries("ABC123")
    'make sure correct (own) account is used for sending - to make show up in YOUR 'sent' folder
    objReplyMail.SendUsingAccount = Application.Session.accounts(1)
    'set onbehalf mail address
    'objReplyMail.SentOnBehalfOfName = "ABC123"

    'check each recipient if it is ABC123, if so, remove it
    For lCount = 1 To objReplyMail.Recipients.Count
        If objReplyMail.Recipients(lCount).Name = "ABC123" Then
            Call objReplyMail.Recipients.Remove(lCount)
            'yeah i know this is bad style :/
            Exit For
        End If
    Next

    'display reply mail
    Call objReplyMail.Display

End Sub

Das hat jetzt gedauert ... sorry

lsr2 — Fri, 02 Feb 2018 17:12:09 GMT

Sorry dass das jetzt so lange gedauert hat - falls du noch interessiert bist, hier ist der Code.
Das macht nicht GENAU das was du willst, aber du kannst das sicher rauslesen. Anwendungsfall (bei mir) ist, dass man in einer gemeinsam genutzten Mailbox eine Mail markiert, einen speziellen "reply" Button klickt (hinter dem das Makro liegt) und dann das reply-Mail displayed kriegt in dem man seine Antwort schreiben kann. Einfach auf deine Beduerfnisse modifizieren. ABC123 ist jener String, der im Exchange/AD als "Envelope Sender" hinterlegt ist (nicht die Mailadresse; der String hat kein @). Aus Datenschutzgruenden ist der Abteilungsname als ABC123 maskiert.


Sub ReplyAsABC()

    'declare variables
    Dim objReplyMail As MailItem
    Dim lCount As Long

    'check if we have only 1 mailitem selected (not multiple, not meeting items)
    If Not (Application.ActiveExplorer.Selection.Count = 1 And TypeName(Application.ActiveExplorer.Selection.Item(1)) = "MailItem") Then
        Call MsgBox("Not a single mail item selected!", vbCritical + vbOKOnly, "Wrong selection")
        End
    End If

    'get currently selected mail 
    Dim objMailItem As MailItem
    'create a an reply-mail of the currently selected mail
    Set objMailItem = Application.ActiveExplorer.Selection.Item(1).ReplyAll

    'create reply-mail by copying the created replymail
    'if you don't create a copy, you can't set the .SendUsingAccount property (it's read only)
    'this is FU*** NOWHERE DOCUMENTED - this took me days to find out!!
    Set objReplyMail = objMailItem.Copy

    'FINALLY - it's apparenlty necessary to set all those properties
    'set sender to active-directory entry for ABC123
    objReplyMail.Sender = Application.Session.AddressLists("Global Address List").AddressEntries("ABC123")
    'make sure correct (own) account is used for sending - to make show up in YOUR 'sent' folder
    objReplyMail.SendUsingAccount = Application.Session.accounts(1)
    'set onbehalf mail address
    'objReplyMail.SentOnBehalfOfName = "ABC123"

    'check each recipient if it is ABC123, if so, remove it
    For lCount = 1 To objReplyMail.Recipients.Count
        If objReplyMail.Recipients(lCount).Name = "ABC123" Then
            Call objReplyMail.Recipients.Remove(lCount)
            'yeah i know this is bad style :/
            Exit For
        End If
    Next

    'display reply mail
    Call objReplyMail.Display

End Sub

PS: Die Kommentare habe ich weder fuer GH extra geschrieben noch editiert
PPS: Wieso ist dein Nick eigentl "Gukerl" und nicht "Gurkerl"?

Das hat jetzt gedauert ... sorry

lsr2 — Fri, 02 Feb 2018 17:12:09 GMT

Sorry dass das jetzt so lange gedauert hat - falls du noch interessiert bist, hier ist der Code.
Das macht nicht GENAU das was du willst, aber du kannst das sicher rauslesen. Anwendungsfall (bei mir) ist, dass man in einer gemeinsam genutzten Mailbox eine Mail markiert, einen speziellen "reply" Button klickt (hinter dem das Makro liegt) und dann das reply-Mail displayed kriegt in dem man seine Antwort schreiben kann. Einfach auf deine Beduerfnisse modifizieren. ABC123 ist jener String, der im Exchange/AD als "Envelope Sender" hinterlegt ist (nicht die Mailadresse; der String hat kein @). Aus Datenschutzgruenden ist der Abteilungsname als ABC123 maskiert.


Sub ReplyAsABC()

    'declare variables
    Dim objReplyMail As MailItem
    Dim lCount As Long

    'check if we have only 1 mailitem selected (not multiple, not meeting items)
    If Not (Application.ActiveExplorer.Selection.Count = 1 And TypeName(Application.ActiveExplorer.Selection.Item(1)) = "MailItem") Then
        Call MsgBox("Not a single mail item selected!", vbCritical + vbOKOnly, "Wrong selection")
        End
    End If

    'get currently selected mail
    Dim objMailItem As MailItem
    'create a an reply-mail of the currently selected mail
    Set objMailItem = Application.ActiveExplorer.Selection.Item(1).ReplyAll

    'create reply-mail by copying the created replymail
    'if you don't create a copy, you can't set the .SendUsingAccount property (it's read only)
    'this is FU*** NOWHERE DOCUMENTED - this took me days to find out!!
    Set objReplyMail = objMailItem.Copy

    'FINALLY - it's apparenlty necessary to set all those properties
    'set sender to active-directory entry for LSC ZH
    objReplyMail.Sender = Application.Session.AddressLists("Global Address List").AddressEntries("ABC123")
    'make sure correct (own) account is used for sending - to make show up in YOUR 'sent' folder
    objReplyMail.SendUsingAccount = Application.Session.accounts(1)
    'set onbehalf mail address
    'objReplyMail.SentOnBehalfOfName = "ABC123"

    'check each recipient if it is ABC123, if so, remove it
    For lCount = 1 To objReplyMail.Recipients.Count
        If objReplyMail.Recipients(lCount).Name = "ABC123" Then
            Call objReplyMail.Recipients.Remove(lCount)
            'yeah i know this is bad style :/
            Exit For
        End If
    Next

    'display reply mail
    Call objReplyMail.Display

End Sub

PS: Die Kommentare habe ich weder fuer GH extra geschrieben noch editiert

Das hat jetzt gedauert ... sorry

lsr2 — Fri, 02 Feb 2018 17:12:09 GMT

Sorry dass das jetzt so lange gedauert hat - falls du noch interessiert bist, hier ist der Code.
Das macht nicht GENAU das was du willst, aber du kannst das sicher rauslesen. Anwendungsfall (bei mir) ist, dass man in einer gemeinsam genutzten Mailbox eine Mail markiert, einen speziellen "reply" Button klickt (hinter dem das Makro liegt) und dann das reply-Mail displayed kriegt in dem man seine Antwort schreiben kann. Einfach auf deine Beduerfnisse modifizieren. ABC123 ist jener String, der im Exchange/AD als "Envelope Sender" hinterlegt ist (nicht die Mailadresse; der String hat kein @). Aus Datenschutzgruenden ist der Abteilungsname als ABC123 maskiert.


Sub ReplyAsABC()

    'declare variables
    Dim objReplyMail As MailItem
    Dim lCount As Long

    'check if we have only 1 mailitem selected (not multiple, not meeting items)
    If Not (Application.ActiveExplorer.Selection.Count = 1 And TypeName(Application.ActiveExplorer.Selection.Item(1)) = "MailItem") Then
        Call MsgBox("Not a single mail item selected!", vbCritical + vbOKOnly, "Wrong selection")
        End
    End If

    'get currently selected mail
    Dim objMailItem As MailItem
    'create a an reply-mail of the currently selected mail
    Set objMailItem = Application.ActiveExplorer.Selection.Item(1).ReplyAll

    'create reply-mail by copying the created replymail
    'if you don't create a copy, you can't set the .SendUsingAccount property (it's read only)
    'this is FU*** NOWHERE DOCUMENTED - this took me days to find out!!
    Set objReplyMail = objMailItem.Copy

    'FINALLY - it's apparenlty necessary to set all those properties
    'set sender to active-directory entry for ABC123
    objReplyMail.Sender = Application.Session.AddressLists("Global Address List").AddressEntries("ABC123")
    'make sure correct (own) account is used for sending - to make show up in YOUR 'sent' folder
    objReplyMail.SendUsingAccount = Application.Session.accounts(1)
    'set onbehalf mail address
    'objReplyMail.SentOnBehalfOfName = "ABC123"

    'check each recipient if it is ABC123, if so, remove it
    For lCount = 1 To objReplyMail.Recipients.Count
        If objReplyMail.Recipients(lCount).Name = "ABC123" Then
            Call objReplyMail.Recipients.Remove(lCount)
            'yeah i know this is bad style :/
            Exit For
        End If
    Next

    'display reply mail
    Call objReplyMail.Display

End Sub

PS: Die Kommentare habe ich weder fuer GH extra geschrieben noch editiert

Das hat jetzt gedauert ... sorry

lsr2 — Fri, 02 Feb 2018 17:12:09 GMT

Sorry dass das jetzt so lange gedauert hat - falls du noch interessiert bist, hier ist der Code.
Das macht nicht GENAU das was du willst, aber du kannst das sicher rauslesen. Anwendungsfall (bei mir) ist, dass man in einer gemeinsam genutzten Mailbox eine Mail markiert, einen speziellen "reply" Button klickt (hinter dem das Makro liegt) und dann das reply-Mail displayed kriegt in dem man seine Antwort schreiben kann. Einfach auf deine Beduerfnisse modifizieren. ABC123 ist jener String, der im Exchange/AD als "Envelope Sender" hinterlegt ist (nicht die Mailadresse; der String hat kein @). Aus Datenschutzgruenden ist der Abteilungsname als ABC123 maskiert.


Sub ReplyAsABC()

    'declare variables
    Dim objReplyMail As MailItem
    Dim lCount As Long

    'check if we have only 1 mailitem selected (not multiple, not meeting items)
    If Not (Application.ActiveExplorer.Selection.Count = 1 And TypeName(Application.ActiveExplorer.Selection.Item(1)) = "MailItem") Then
        Call MsgBox("Not a single mail item selected!", vbCritical + vbOKOnly, "Wrong selection")
        End
    End If

    'get currently selected mail 
    Dim objMailItem As MailItem
    'create a an reply-mail of the currently selected mail
    Set objMailItem = Application.ActiveExplorer.Selection.Item(1).ReplyAll

    'create reply-mail by copying the created replymail
    'if you don't create a copy, you can't set the .SendUsingAccount property (it's read only)
    'this is FU*** NOWHERE DOCUMENTED - this took me days to find out!!
    Set objReplyMail = objMailItem.Copy

    'FINALLY - it's apparenlty necessary to set all those properties
    'set sender to active-directory entry for ABC123
    objReplyMail.Sender = Application.Session.AddressLists("Global Address List").AddressEntries("ABC123")
    'make sure correct (own) account is used for sending - to make show up in YOUR 'sent' folder
    objReplyMail.SendUsingAccount = Application.Session.accounts(1)
    'set onbehalf mail address
    'objReplyMail.SentOnBehalfOfName = "ABC123"

    'check each recipient if it is ABC123, if so, remove it
    For lCount = 1 To objReplyMail.Recipients.Count
        If objReplyMail.Recipients(lCount).Name = "ABC123" Then
            Call objReplyMail.Recipients.Remove(lCount)
            'yeah i know this is bad style :/
            Exit For
        End If
    Next

    'display reply mail
    Call objReplyMail.Display

End Sub

PS: Die Kommentare habe ich weder fuer GH extra geschrieben noch editiert

Re: Outlook & Ansender

Gukerl — Thu, 25 Jan 2018 10:13:30 GMT

Gelöst!

Nach etlichen Telefonten mit der IT konne ich nun, mit Euren Tipps, das Problem lösen!

DANKE Euch allen

Re(2): Outlook & Ansender

Gukerl — Wed, 24 Jan 2018 16:08:39 GMT

Das wäre ein SUPERHIT!!!!

DANKE!!!

Re: Outlook & Ansender

lsr2 — Tue, 23 Jan 2018 16:46:38 GMT

Das geht - ich hab dafuer VBA Code geschrieben (der ist aber nicht auf dem Laptop auf dem ich gerade arbeite). Wenn du bist morgen/uebermorgen warten kannst, kann ich den posten.

Re: Outlook & Ansender

Maximus — Tue, 23 Jan 2018 14:37:43 GMT

Wie schon geschrieben gehts nur wenn das gewünschte Absende-Mailkonto als Hauptaccount eingerichtet wird.
Zuerst Outlook beenden und dann lege dir dazu ein neues Profil in den Outlook-Maileinstellungen an:
https://support.office.com/de-de/article/erstellen-eines-outlook-profils-f544c1ba-3352-4b3b-be0b-8d42a540459d
oder besser: kopiere dir dein vorhandenes Profil unter einem neuen Profilnamen.
Und markiere dort, dass beim Outlook-Start das Profil gewählt werden kann.

Dann kannst du Outlook mit dem neuen Profil starten, dort den gewünschten Absende-Mailaccount als Standard definieren (alternativ die anderen Mailaccounts rauslöschen), und deine generierten Emails sollten dann mit den richtigen Absender gesendet werden.

Dann Outlook beenden und mit dem alten Profil starten, und du hast deine gewohnten Einstellungen.

Re(5): Outlook & Ansender

Flo061180 — Tue, 23 Jan 2018 12:16:54 GMT

Wenn die Einstellungen nicht von der IT gesperrt sind, kannst du es selbst.

Re(4): Outlook & Ansender

Gukerl — Tue, 23 Jan 2018 10:26:50 GMT

Ich hab's schon verstanden

Kann ich das selber machen oder brauche ich dafür die IT. Bei letzterem kann ich die 900Mails manuell raus schicken, da bin ich x-mal schneller

Re(3): Outlook & Ansender

Flo061180 — Tue, 23 Jan 2018 10:03:21 GMT

Deshalb war ja mein Vorschlag, die Kontoeinstellungen, in deinem konkreten Fall dein Konto "Ich", temporär zu ändern. Dann werden die 900 Mails automatisch mit den geänderten Absenderdaten verschickt.

Re(2): Outlook & Ansender

Gukerl — Tue, 23 Jan 2018 09:59:05 GMT

Leider bin ich einer von 10.000 Mitarbeitern, aber "Inhaber" von 5 Exchange Konten, die ich monitore, leider ist das mit der IT nicht so einfach. Die Mails werden von der externen Software immer in das Hauptkonto geschrieben. jetzt liegen 900 Mails bei mir in Draft, als Absenderkonto "Ich", und genau das möchte ich ändern, am Besten mit einem Rutsch.
Die Mails in den Draft Ordner des anderen Kontos zu schieben bringt nichts, da sich das Absenderkonto nicht ändert.

Re: Outlook & Ansender

Flo061180 — Tue, 23 Jan 2018 08:40:27 GMT

Die pragmatischste Lösung wäre wohl eine Änderung in den Kontoeinstellungen.
Nach dem Versand änderst du es dann wieder auf die ursprünglichen Accountdaten.

Outlook & Ansender

Gukerl — Tue, 23 Jan 2018 08:09:52 GMT

Hallo Ihr!

Ich muss für ein Software Update Lizenz-Mails an einige 100 Adressen schicken. Diese Mails werden automatisch in meinen Outlook-Draft Ordner erstellt und werden manuell verschickt.
Ich möchte jetzt aber nicht die Mails unter meinem Namen verschicken, sondern -> Von: AndererAccount einsetzen.

Händisch würde das ewig dauern. Kann man das irgendwie über VBS oder anders lösen? Wenn ja, wie klappt das?

DANKE, Andi