Πώς να χρησιμοποιήσετε το Excel στο e-mail

Στέλνοντας ένα e - ail από το Microsoft Office Excel με τη χρήση της Visual Basic for Applications ( VBA ) μπορεί να σας εξοικονομήσει χρόνο , όταν χρειάζεται να στείλετε email δεδομένα από το φύλλο εργασίας σας . Μία προσέγγιση είναι να χρησιμοποιήσετε το σύστημα διαχείρισης ηλεκτρονικού ταχυδρομείου Microsoft Outlook για να στείλετε e-mail σας από το Excel . Στο Excel , μπορείτε να χρησιμοποιήσετε VBA για την αυτοματοποίηση χειρωνακτικών εργασιών, όπως η αποστολή ενός e-mail . Με VBA μπορείτε να χρησιμοποιήσετε τη βιβλιοθήκη αντικειμένων του Microsoft Outlook για την αυτοματοποίηση των λειτουργιών ηλεκτρονικού ταχυδρομείου , όπως η δημιουργία και αποστολή μηνυμάτων ηλεκτρονικού ταχυδρομείου . Οδηγίες
Η 1

Launch Excel και κάντε κλικ στην καρτέλα "Προγραμματιστής " . Κάντε κλικ στο " Visual Basic" για να ανοίξετε το Microsoft Visual Basic παράθυρο . Κάντε κλικ στο μενού "Εργαλεία" και κάντε κλικ στο "Αναφορές ". Μετακινηθείτε προς τα κάτω το πλαίσιο λίστας και επιλέξτε το πλαίσιο δίπλα στο "

Κάντε κλικ στο "Εισαγωγή" μενού και κάντε κλικ στο " Ενότητα " για να εισάγετε μια νέα λειτουργική μονάδα κώδικα . Πληκτρολογήστε το παρακάτω, για να δημιουργήσετε μια νέα διαδικασία για να στείλετε email :

Sub sendEmail ( )

On Error GoTo Err_sendEmail :
3

Πληκτρολογήστε το παρακάτω, για να δηλώνουν τις μεταβλητές σας :

Dim oLookApp Όπως Outlook.Application

Dim oLookMail Όπως Outlook.MailItem

Dim dataToSend Όπως String
Η 4

Πληκτρολογήστε το παρακάτω, για να δημιουργήσει τα αντικείμενα του Outlook :

Set oLookApp = Νέα Outlook.Application

Set oLookMail = oLookApp.CreateItem ( 0 )
5

Πληκτρολογήστε το παρακάτω για να προσθέσετε δύο σειρές δεδομένων : . .

Range ( "A1" ) Επιλέξτε

ActiveCell.Value = " Δοκιμή δεδομένων 1 "

Range ( " A2 " ) Επιλέξτε

ActiveCell.Value = " Δοκιμή δεδομένων 2 "
Η 6

Πληκτρολογήστε το παρακάτω, για να αποθηκεύσετε τα δεδομένα σε μια μεταβλητή συμβολοσειράς : .

Range ( "A1" ) Επιλέξτε

dataToSend = ActiveCell.Value

Range ( " A2 " ) Επιλέξτε

dataToSend = . "Σειρά 1 : " & dataToSend & " .... Σειρά 2 : " & ActiveCell.Value
Η 7

Πληκτρολογήστε το παρακάτω, για να καθορίσει τις πληροφορίες e-mail και να το στείλετε : .

με oLookMail

να = " someemailaddress@domain.com "

. Θέμα = " Αποστολή Excel "

. σώματος = dataToSend

. στείλει

End With

Επεξεργαστείτε τη διεύθυνση ηλεκτρονικού ταχυδρομείου και πληκτρολογήστε το εργασίας διεύθυνση ηλεκτρονικού ταχυδρομείου
8

Πληκτρολογήστε το παρακάτω, για να τερματίσετε τη διαδικασία και να συλλάβει τυχόν σφάλματα : .

Exit_sendEmail :

Exit Sub

Err_sendEmail :

MsgBox Err.Description

Resume Exit_sendEmail :

End Sub
Η

9 Πατήστε το πλήκτρο " F5 " για να εκτελέσετε τη διαδικασία και να στείλετε ένα email από Excel.
Η
εικόνων