Sets or gets the month of the year.
Syntax:
<sMonth> = object.Month
object.Month = <sMonth>
Remarks:
Valid values for the months are:
- “Jan”
- “Feb”
- “Mar”
- “Apr”
- “May”
- “Jun”
- “Jul”
- “Aug”
- “Sep”
- “Oct”
- “Nov”
- “Dec”
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 "Month: " & oDate.Month
oDate.Month = "Dec"
oMailDocument.Save App.Path & "\Output.TXT"
MsgBox "Done"
Samples