Vyhoď tieto riadky:
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Mne osobne spôsobovali problém v totožnom kóde práve tieto dva riadky (v Office 2010)
P.S.
A ešte by som opravil
'text zprávy
.Body = "Kotrola"
na "Kontrola"
ale to by nemalo spôsobovať problémy