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.
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.