VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Application_NewMailEx Kategorie	03.05.2019 11:22:41	Bernd Pongratz
Application_NewMailEx Kategorie	03.05.2019 12:01:34	Gast43465
Application_NewMailEx Kategorie	03.05.2019 12:07:26	Bernd Pongratz
Application_NewMailEx Kategorie	04.05.2019 16:41:26	Gast76944
Application_NewMailEx Kategorie	06.05.2019 08:35:11	Gast45327

Ansicht des Beitrags:

Von:
Bernd Pongratz

Datum:
03.05.2019 11:22:41

Views:
993

Rating:

Antwort:

Thema:
Application_NewMailEx Kategorie

Servus,

hab mir einen VBA Code erstellt der wenn zwei # im Betreff sind den Inhalt zwischen den zwei # ausliest und diese als Kategorie verwendet.
Das Problem Kurze Zeit später löscht etas die Kategorie wieder raus.

Windows 10, Office 365

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
'Quellen
'http://www.outlookcode.com/article.aspx?id=62
'https://www.diewebmaster.it/betreff-emails-modifizieren-vba/comment-page-1/
    Dim arr() As String
    Dim i As Integer
    Dim ns As Outlook.NameSpace
    Dim itm As MailItem
    Dim m As Outlook.MailItem
    Dim Betreff As String
    
    On Error Resume Next
    
    Set ns = Application.Session
    arr = Split(EntryIDCollection, ",")
    For i = 0 To UBound(arr)
        Set itm = ns.GetItemFromID(arr(i))
        Betreff = m.Subject
        If Len(Betreff) - Len(Replace(Betreff, "#", "")) = 2 Then
        Betreff = Mid(Betreff, InStr(Betreff, "#") + 1, InStrRev(Betreff, "#") - InStr(Betreff, "#") - 1)
        'MsgBox Betreff
        m.Categories = Betreff
        m.Save
        End If
    Next
   ' Set ns = Nothing
   ' Set itm = Nothing
   ' Set m = Nothing

End Sub

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
Application_NewMailEx Kategorie	03.05.2019 11:22:41	Bernd Pongratz
Application_NewMailEx Kategorie	03.05.2019 12:01:34	Gast43465
Application_NewMailEx Kategorie	03.05.2019 12:07:26	Bernd Pongratz
Application_NewMailEx Kategorie	04.05.2019 16:41:26	Gast76944
Application_NewMailEx Kategorie	06.05.2019 08:35:11	Gast45327