Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Otvorte aplikáciu Microsoft Excel . 
 2 
 Kliknite na " Nástroje " , " Makro " , a potom " Visual Basic " . Tým sa otvorí programovacie prostredie VBA . 
 3 
 Kliknite na " Vložiť " , potom " Module " . Teraz ste v programovacom module kóde 
 4 
 Zadajte alebo skopírujte a vložte nasledujúci čiastkové postupy v module kódu : . 
 
 Sub UsingDisposeAndNothingEx ( ) 
 
 Dim objOutlook As Object 
 
 objOutlook = GetObject ( , " Outlook.Application " ) 
 
 Ak err.number < > 0 Then MessageBox.Show ( " Prosím , otvorte aplikáciu Outlook " ) 
 
 objOutlook = Nothing 
 
 objOutlook.dispose ( ) 
 
 End Sub