Hallo zusammen,

ich habe folgenes kleines Problem. Ich möchte in Outlook 365 von einer angewählten Email den Betreff ändern, so dass das Datum, der Empfänger und der eigentliche Betreff drinnen stehen. Dazu habe ich ein paar Zeilen geschrieben:

Public Sub InsertDate()

Dim objItem As Object

Dim r As Recipient
Dim RecipientsText As String

For Each r In objItem.Recipients
RecipientsText = RecipientsText & r.Name
Next

Set objItem = Outlook.ActiveInspector.CurrentItem

objItem.Subject = Format(objItem.ReceivedTime, "yyyy-mm-dd") & " - " & RecipientsText & " - " & objItem.Subject

End Sub

Allerdings bekomme ich den Fehler: Lauftzeitfehler 91

Es scheint, dass die Variablen nicht richtig definiert sind, aber ich komme nicht drauf. Vielleicht habt ihr eine Idee :)