If Outlook is running, this should work:

Dim OL as Object
Dim Appt as Object
Set OL=GetObject(,"Outlook.Application")
Set Appt=OL.CreateItem(1)
Appt.Display

For more VBA questions, please post to microsoft.public.outlook.program_vba

--
Best regards
Michael Bauer - MVP Outlook

: Outlook Categories? Category Manager Is Your Tool
: VBOffice Reporter for Data Analysis & Reporting
: http://www.vboffice.net/product.html?pub=6&lang=en



Am Tue, 9 Dec 2008 04:48:00 -0800 schrieb Memphis:

Hello,
I use a 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