Hi,
I würde gerne ein Makro zur Nachverfolgung von Nachrichten in Outlook erstellen, da man über einen Schnellzugriff nicht an das Textfeld dran kommt.
Hier mein Code:
Public Sub SetKennzeichnung()
Dim Mail As Outlook.MailItem
Dim obj As Object
Dim Sel As Outlook.Selection
Dim Item As Object
Dim i&
Set obj = Application.ActiveWindow
If TypeOf obj Is Outlook.Explorer Then
Set Sel = obj.Selection
For i = 1 To Sel.Count
Set obj = Sel(i)
If TypeOf obj Is Outlook.MailItem Then
Set Mail = obj
Mail.MarkAsTask Icon
Mail.TaskSubject = "Test"
Mail.Save
End If
Next
Else
Set obj = obj.CurrentItem
If TypeOf obj Is Outlook.MailItem Then
Set Mail = obj
Mail.MarkAsTask Icon
Mail.TaskSubject = "Test"
Mail.Save
End If
End If
End Sub
Alles funktioniert gut, außer dass das "TaskSubject" nicht auf "Test" gesetzt wird, sondern den Standardtext erhält ("Zur Nachverfolgung").
Hat jemand eine Idee, was da schief geht?
Danke und Gruß
Jan
|