T
Thomas Kroljic
I have an Access program that is creating appointments in Outlook 2002. Over
the last week, two new PC's have been added to the network and have Outlook
2003.
Are there any issues that I need to address to ensure that my code (see
below) works for both Outlook 2002 and 2003?
Dim outobj As Outlook.Application
Dim outappt As Outlook.AppointmentItem
Set outobj = CreateObject("outlook.application")
Set outappt = outobj.CreateItem(olAppointmentItem)
With outappt
.Start = Me.txtTicklerDate + #9:00:00 AM#
If Form_Contacts.CompanyName > " " And _
Form_Contacts.Institution = True Then
.Subject = Form_Contacts.CompanyName
Else
.Subject = Form_Contacts.LastName & ", " &
Form_Contacts.FirstName
End If
.Body = Me.txtTicklerText
.Location = Form_Contacts.StoreDesc
.ReminderMinutesBeforeStart = 10
.ReminderSet = True
.Save
End With
' Release the Outlook object variable.
Set outobj = Nothing
Set outappt = Nothing
Thank you,
Thomas J. Kroljic
the last week, two new PC's have been added to the network and have Outlook
2003.
Are there any issues that I need to address to ensure that my code (see
below) works for both Outlook 2002 and 2003?
Dim outobj As Outlook.Application
Dim outappt As Outlook.AppointmentItem
Set outobj = CreateObject("outlook.application")
Set outappt = outobj.CreateItem(olAppointmentItem)
With outappt
.Start = Me.txtTicklerDate + #9:00:00 AM#
If Form_Contacts.CompanyName > " " And _
Form_Contacts.Institution = True Then
.Subject = Form_Contacts.CompanyName
Else
.Subject = Form_Contacts.LastName & ", " &
Form_Contacts.FirstName
End If
.Body = Me.txtTicklerText
.Location = Form_Contacts.StoreDesc
.ReminderMinutesBeforeStart = 10
.ReminderSet = True
.Save
End With
' Release the Outlook object variable.
Set outobj = Nothing
Set outappt = Nothing
Thank you,
Thomas J. Kroljic