Mit VBA e-mail versenden inkl. Zur Nachverfolgung

Hallo Zusammen,

ich möchte mit VBA eine E-Mail versenden, die eine Nachverfolgung beinhaltet.E-Mail schreiben und versenden ist kein Problem. Frage: Kann ich eine Nachverfolgung intergrieren von 3 Tagen nach Erhalt der Mail?

Hier mein Code:

Public Dateiname As String
Dim olApp As Object
Set olApp = CreateObject(\“Outlook.Application\“)
With olApp.CreateItem(0)
.To = \“Ard1@mail.de\“
.Cc = \“Adr2@mail.de\“
.Subject = \“Muster-Mail\“
.Body = \“Sehr geehrte Damen und Herren\“ + Dateiname
.Attachments.Add \“c:\\Dok1.doc\“
.Display
End With
Set olApp = Nothing

Vielen Dank im Voraus.