Ξεκινήστε το Microsoft Office 2007 και επιλέξτε την καρτέλα "Προγραμματιστής " . Κάντε κλικ στο " Visual Basic" και επιλέξτε " Εργαλεία ". Κάντε κλικ στο " Αναφορές" ελέγχουν " Microsoft Outlook 12.0 Object Library " και επιλέξτε "OK". 2
Πληκτρολογήστε το παρακάτω, για να δημιουργήσετε ένα νέο sub :
Sub sendEmail ( )
Press " . Enter"
εικόνων 3
Πληκτρολογήστε τα παρακάτω για να δημιουργήσετε μεταβλητές σας :
Dim oLookApp Όπως Outlook.Application
Dim oLookMail Όπως Outlook.MailItem
Η 4
Πληκτρολογήστε το παρακάτω, για να εκχωρήσετε το αντικείμενο προοπτικές και να δημιουργήσετε ένα νέο μήνυμα ηλεκτρονικού ταχυδρομείου :
Set oLookApp = νέα Outlook.Application
Set oLookMail = oLookApp.CreateItem ( 0 )
5
Πληκτρολογήστε το παρακάτω, για να καθορίσει τις μεταβλητές για το email σας : .
με oLookMail
να = " john.doe @ yahoo . com "
. Θέμα = " βιβλίου μου "
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα