home | get Sue’s code | forums | share code | registration

Outlook Technologies

Outlook Forms

Languages

Samples

More Outlook Resource Sites

Microsoft Developer Network (MSDN)

FAQs and other general resources

share code 09-Feb-2010 11:13

Looking for help with Outlook programming projects — VSTO, add-ins, VBA, custom Outlook forms, etc.? You′ve come to the right place!

NEW! >> Subscribe to this site via RSS. For more RSS options, see the complete list of feeds on our main news page.

Code level: intermediate Code area: Outlook Expert Techniques Printer Friendly Version
Title: Dealing with Timezones in CDO 1.21 calendaring
Description: Then creating appointments in another user calendar, I have had a little trouble setting dates correct in some circumstances. The problem was that the user had another timezone set on the Exchange server than the user creating the appointment. I found a solution that temporarily changes the user's timezone with Session.SetOption solved the problem.
Date: 31-Oct-2002 15:27
Code level: intermediate
Code area: Outlook Expert Techniques
Posted by: Christian Gram
Body: Dim objMySession As MAPI.Session Dim objUsersSession As MAPI.Session Dim MyTimeZone As Long Dim UsersTimeZone As Long Dim ExchangeServer As String Dim ExchangeUser As String ExchangeServer = "Server" ExchangeUser = "User" ' First get own timezone Set objMySession = New MAPI.Session objMySession.Logon , , False, False MyTimeZone = objMySession.GetOption("TimeZone") objMySession.Logoff Set objMySession = Nothing ' Log on to users session On Error Resume Next Set objUsersSession = New MAPI.Session objUsersSession.Logon , , False, True, 0, True, ExchangeServer & vbLf & ExchangeUser If Err 0 Then ' Can not log on to users mailbox. Exit End If ' get timezone UsersTimeZone = objUsersSession.GetOption("TimeZone") If UsersTimeZone MyTimeZone Then objUsersSession.SetOption "TimeZone", MyTimeZone If Err 0 Then ' not allowed. Exit because it is not safe to continue End If End If On Error GoTo 0 ' Create appointment '... '... ' Done Create appointment ' Re-establish the users time zone If UsersTimeZone MyTimeZone Then objUsersSession.SetOption "TimeZone", UsersTimeZone End If objUsersSession.Logoff Set objUsersSession = Nothing
All 3comments

	Page [ 1 ]
	Christian Gram 31-Oct-2002 15:27 Cool sample! Thanks, Christian.
	Brian Kronberg 26-Sep-2005 14:50 What are the operators in the IF statements?
	Sue Mosher 13-Oct-2005 10:15 Brian, I imagine they're <>. Christian's sample predates a fix we made to the site to keep it from eating <> characters.
	Page [ 1 ]

name email

Search Outlook Code