1 Ανοίξτε το Microsoft Excel . 2
Κάντε κλικ στο " Εργαλεία ", " Macro " και στη συνέχεια " Visual Basic" . Αυτό θα ανοίξει το περιβάλλον προγραμματισμού VBA .
Εικόνων 3
Κάντε κλικ στο " Εισαγωγή " και στη συνέχεια " ενότητα ". Είστε τώρα σε μια λειτουργική μονάδα κώδικα προγραμματισμού
Η 4
Πληκτρολογήστε ή αντιγράψτε και επικολλήστε τις παρακάτω επιμέρους διαδικασίες στη λειτουργική μονάδα κώδικα : .
Sub UsingDisposeAndNothingEx ( )
Dim objOutlook As Object
objOutlook = GetObject ( " Outlook.Application " )
Εάν Err.Number <> 0 τότε MessageBox.Show ( "Παρακαλώ ανοίξτε το Outlook " )
objOutlook = Τίποτα
objOutlook.dispose ( )
End Sub
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα