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Üφ