1 Ενεργοποιήστε τον υπολογιστή σας και να ξεκινήσετε το Microsoft Visual Studio . NET . Κάντε κλικ στο μενού "Αρχείο" , κάντε κλικ στο κουμπί " Νέα ", και στη συνέχεια κάντε κλικ στο κουμπί "Project ". 2
Επιλέξτε και κάντε κλικ στο " Έργα της Visual Basic " στο " Τύποι έργου , " και στη συνέχεια κάντε κλικ στο κουμπί "Console εφαρμογή " υπό τον τίτλο" Πρότυπα . "Αυτό θα δημιουργήσει ένα προεπιλεγμένο πρότυπο το οποίο θα ονομάζεται" Module1.vb . "
εικόνων 3
Προσθέστε μια αναφορά για το " Microsoft Outlook 11.0 Object Library " , ώστε θυμάστε το έργο σας σε περίπτωση που δεν μπορεί να ολοκληρωθεί σε μία συνεδρίαση . Επιλέξτε το μενού "Έργο" και κάντε κλικ στο " Add Reference . "
Η
4 Μεταβείτε στην καρτέλα " COM " , κάντε κλικ στο " Microsoft Outlook 11.0 Object Library " και στη συνέχεια κάντε κλικ στο κουμπί " Επιλογή ". Κάντε κλικ στο " OK "στο " " παράθυρο διαλόγου Προσθήκη αναφορές για αποδοχή των επιλογών σας . Εάν το λογισμικό σας ζητά να δημιουργήσετε περιτυλίγματα για τη βιβλιοθήκη που έχετε επιλέξει , κάντε κλικ στο κουμπί "Ναι".
5
Μετακινήστε το ποντίκι σας στο παράθυρο " κώδικας " . Διαγραφή υπάρχοντες κώδικες. Αντιγράψτε και επικολλήστε τον κώδικα στο Βήμα 6 και επικόλληση στο παράθυρο " κώδικας " .
Η 6
Εισαγωγές System.ReflectionImports Outlook = Microsoft.Office.Interop.Outlook
Module Module1
Sub Main ( ) ' Δημιουργία μιας εφαρμογής Outlook . Dim oApp Όπως Outlook.Application = Νέα Outlook.Application ( )
'Δημιουργία νέου AppointmentItem . Dim oAppt Όπως Outlook.AppointmentItem = oApp.CreateItem ( Outlook.OlItemType.olAppointmentItem )
« Ορίστε κάποιες κοινές ιδιότητες . oAppt.Subject = " Δημιουργήθηκε με τη χρήση OOM σε VB . NET " oAppt.Body = " Hello World " oAppt.Location = " Δωμάτιο 1201 "
oAppt.Start = Convert.ToDateTime ( " 05 /31/2004 9:00:00 π.μ. " ) oAppt.End = Convert.ToDateTime ( " 5/31/2004 1:00:00 PM " ) oAppt.ReminderSet = True oAppt.ReminderMinutesBeforeStart = 5 oAppt.BusyStatus = Outlook . OlBusyStatus.olBusy oAppt.IsOnlineMeeting = False
» Αποθήκευση στο Ημερολόγιο . oAppt.Save ( )
« Clean up . oApp = Τίποτα oAppt = Nothing End
SubEnd Ενότητα
Η 7
Κάντε οποιεσδήποτε αλλαγές στον κώδικα για να την κάνουμε να λειτουργήσει για την κατάστασή σας , αν είστε ειδικευμένοι σε κώδικα VB.net γραπτώς.
8
Πιέστε το πλήκτρο F5 στο πληκτρολόγιό σας για να οικοδομήσουμε , να εγκαταστήσετε και να εκτελέσετε το πρόγραμμα ημερολογίου Vb.Net .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα