thomasthomas
May 15, 2020
view1932
view9
0
Goto Top

Email vom Posteingang in einen Unterordner vom Posteingang ziehen und ein Makro starten

GermanQuestionOutlook MailMicrosoft
Hallo,

ist es möglich ein Makro zu starten wenn man eine Email vom Posteingang in einen Unterordner vom Posteingang zieht?

Grüße Thomas
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 572089

Url: https://administrator.de/contentid/572089

Printed on: April 24, 2024 at 02:04 o'clock

9 Comments
Latest comment
Goto Top
Member: Pjordorf
Pjordorf May 15, 2020 at 19:38:08 (UTC)
Goto Top
Hallo,

Zitat von @ThomasThomas:
ist es möglich ein Makro zu starten wenn man eine Email vom Posteingang in einen Unterordner vom Posteingang zieht?
Ja, wenn die vorraussetzungen alle passen und es eingerichtet / Programmiert ist.

Gruß,
Peter
Member: ThomasThomas
ThomasThomas May 15, 2020 at 19:45:41 (UTC)
Goto Top
Hallo Peter,

vielen Dank für deine Antwort, das klingt gut, kannst du mir schreiben wie man dies umsetzt?

Danke

Thomas
Member: Pjordorf
Pjordorf May 15, 2020 at 19:54:57 (UTC)
Goto Top
Hallo,

Zitat von @ThomasThomas:
vielen Dank für deine Antwort, das klingt gut, kannst du mir schreiben wie man dies umsetzt?
https://www.google.com/search?q=outlook+programming

Gruß,
Peter
Mitglied: 144260
144260 May 15, 2020 at 19:55:44 (UTC)
Goto Top
Bitteschön
https://docs.microsoft.com/de-de/office/vba/api/outlook.items.itemadd
Member: colinardo
colinardo May 16, 2020, updated at May 17, 2020 at 09:22:05 (UTC)
Goto Top
Im einfachsten Fall einzufügen in ThisOutlookSession und anschließend zwingendem Outlook-Neustart (Makros müssen natürlich freigeschaltet und erlaubt sein!)
Dim WithEvents addedItems As items

Private Sub Application_Startup()
    Set addedItems= Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders("Testunterordner").items  
End Sub

Private Sub addedItems_ItemAdd(ByVal Item As Object)
    MsgBox "Item with subject '" & Item.Subject & "' has been moved into folder.", vbInformation  
End Sub
Der Verweis oben gilt bspw. für eine Exchange-Mailbox. Sollte es ein IMAP oder POP-Postfach sein dann muss der Verweis anders aussehen
Set addedItems = Application.Session.Stores("<NAME DES STORES>").GetDefaultFolder(olFolderInbox).Folders("Testunterordner").items
Das <NAME DES STORES> muss ersetzt werden durch den Namen des Accounts so wie er im Ordnerbaum im Root erscheint. Der Name des direkten Unterordners (Testunterordner) muss natürlich auch an eigene Gegebenheiten angepasst werden.

In der Private Sub addedItems_ItemAdd kann man dann hinterlegen was man eben so damit machen möchte.

Grüße Uwe
Member: ThomasThomas
ThomasThomas May 16, 2020 at 20:09:18 (UTC)
Goto Top
Hallo killpid.

Vielen Dank für deine Antwort.


Hallo Uwe,

vielen Dank für den Code. Ich habe ihn eingefügt bekomme es aber nicht zum laufen. Ich habe ein IMAP -Postfach.

Set addedItems = Application.Session.Stores("<Emailadresse>").GetDefaultFolder(olFolderInbox).Folders("Test").items

- der Name meines Accounts ist die Emailadresse
- als Unterordner habe ich den Ordner Test angelegt

Ist es auch möglich das es egal ist in welchen Unterordner man es verschiebt und das Makro startet?

vielen Dank und einen schönen Abend
Member: Pjordorf
Pjordorf May 16, 2020 at 20:38:44 (UTC)
Goto Top
Hallo,

Zitat von @ThomasThomas:
vielen Dank für den Code. Ich habe ihn eingefügt bekomme es aber nicht zum laufen. Ich habe ein IMAP -Postfach.
Nun denn, ohne weitere Info kann dir niemand beim Kinderkriegen helfen, da musst du ganz alleine Durch. Du sagst doch auch nicht hab nen Ferrari zusammen gebaut, tuts aber nicht. Was ist falsch? Also was ist die genaueFehlermeldung wenn du was genau tust?Auch deine Outlook Version, anbindung an den betreffenden Mail Server oder Exchange usw. Evtl dein Quellcode hier uns zeigen. Bilder können auch helfen.

Ist es auch möglich das es egal ist in welchen Unterordner man es verschiebt und das Makro startet?
Wenn es so Programmiert wird, ja, sonst nein.

Gruß,
Peter
Mitglied: 144260
144260 May 16, 2020 updated at 21:56:45 (UTC)
Goto Top
Habs hier mal probeweise getestet , läuft einwandfrei ist ja nichts weltbewegendes, du machst also offensichtlich was falsch ...

Ist es auch möglich das es egal ist in welchen Unterordner man es verschiebt und das Makro startet?
Einfach mal in die Doku schauen dann hättest du das hier gefunden...

https://docs.microsoft.com/de-de/office/vba/api/outlook.folder.beforeite ...
Member: colinardo
colinardo May 17, 2020 updated at 09:14:57 (UTC)
Goto Top
Zitat von @ThomasThomas:
Ist es auch möglich das es egal ist in welchen Unterordner man es verschiebt und das Makro startet?
Auch das ist kein Problem, das sieht dann so aus:
Dim WithEvents inbox As folder

Private Sub Application_Startup()
    Set inbox = Application.Session.Stores("<NAME DES STORES>").GetDefaultFolder(olFolderInbox)  
End Sub

Private Sub inbox_BeforeItemMove(ByVal Item As Object, ByVal MoveTo As MAPIFolder, Cancel As Boolean)
    MsgBox "Item with subject '" & Item.Subject & "' will be moved to folder '" & MoveTo.Name & "'.", vbInformation  
End Sub
Funktioniert wie das obige einwandfrei, wenn du die wichtigen Hinweise dazu oben beachtet hast (Neustart & Co.) und den Code in den richtigen Codeabschnitt kopiert hast (Kein Modul sonder in "ThisOutlookSession"!).

screenshot

Mehr Support dazu gibt's gerne per PN.

Grüße Uwe
GermanQuestionOutlook MailMicrosoft
Hotly discussed
gleixnerdCheck of ZFW Firewallgleixnerd - 5 CommentsjstrickerWireguard VPN on UDM Pro behind Fritzbox - Handshake did not completejstricker - 3 CommentsAlexWishaHow to set up and configure a Linux GRE tunnelAlexWisha - 3 Comments