I've figured out the code below to add appointments to outlook from access. However, I have a drop down box with time zones. The box is named "Time Zone" and it has values "PST, EST, MST, MDT, CST, CDT" for the time zones. How can I direct outlook to recognize the time zone depending on which one is selected so when I click my command, it inserts the appointment in the right time zone slot?
I've looked into .starttimezone and .endtimezone but I can't seem to get it to work with my drop down selections. Any ideas of code would be great!
' Save record first to be sure required fields are filled.
' Exit the procedure if appointment has been added to Outlook.
If Me!AddedToOutlook = True Then
MsgBox "This appointment already added to Microsoft Outlook"
' Add a new appointment.
Dim outobj As Outlook.Application
Dim outappt As Outlook.AppointmentItem
Set outobj = CreateObject("outlook.application")
Set outappt = outobj.CreateItem(olAppointmentItem)
.Start = Me!ApptDate & " " & Me!ApptTime
.Duration = Me!ApptLength
.Subject = Me!Appt
If Not IsNull(Me!ApptNotes) Then .Body = Me!ApptNotes
If Not IsNull(Me!ApptLocation) Then .Location = _
If Me!ApptReminder Then
.ReminderMinutesBeforeStart = Me!ReminderMinutes
.ReminderSet = True
' Release the Outlook object variable.
Set outobj = Nothing
' Set the AddedToOutlook flag, save the record, display a message.
Me!AddedToOutlook = True
MsgBox "Appointment Added!"
MsgBox "Error " & Err.Number & vbCrLf & Err.Description