>Does anybody have an example on how to create an appointment in Outlook 98 ?
>
>Regards,
Here's one way:
ox = CREATEOBJECT( "Outlook.Application" )
on = ox.GetNameSpace( "MAPI" )
oFolder = on.GetDefaultFolder( 9 ) && Default folder, might need to get a different folder
oEvent = oFolder.Items.Add( 1 )
oEvent.Subject = "My subject text"
oEvent.Start = {mm/dd/yy}
oEvent.End = {mm/dd/yy}
oEvent.Display
Bill
William A. Caton III
Software Engineer
MAXIMUS
Atlanta, Ga.