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 MAPIMessages1.SessionID
= MAPISession1.SessionID 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". |
![]() |
Autor: The Bozena |