all done )

' nastarteni outlocku
Dim objOL As New Outlook.Application
Dim objMail As MailItem
Set objOL = New Outlook.Application
Set objMail = objOL.CreateItem(olMailItem)

With objMail
.To = "mejl.nejakej@provajdr.com"
.subject = "subject"
.Body = "hokus pokus a abraka dabra"
.Display
AppActivate objMail ' vobjeveni melju na screenu
SendKeys "%d" ' a vochcavka maximalni, poslat nu natvrdo at to posle

End With
'chcipnuti outlocku
Set objMail = Nothing
Set objOL = Nothing