Forget about #2, you can't control the cursor position except by using
SendKeys and that can be very buggy and depending on where the cursor starts
out can be unpredictable.

If one item is selected in the current view of the calendar then use this
for #1:

Dim datStart As Date

datStart = Application.ActiveExplorer.Selection.Item(1).Start

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"dim4x4" wrote in message
ups.com...
Hello everybody!

This is my first message here and first macro I'm trying to do in
Outlook (I did some for Excel before, albeit with macro recorder =)

Basically, I'm creating a new appointment (the code was borrowed from a

message from this group or some forum). Below is part of the code and 2

things I'm struggling to do.

With objAppointment
.Subject = "Call "
.Start = ' PROBLEM 1: Here I want to put a time of a current
selection in a daily view of the calendar (don't know how to do it)
.Duration = 5
.ReminderMinutesBeforeStart = 0
.Save
.Display
End With

PROBLEM 2: When appointment is created and opened I was the cursor to
be in a subject line after the word "Call ", so that I can finish
typing the subject, eg. "Call Bill Gates" =)

Would appreciate any advise. Thank you!