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 :)
|