STRUUUUUGGGGLING !!!!!!! to Creating Outlook appointments

paulmcdonnell

Ready to Help
Local time
Today, 07:23
Joined
Apr 11, 2001
Messages
167
Hi guys,

I'm really having trouble to get access to use appointment information to create an equivalent appointment in outlook.

I've used the follwing code, but I'm getting confused with my coding..can anyone help

Dim outobj As Outlook.Application
Dim outappt As Outlook.AppointmentItem
Set outobj = CreateObject("outlook.application")
Set outappt = outobj.CreateItem(olAppointmentItem)

With outappt
.START = me.App_date
.Subject = me.notes
.Body = me.body
.Save
End With
End sub


Cheers
Paul.
 

Users who are viewing this thread

Back
Top Bottom