Sorry I forgot to mention that AddressOf can only be used in a standard
module (*.bas) so you'll have to add that to your project.

As for problem #1, I have no idea off the top of my head, but one wonders
why you are creating a new Application object instead of using "Application"
which is already available.

Set objAppoinemt = Application.CreateItem(olAppointmentItem)

--
Josh Einstein
Einstein Technologies
Microsoft Tablet PC MVP
Tablet Enhancements for Outlook 2.0 - Try it free for 14 days
www.tabletoutlook.com


"dim4x4" wrote in message
ups.com...
Guys, sorry can't figure it out. Could you please help a bit more?

PROBLEM 1:

This is my macro, but it doesn't do anything

Public Sub AddAppointment()

Dim objApp As Outlook.Application
Dim objAppointment As Outlook.AppointmentItem
Dim datStart As Date

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

Set objApp = New Outlook.Application
Set objAppointment = objApp.CreateItem(ItemType:=olAppointmentItem)

With objAppointment
.Subject = "Call "
.Start = datStart
.Duration = 5
.ReminderMinutesBeforeStart = 0
.Subject = "Call "
.Save
.Display
End With

End Sub


PROBLEM 2:

Maybe when I was editing the macros I've put something on the wrong
line, but it breaks in macro Private Sub SetPositionInternal
on the line EnumChildWindows hwnd, AddressOf EnumWindowProc, 0 giving
error
Compile error:
Invalid use of AddressOf operator

Any ideas? Thank you!