'- 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)