MAPI - smazání zprávy

Private Sub Form_Load()

   MAPISession1.SignOn

   MAPIMessages1.SessionID = MAPISession1.SessionID

   MAPIMessages1.Fetch

   'Smazání první zprávy
   MAPIMessages1.Delete
   MAPIMessages1.RecipAddress = "bozena@army.cz"
   MAPIMessages1.Send False

   MAPISession1.SignOff

End Sub

Zpět

Autor: The Bozena