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