MAPI - hlavičky zpráv

Přidejte si ListBox na Váš formulář a nazvěte jej List1. Potom přidejte následující kód a spusťte aplikaci:

Private Sub Form_Load()

   Dim i As Long

   MAPISession1.DownloadMail = True
   MAPISession1.SignOn

   MAPIMessages1.SessionID = MAPISession1.SessionID
   MAPIMessages1.Fetch

   If MAPIMessages1.MsgCount > 0 Then
      For i = 0 To MAPIMessages1.MsgCount-1
         MAPIMessages1.MsgIndex = i
         List1.AddItem "Od: " & MAPIMessages1.MsgOrigDisplayName & _
            "Předmět: " & MAPIMessages1.MsgSubject
      Next i
   Endif

   MAPISession1.SignOff

End Sub

Po spuštění aplikace se v ListBoxu objeví seznam zpráv ve Vaší poštovní schránce a každá zpráva má odesílatele a název. Tento kód je poměrně triviální až na řádku s MsgIndex. Komponenta MAPIMessage totiž má pole, které používá pro uložení každé zprávy zvlášť. Změnou hodnoty MsgIndex v podstatě jenom měníte ukazatel na prvek pole. Také raději používám MsgOrigDisplayName namísto MsgOrigAddress - zaměňte si to v kódu a uvidíte ten rozdíl - zatímco MsgOrigAddress vrací emailovou adresu odesílatele, MsgOrigDisplayName vrací jméno odesílatele. Zkráceně, místo "bozena@army.cz" uvidíte "The Bozena".

Zpět Další

Autor: The Bozena