sortierbares Feld VonDomain

Vielen Dank an dieses Forum

Das Anzeigefeld für die Emailadressen statt dem Anzeigenamen habe ich nach dem Kochbuch aus diesem Forum nachbauen können. Leider war diese Lösung aber nicht sortierbar oder gruppierbar.
https://www.mailhilfe.de/beitrag-anzeige-der-absende-adresse-in-outlook-1823-html

Daher habe ich noch eine andere VB Lösung gesucht und heute Vormittag einen Ansatz per gefunden, die damit zu tun hat ein neues Feld für JJJJMM zu setzen

Diesen habe ich adaptiert – und here it is:

Sub VonDomSetzen()
Dim olNameSpace As NameSpace
Dim olInputBox As MAPIFolder
Dim NewField2 As UserProperty
Dim intMails As Integer, i As Integer
On Error Resume Next
Set olNameSpace = Application.GetNamespace(\“MAPI\“)
Set olInputBox = _
olNameSpace.GetDefaultFolder(olFolderInbox)
intMails = olInputBox.Items.Count
For i = 1 To intMails
With olInputBox.Items(i)
Set NewField2 = _
.UserProperties.Add(\“VonDomVB\“, olText)
NewField2.Value = _
.SenderEmailAddress
SplitString = Mid(NewField2.Value, InStr(NewField2.Value, \“@\“), Len(NewField2.Value) –
InStr(NewField2.Value, \“@\“) + 1)
NewField2.Value = SplitString
.Save
End With
Next i
End Sub

Ohne Gewähr
Bei mir funktioniert es in OL2003
Einfach in VB mit Alt-F11 in ein neues Modul reinkopieren – Run – Wait – Dann findet man das gefüllte Feld VonDomVB

Die Routine erfasst IMMER ALLE Einträge des Posteingangs.
Da gibt es noch eine Automatik, mit der man nur die neuen Einträge updaten kann.

Michael