Mit diesem Code ich ja Emails verschicken:
Dim olApp As Object
Dim oItem As Object
Set olApp = CreateObject("Outlook.Application")
Set oItem = olApp.CreateItem(0)
With oItem
.Subject = "Betreff-Zeile"
.To = "xxxxx@xxxxx.com"
.Body = "Gerät: " & ActiveCell.Offset(0, 10) & " von Praxis " & ActiveCell.Offset(0, 4) & "bei Firma " & ActiveCell.Offset(0, 5) & " zur Reparatur--> Nachfrage!" '.Subjekt wird als Betreff im Outlook angegeben
.Send
End With
Ich möchte das die Email den Empfänger erst Tage später erreicht.
Gruß Kirsten
|