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