MAPI - tvorba zpráv

Nejjednodušší cestou, jak vytvořit a odeslat novou zprávu je, že veškerou špinavou práci necháte udělat Váš defaultní poštovní program, například takto:

Private Sub Form_Load()

   MAPISession1.SignOn

   MAPIMessages1.SessionID = MAPISession1.SessionID

   MAPIMessages1.Compose
   MAPIMessages1.Send True

   MAPISession1.SignOff

End Sub

Jistě, je to velmi jednoduché, ale přicházíte o možnost kontroly chování Vaší aplikace. Pokud chcete mít kompletní kontrolu nad Vaší aplikací, použijte tento kód:

Private Sub Form_Load()

   MAPISession1.SignOn

   MAPIMessages1.SessionID = MAPISession1.SessionID

   MAPIMessages1.Compose
   MAPIMessages1.RecipAddress = "bozena@army.cz"
   MAPIMessages1.MsgSubject = "Tvoje stránky jsou nejlepší"
   MAPIMessages1.MsgNoteText = "Tvůj seriál o MAPI je skutečně užitečný"

   MAPIMessages1.Send False

   MAPISession1.SignOff

End Sub

Tím, že zašlete metodě Send parametr False zabráníte tomu, aby zobrazil svůj formulář pro sestavení nové zprávy. Je třeba si jen dát pozor, aby RecipAddress byla korektní. Zkuste přidat tento kód před řádek s příkazem Send:

   MAPIMessages1.Show

Tato řádka zobrazí Adresář, takže uživatel si pak může vybrat jednoho nebo více příjemců zprávy. Pokud nastavíte vlastnost AddressModifiable na True, pak může uživatel v adresáři dělat úpravy příjemcovi adresy.

Zpět Další

Autor: The Bozena