Hallo zusammen...
ich bin schon ein bisschen am basteln... ich versuche gerade mir per vba die Kategorie der markierten Email ausgeben zu lassen. Dafür habe ich mittlerweile zwei Ansätze gefunden. Allerdings kommt beides mal der Fehler "Typen unverträglich".
Ansatz1:
Code:
Option Explicit
Sub Categorie_of_Selection()
Dim objItem As Outlook.MailItem
Dim Name As String
Dim objSelection As Outlook.Selection
Set objSelection = Application.ActiveExplorer.Selection
Select Case objSelection.Count
Case 0
MsgBox "Es sind keine Mails ausgewählt !"
Case Else
For Each objItem In objSelection 'Fehler: Typen unverträglich
Debug.Print "Category: " & objItem.Categories
Next
End Select
End Sub
In einer Reihe anderer Blogeinträge finde ich das so geschrieben... wenn ich deren Lösungen für ähnliche Probleme ausprobiere kommt bei mit der Fehler.
Ansatz 2:
Code:
Option Explicit
Sub Categorie_of_Selection_next()
Dim objItem As Outlook.MailItem
Dim Name As String
Dim objSelection As Outlook.Selection
Set objSelection = Application.ActiveExplorer.Selection
Set objItem = objSelection.Item(1)'Fehler: Typen unverträglich
Name = objItem.Categories
MsgBox SubfolderName
End Sub
Meine Eigenkreation...
Ich hoffe das jemand von euch zu einem der Ansätze die zündende Idee hat.
Gruß Nils
|