Gets a header having a Date type.
Syntax:
Parameter:
Returns:
If successful an object of FREDI.mailDate is returned otherwise NULL or empty.
Remarks:
If the header specified by the field name is not a Date type the operation fails and returns NULL.
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 header type.
Set oDate = oSubjMsg.GetHeaderTypeDate("Date")
' Set the local time.
oDate.SetLocalTime
oMailDocument.Save App.Path & "\Output.TXT"
MsgBox "Done"
Samples