MAPI - p°esm∞rovßnφ zprßvy
Private Sub Form_Load()
MAPISession1.SignOn
MAPIMessages1.SessionID
= MAPISession1.SessionID
MAPIMessages1.Fetch
'P°esm∞rovßnφ
prvnφ zprßvy
MAPIMessages1.Forward
MAPIMessages1.RecipAddress
= "bozena@army.cz"
MAPIMessages1.Send False
MAPISession1.SignOff
End Sub