Outlook reminder
 

Hello all,

How do I via vba write code that will automatically put in a reminder two
days out when an email is sent out from excel?

Example. I have an excel sheet that checks for corrections of a form, once I
have made the corrections via excel userform, I have a commandbutton (email)
that opens an outlook message, pastes my comments, inserts email addresses
etc. What I would also like to do is write code that creates a reminder in
outlook that will remind me to email after a couple of days.

Here is the code that I use to send the message from excel of which I got
from this site, many thanks:
Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)

With OutMail

..to = "
..CC = " "
..BCC = " "
..Subject = "OER for " & Worksheets("Correction_Sheet").Range("b3") &
", Thru date " & Worksheets("Correction_Sheet").Range("e5") & "."
..Body = Focus
..Display
Application.Wait (Now + TimeValue("0:00:04"))
Application.SendKeys "%esf{enter}"

End With

Set OutMail = OutApp.CreateItem(0)
Set OutApp = Nothing

Please help.