Change code to Late Binding

[DH]

What changes would need to be made to the following code snipped to make it late binding so that I do not need to reference the msoutl9.olb in the VBA references?

Here is the code:

Dim oOutlook As Outlook.Application
Dim oAppt As Outlook.AppointmentItem
Set oOutlook = New Outlook.Application
Set oAppt = oOutlook.CreateItem(olAppointmentItem)
With oAppt
.Start = due_date & " " & due_time
.Duration = ApptLength
.Subject = contactname & " - " & Notes
If Not IsNull(Notes) Then .body = Notes
If Not IsNull(ApptLocation) Then
.Location = ApptLocation
End If
If ApptReminder Then
.ReminderMinutesBeforeStart = ApptReminderMinutes
.ReminderSet = True
End If
.Save
End With
' Release Outlook object
Set oOutlook = Nothing

Thank you in advance for any suggestions/examples...

DH

 

[PHV]

Replace this:
Dim oOutlook As Outlook.Application
Dim oAppt As Outlook.AppointmentItem
Set oOutlook = New Outlook.Application
Set oAppt = oOutlook.CreateItem(olAppointmentItem)
By this:
Dim oOutlook As Object
Dim oAppt As Object
Set oOutlook = CreateObject("Outlook.Application")
Set oAppt = oOutlook.CreateItem(1) 'olAppointmentItem

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244