'- Header Object -
 
Set oHeader = .HeaderInfo(dwMailNr)
With oHeader
    szMailFrom = .MailFrom
    szSubject = .Subject
    szHeaderID = .Id
    szMimeDate = .RecieveDate
    szMimeTime = .RecieveTime
End With
 
'- Message Object -
 
With oMessage
    szMailFrom = .ExtractEMail(szMailFrom)
    szMimeDate = .MIMEDateToLocalDate(szMimeDate)
    szMimeTime = DateAdd("h", -2, .MIMEDateToLocalTime(szMimeTime))
End With

CardManager (SmartCard Tools a la CARD)