Try this

Public Sub MakeOutlookAppointment()
Dim Outlook As Object
Dim Appointment As Object
Const Item = 1

Set Outlook = CreateObject("Outlook.Application")
Set Appointment = Outlook.CreateItem(Item)

Appointment.Subject = Range("A2").Value
Appointment.Start = Format(Range("B2").Value, "hh:mm AMPM") + _
Format(Range("C2").Value, "mm/dd/yyyy")

Appointment.End = Format(Range("D2").Value, "hh:mm AMPM") + _
Format(Range("E2").Value, "mm/dd/yyyy")

Appointment.ReminderPlaySound = True
Appointment.Save

Outlook.Quit
Set Outlook = Nothing
End Sub



"Memphis" wrote:

Hello,
I case control sheet in Excel, I need to follow-up on cases I work on so I
use Outlook to create follow-up reminders after I mail out documents to
individuals.
I run Outlook in the background all the time.
I figured how to add a cmd button to excel to launch Outlook
(Application.ActivateMicrosoftApp xlMicrosoftMail). I would like to take it a
step farther and be able to Launch Outlook and display a new blank
appointment for todays date so that I may create a new appointment and add a
reminder.

Thank you.