Sets or gets the time zone.
Syntax:
<sTimeZone > = object.TimeZone
object.TimeZone = <sTimeZone >
Remarks
Valid values for time zone are:
- “UT”
- “GMT”
- “EST”
- “EDT”
- “CST”
- “CDT”
- “MST”
- “MDT”
- “PST”
- “PDT”
- A letter for military (example Z, A,M,N,Y)
- Local differential in the format: (+|-)NNNN. Where NNNN is 4 numeric digits. Example, “+0480”.
Example:
Dim oEdiDoc As Fredi.ediDocument
Dim oMailDocument As Fredi.mailDocument
Dim oSubjMsg As Fredi.mailMessage
Dim oDate As Fredi.mailDate
' Create instance of Framework EDI.
Set oEdiDoc = New Fredi.ediDocument
' Get internet mail document object
Set oMailDocument = oEdiDoc.GetMailDocument
' Load EDI document normally.
oMailDocument.Load App.Path & "\SampleMail.TXT"
' Get subject document.
Set oSubjMsg = oMailDocument.GetMessage
' Get the date.
Set oDate = oSubjMsg.GetHeaderTypeDate("Date")
Debug.Print "Time Zone: " & oDate.TimeZone
oDate.TimeZone = "EDT"
oMailDocument.Save App.Path & "\Output.TXT"
MsgBox "Done"
Samples