Outlook 2010 Betreff ändern bzw. einkürzen
Hallo,
ich suche eine Lösung für folgendes.
Exchange 2010
Outlook 2010
In ein bestimmtes Postfach kommen Mails mit einem solchen Betreff an.
"GLB W_FI_000215994/148751"
Aktuell ändern wir den Betreff immer manuell, dass die letzten Nummer (nach dem /) bleiben.
Der Rest wird gelöscht.
Also Ergebnis wäre dann "148751" als Betreff.
Wie kann man dies automatisch durchführen?
Egal ob per Exchange Regel oder VBA.
Habe auch schon viel im Netz gesucht, aber finde meist nur wie man den ganzen Betreff ersetzen kann und nicht einen Teil erhält.
ich suche eine Lösung für folgendes.
Exchange 2010
Outlook 2010
In ein bestimmtes Postfach kommen Mails mit einem solchen Betreff an.
"GLB W_FI_000215994/148751"
Aktuell ändern wir den Betreff immer manuell, dass die letzten Nummer (nach dem /) bleiben.
Der Rest wird gelöscht.
Also Ergebnis wäre dann "148751" als Betreff.
Wie kann man dies automatisch durchführen?
Egal ob per Exchange Regel oder VBA.
Habe auch schon viel im Netz gesucht, aber finde meist nur wie man den ganzen Betreff ersetzen kann und nicht einen Teil erhält.
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 334023
Url: https://administrator.de/forum/outlook-2010-betreff-aendern-bzw-einkuerzen-334023.html
Ausgedruckt am: 23.12.2024 um 01:12 Uhr
9 Kommentare
Neuester Kommentar
Servus,
(In Outlook ALT-F11 drücken und den Code in den Abschnitt "ThisOutlookSession" einfügen), Makros natürlich vorher im Sicherheitscenter aktivieren!
Effektiver wäre ein Custom Transport Agent für den EX, aber nur für die eine Sache wohl Overkill.
Hier ein ähnliches Beispiel für einen Transport Agent
Anzeigename autom. um Suffix ergänzen
Grüße Uwe
(In Outlook ALT-F11 drücken und den Code in den Abschnitt "ThisOutlookSession" einfügen), Makros natürlich vorher im Sicherheitscenter aktivieren!
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim varEntryIDs, objItem as Object, i As Integer
varEntryIDs = Split(EntryIDCollection, ",")
For i = 0 To UBound(varEntryIDs)
Set objItem = Application.Session.GetItemFromID(varEntryIDs(i))
If objItem.Class = olMail Then
With objItem
If Instr(1,.Subject,"/",1) > 0 Then
.Subject = Split(.Subject,"/",2,1)(1)
.Save
End if
End With
End If
Next
End Sub
Hier ein ähnliches Beispiel für einen Transport Agent
Anzeigename autom. um Suffix ergänzen
Grüße Uwe
Zitat von @Denyo25:
Servus Uwe,
ich habe den Code wie beschrieben eingefügt, aber muss ich diesen noch als Projekt speichern um es aus zu führen?
Speichern klicken, und nicht vergessen Makros im Sicherheitscenter zu aktivieren und Outlook neu zu starten.Servus Uwe,
ich habe den Code wie beschrieben eingefügt, aber muss ich diesen noch als Projekt speichern um es aus zu führen?
Bitte den Code nicht in ein Modul kopieren sondern wie oben beschrieben in ThisOutlookSession/DieseOutlookSitzung, da es sich um ein Outlook eigene Eventhandler-Routine handelt!
Wenn ich mit F5 starten möchte, will er einen Makro Namen haben und öffnet ein neues Projekt.
Das Makro wird automatisch bei neuen eintreffenden Mails aktiv du kannst es in dieser Variante nicht mit F5 starten, wäre ja auch Quatsch wenn man das müsste !Zitat von @Denyo25:
Kann man diese Aktion auf bestimmte Mails anwenden?
Ggf. vorher markieren oder ähnliches?
Du kannst an allen Merkmalen einer Mail eine Unterscheidung machen, musst nur sagen woran man sie bei dir erkennt. Man kann auch die Accounts unterscheiden über die sie reingekommen sind, hier ist dann wichtig wie der Account eingebunden wurde (extra Store oder Automapping). Nur eingebunden sein muss das Postfach zumindest auf einem Client wo das Makro läuft sonst werden die Mails ja nicht überwacht. Ist das gefordert das kein Outlook läuft, s. Transport Agent oben.Kann man diese Aktion auf bestimmte Mails anwenden?
Ggf. vorher markieren oder ähnliches?
In dem Fall wenn es als "extra" Postfach eingebunden ist (kein Automapping):
(Achtung die Deklaration der WithEvents Variable muss zwingend am Anfang des Codefensters stehen)
Name des Stores anpassen.
Damit werden dann alle Mails die in diesen Posteingang eingehen verarbeitet welche zumindest einen Slash(/) im Subject beinhalten.
Handelt es sich hingegen um ein Postfach das per Automapping eingebunden ist, oder über zusätzliche Postfächer öffnen eingebunden wurde (kein extra Account über die Einstellungen eingebunden), nehme man dies:
Bei allen Varianten ist ein Neustart von Outlook Pflicht!!
Für noch mehr Support kannst du dich gerne via PM an mich wenden (kostenpflichtig).
Grüße Uwe
Falls der Beitrag gefällt, seid so nett und unterstützt mich durch eine kleine Spende / If you like my contribution please support me and donate
(Achtung die Deklaration der WithEvents Variable muss zwingend am Anfang des Codefensters stehen)
Name des Stores anpassen.
Damit werden dann alle Mails die in diesen Posteingang eingehen verarbeitet welche zumindest einen Slash(/) im Subject beinhalten.
Dim WithEvents itms As items
Private Sub Application_Startup()
Set itms = Session.Stores.Item("sammel@domain.de").GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub itms_ItemAdd(ByVal Item As Object)
If Item.Class = olMail Then
With item
If Instr(1,.Subject,"/",1) > 0 Then
.Subject = Split(.Subject,"/",2,1)(1)
.Save
End if
End With
End If
End Sub
Dim WithEvents itms As items
Private Sub Application_Startup()
With Application.GetNamespace("MAPI")
dim rec as Recipient
Set rec = .CreateRecipient("sammel@domain.de")
rec.Resolve
If rec.Resolved Then
Set itms = .GetSharedDefaultFolder(rec, olFolderInbox).Items
Else
MsgBox "Das angegebene Postfach wurde im Verzeichnis nicht gefunden!", vbExclamation
End If
End With
End Sub
Private Sub itms_ItemAdd(ByVal Item As Object)
If Item.Class = olMail Then
With item
If Instr(1,.Subject,"/",1) > 0 Then
.Subject = Split(.Subject,"/",2,1)(1)
.Save
End if
End With
End If
End Sub
Bei allen Varianten ist ein Neustart von Outlook Pflicht!!
Für noch mehr Support kannst du dich gerne via PM an mich wenden (kostenpflichtig).
Grüße Uwe
Falls der Beitrag gefällt, seid so nett und unterstützt mich durch eine kleine Spende / If you like my contribution please support me and donate