Εκμάθηση Excel – Αποστολή email από το Excel

Κανονικά, χρησιμοποιούμε προγράμματα-πελάτες email όπως το Outlook, το Gmail κ.λπ. για την αποστολή email. Ωστόσο, πολλοί άνθρωποι αποθηκεύουν δεδομένα σε βιβλία εργασίας του Excel και πρέπει να στείλουν ορισμένα δεδομένα σε άλλους ενώ εργάζονται με αυτά. Επομένως, πρέπει να στέλνουν email απευθείας από το βιβλίο εργασίας του Excel, κάτι που εξοικονομεί χρόνο λειτουργίας ενός προγράμματος-πελάτη email. Αυτό το σεμινάριο βήμα προς βήμα θα σας δείξει πώς να στέλνετε μηνύματα ηλεκτρονικού ταχυδρομείου από το Excel υπό διαφορετικές συνθήκες.

Σημείωση: Πριν εφαρμόσετε τις ακόλουθες μεθόδους, πρέπει να διαμορφώσετε ένα πρόγραμμα-πελάτη ηλεκτρονικού ταχυδρομείου του Outlook στον υπολογιστή σας και να το ορίσετε ως το προεπιλεγμένο πρόγραμμα-πελάτη ηλεκτρονικού ταχυδρομείου.

1. Τα βασικά για την αποστολή email από το Excel

Αυτή η ενότητα εισάγει τα βασικά για την αποστολή email από το Excel.

1.1 Αποστολή email από το Excel με ενσωματωμένες λειτουργίες Excel

Εάν θέλετε να στέλνετε απλά μηνύματα ηλεκτρονικού ταχυδρομείου από το Excel, συμπεριλαμβανομένων μόνο των πεδίων Προς, Θέμα, Κοινοποίηση και κύριο μέρος. Οι ενσωματωμένες λειτουργίες στο Excel μπορούν να βοηθήσουν.

1.1.1 Στείλτε email από το Excel με τύπο

Όπως φαίνεται στον παρακάτω πίνακα, για να στείλετε διαφορετικά μηνύματα ηλεκτρονικού ταχυδρομείου από το Excel με βάση τα δεδομένα πεδία, μπορείτε να χρησιμοποιήσετε τις αναφορές κελιών των δεδομένων πεδίων για να δημιουργήσετε διαφορετικούς τύπους υπερ-σύνδεσης για να το ολοκληρώσετε. Αφού δημιουργήσετε τους υπερσυνδέσμους email, μπορείτε να κάνετε κλικ στον υπερσύνδεσμο που χρειάζεστε για να στείλετε αυτόματα ένα email.

Σημείωση: Εάν υπάρχουν περισσότεροι από ένας παραλήπτες στα πεδία Προς ή Κοιν., διαχωρίστε τους με ερωτηματικά.

Αυτή η ενότητα χωρίζεται σε τέσσερα μέρη για να σας δείξει τα βήματα για να προσθέσετε ξεχωριστά τη διεύθυνση email, τους παραλήπτες Κοινοποίησης, τη γραμμή θέματος και το κύριο κείμενο στον τύπο υπερσύνδεσης. Παρακαλώ κάντε το εξής.

Η σύνταξη και τα ορίσματα του ΥΠΕΡΣΥΝΔΕΣΜΟΣ λειτουργία έχουν ως εξής.

Σύνταξη

HYPERLINK(link_location, [friendly_name])

Επιχειρήματα

1.1.1.1 Προσθήκη διεύθυνσης email στον τύπο υπερσύνδεσης

Εδώ χρησιμοποιούμε "mailto:" ως μέρος του τύπου για την προσθήκη ενός παραλήπτη email. Σε αυτό το παράδειγμα, η διεύθυνση email του πρώτου παραλήπτη βρίσκεται στο κελί B2, επομένως πρέπει να προσθέσουμε το "mailto:" και να το αναφέρουμε στο κελί B2.

"mailto:"&B2

1. Επιλέξτε ένα κελί για να εμφανιστεί η υπερσύνδεση. Σε αυτήν την περίπτωση, επιλέγω το κελί F2.

2. Στη συνέχεια εισάγετε τον ακόλουθο τύπο σε αυτό.

=HYPERLINK("mailto:"&B2)

Σημείωση: Εάν πατήσετε το εισάγετε κλειδί, θα δημιουργηθεί ένας υπερσύνδεσμος όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Όταν κάνετε κλικ στη σύνδεση, θα δημιουργηθεί ένα μήνυμα ηλεκτρονικού ταχυδρομείου του Outlook και η διεύθυνση email του παραλήπτη θα συμπληρωθεί αυτόματα στο πεδίο Προς.

Η διεύθυνση email του παραλήπτη προστίθεται τώρα στον τύπο υπερσύνδεσης. Συνεχίστε με τα παρακάτω βήματα για να προσθέσετε τη γραμμή θέματος, τους παραλήπτες Κοιν. και το κύριο κείμενο όπως χρειάζεστε.

1.1.1.2 Προσθήκη παραλήπτη(ών) κοινοποίησης στον τύπο υπερσύνδεσης

Για να προσθέσετε τους παραλήπτες Κοινοποίησης στη συνάρτηση υπερσύνδεσης, προσθέστε "?cc=" ως μέρος της φόρμουλας ως εξής.

Ο τύπος στο κελί F2 θα πρέπει να είναι ο εξής:

=HYPERLINK("mailto:" & B2 & "?cc=" & C2)

1.1.1.3 Προσθήκη γραμμής θέματος στον τύπο υπερσύνδεσης

Για να προσθέσετε τη γραμμή θέματος στη συνάρτηση υπερσύνδεσης, προσθέστε "&subject=" ως μέρος της φόρμουλας ως εξής.

Ο τύπος στο κελί F2 θα πρέπει τώρα να μοιάζει με τον ακόλουθο:

=HYPERLINK("mailto:" & B2 & "?cc=" & C2 & "&subject="& D2)

1.1.1.4 Προσθήκη κυρίως κειμένου με αλλαγές γραμμής στον τύπο υπερσύνδεσης

Το τελευταίο βήμα είναι να προσθέσετε το κύριο κείμενο στον τύπο υπερσύνδεσης. Όπως μπορείτε να δείτε στο παράδειγμα, δύο γραμμές κειμένου στο E2 χωρίζονται από μια αλλαγή γραμμής και θέλετε να διατηρήσετε τη αλλαγή γραμμής στο σώμα του email. Αναγνωρίζει το Outlook τη διακοπή γραμμής σε αυτήν την περίπτωση; Ας το ελέγξουμε.

Για να προσθέσετε το κύριο κείμενο στον τύπο υπερσύνδεσης, πρέπει να προσθέσετε "&σώμα=" ως μέρος της φόρμουλας ως εξής.

Ο τύπος στο κελί F2 εμφανίζεται τώρα ως εξής:

=HYPERLINK("mailto:" & B2 & "?cc=" & C2 & "&subject="& D2 & "&body="& E2)

Σημείωση: Αν πατήσετε το κουμπί εισάγετε πληκτρολογήστε και κάντε κλικ στον σύνδεσμο. Μπορείτε να δείτε στο νέο email ότι τα περιεχόμενα στο σώμα του email εμφανίζονται στην ίδια γραμμή.

Για να εμφανίσετε το σώμα του email σε ξεχωριστές γραμμές, πρέπει να τροποποιήσετε το περιεχόμενο του κελιού προσθέτοντας τον κωδικό χαρακτήρα επιστροφής μεταφοράς %0A στο κείμενο όπου πρέπει να εισαγάγετε μια αλλαγή γραμμής. Δείτε στιγμιότυπο οθόνης:

1.1.1.5 Καθορίστε το κείμενο που θα εμφανίζεται για την υπερ-σύνδεση

Στα παραπάνω βήματα, ολοκληρώσαμε το όρισμα Link_location με πεδία email. Εδώ σε αυτήν την ενότητα, θα ολοκληρώσουμε το επόμενο όρισμα [friendly_name].

Σε αυτήν την περίπτωση, θέλω το κελί υπερσύνδεσης να εμφανίζει το κείμενο ως "Στείλτε email στο xx”, όπου xx είναι το όνομα του παραλήπτη στο A2. Έτσι, ο τύπος στο F2 πρέπει να αλλάξει σε:

=HYPERLINK("mailto:" & B2 & "?cc=" & C2 & "&subject="& D2 & "&body="& E2, "Email to "&A2)

Πατήστε το κουμπί εισάγετε κλειδί για να λάβετε το αποτέλεσμα.

Επιλέξτε αυτό το κελί τύπου και σύρετέ το Λαβή αυτόματης συμπλήρωσης κάτω για να δημιουργήσετε άλλους υπερσυνδέσμους email. Δείτε στιγμιότυπο οθόνης:

1.1.2 Αποστολή email από το Excel με τη λειτουργία Υπερσύνδεση

Εκτός από τη χρήση του παραπάνω τύπου υπερ-σύνδεσης, μπορείτε να δημιουργήσετε με μη αυτόματο τρόπο έναν υπερσύνδεσμο ηλεκτρονικού ταχυδρομείου με το Κύριο θέμα Υπερ-σύνδεση λειτουργία στο Excel. Αυτή η ενότητα πρόκειται να σας δείξει τα βήματα.

1. Κάντε δεξί κλικ σε ένα email όπου θέλετε να εισαγάγετε έναν υπερσύνδεσμο, επιλέξτε Σύνδεσμος από το μενού με δεξί κλικ.

2. Στο αναδυόμενο παράθυρο Εισαγωγή υπερσύνδεσης πλαίσιο διαλόγου, πρέπει να διαμορφώσετε ως εξής.

2.1) Επιλέξτε Ηλεκτρονικό Ταχυδρομείο στο αριστερό παράθυρο.

2.2) Στο Κείμενο προς εμφάνιση πλαίσιο κειμένου, πληκτρολογήστε το κείμενο που θέλετε να εμφανιστεί στο κελί.

Συμβουλές: Δεν μπορείτε να χρησιμοποιήσετε αναφορές κελιών σε αυτό το παράθυρο διαλόγου, επομένως θα πρέπει να πληκτρολογήσετε τα πεδία email με μη αυτόματο τρόπο ως εξής.

2.3) Στο Διεύθυνση ηλεκτρονικού ταχυδρομείου πλαίσιο κειμένου, πρέπει να πληκτρολογήσετε τις ακόλουθες διευθύνσεις email.

mailto: διεύθυνση ηλεκτρονικού ταχυδρομείου

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

2.4) Στο Θέμα πλαίσιο κειμένου, μπορείτε να καθορίσετε το θέμα και το σώμα του email σας εδώ. Παρακαλούμε ρυθμίστε τις παραμέτρους ως εξής:

Email subject&body=Σώμα του email

Σε αυτή την περίπτωση, πληκτρολογώ Μηνιαία έκπτωση&body=Γεια, %0Aemail ελήφθη.

> όπου το θέμα είναι Μηνιαία πώληση.

και

> το σώμα του email είναι:

Γεια σας,

Λήφθηκε email. (%0A είναι ο κωδικός χαρακτήρα επιστροφής μεταφοράς που μπορεί να αναγνωριστεί από το Outlook)

2.5) Κάντε κλικ στο OK κουμπί για να αποθηκεύσετε την υπερσύνδεση. Δείτε στιγμιότυπο οθόνης:

Όταν κάνετε κλικ στην υπερ-σύνδεση, θα δημιουργηθεί ένα μήνυμα ηλεκτρονικού ταχυδρομείου του Outlook με τα καθορισμένα πεδία Προς, Θέμα και Σώμα όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης.

Notes:

1.2 Αποστολή email σε πολλούς παραλήπτες σε κελιά με δέσμη ενεργειών VBA

Στο παραπάνω παράδειγμα, μπορείτε να δείτε πολλές διευθύνσεις email να εμφανίζονται σε ένα κελί, διαχωρισμένες με ερωτηματικά. Εάν έχετε μια λίστα με διευθύνσεις email όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης και θέλετε να στείλετε ένα email ή ανεξάρτητο email σε όλες, ο παρακάτω κώδικας VBA μπορεί να σας κάνει τη χάρη.

1.2.1 Στείλτε ένα email σε πολλούς παραλήπτες σε κελιά με δέσμη ενεργειών VBA

1. Στο φύλλο εργασίας που περιέχει όλες τις διευθύνσεις email στις οποίες θέλετε να στείλετε το email. Πάτα το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησης, και στη συνέχεια επικολλήστε τον παρακάτω κώδικα στο Ενότητα (Κωδικός) παράθυρο.

Κωδικός VBA: Στείλτε email σε μια λίστα διευθύνσεων email

Sub sendmultiple()
'updateby Extendoffice 20220802
    Dim xOTApp As Object
    Dim xMItem As Object
    Dim xCell As Range
    Dim xRg As Range
    Dim xEmailAddr As String
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the addresses list:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xOTApp = CreateObject("Outlook.Application")
    For Each xCell In xRg
        If xCell.Value Like "*@*" Then
            If xEmailAddr = "" Then
                xEmailAddr = xCell.Value
            Else
                xEmailAddr = xEmailAddr & ";" & xCell.Value
            End If
        End If
    Next
    Set xMItem = xOTApp.CreateItem(0)
    With xMItem
        .To = xEmailAddr
        .Subject = "Test"
        .Body = "Dear " _
                & vbNewLine & vbNewLine & _
                "This is a test email " & _
                "sending in Excel"
        .Display
    End With
End Sub

3. Πάτα το F5 κλειδί για την εκτέλεση του κώδικα και α Kutools για Excel εμφανίζεται το παράθυρο διαλόγου. Επιλέξτε τη λίστα με τις διευθύνσεις email και κάντε κλικ OK.

:

.Body = "Dear " _
        & vbNewLine & vbNewLine & _
        "This is a test email " & _
        "sending in Excel"

Μετά την εκτέλεση του κώδικα, όλες οι διευθύνσεις email στην επιλεγμένη περιοχή εμφανίζονται στο πεδίο Προς του παραθύρου μηνύματος. Δείτε στιγμιότυπο οθόνης:

1.2.2 Στείλτε ξεχωριστά email σε κάθε παραλήπτη που αναφέρεται σε κελιά με σενάριο VBA

Ο παραπάνω κωδικός προσθέτει όλες τις διευθύνσεις email στην επιλεγμένη περιοχή στο πεδίο Προς του παραθύρου μηνύματος. Εάν θέλετε να στέλνετε μηνύματα ηλεκτρονικού ταχυδρομείου σε κάθε διεύθυνση email που αναφέρεται στα κελιά χωριστά χωρίς να τους επιτρέπετε να βλέπουν ο ένας τις διευθύνσεις email του άλλου, μπορείτε να δοκιμάσετε την ακόλουθη δέσμη ενεργειών VBA.

1. Στο φύλλο εργασίας που περιέχει όλες τις διευθύνσεις email στις οποίες θέλετε να στείλετε τα email. Πάτα το άλλος + F11 κλειδιά για ανοίξτε το παράθυρο Microsoft Visual Basic for Applications.

2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησηςκαι, στη συνέχεια, επικολλήστε τον ακόλουθο κώδικα στο παράθυρο Module (Code).

Κωδικός VBA: Στείλτε email σε κάθε διεύθυνση email που αναφέρεται στα κελιά ξεχωριστά

Sub SendEmailToAddressInCells()
'Updated by Extendoffice 20220802
    Dim xRg As Range
    Dim xRgEach As Range
    Dim xRgVal As String
    Dim xAddress As String
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the addresses list", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
    For Each xRgEach In xRg
        xRgVal = xRgEach.Value
        If xRgVal Like "?*@?*.?*" Then
            Set xMailOut = xOutApp.CreateItem(olMailItem)
            With xMailOut
                .To = xRgVal
                .Subject = "Test"
                .Body = "Dear " _
                      & vbNewLine & vbNewLine & _
                        "This is a test email " & _
                        "sending in Excel"
                .Display
                '.Send
            End With
        End If
    Next
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

3. Στη συνέχεια κάντε κλικ στο κουμπί Εργαλεία > Βιβλιογραφικές αναφορές. Στο Αναφορές - VBAProject παράθυρο διαλόγου, βρείτε και ελέγξτε το Βιβλιοθήκη αντικειμένων Microsoft Outlook 16.0 και στη συνέχεια κάντε κλικ στο OK Για να αποθηκεύσετε τις αλλαγές.

4. Πάτα το F5 κλειδί για την εκτέλεση του κώδικα και α Kutools για Excel εμφανίζεται το παράθυρο διαλόγου. Επιλέξτε τη λίστα με τις διευθύνσεις email και κάντε κλικ Εντάξει.

:

.Subject = "Test"
.Body = "Dear " _
        & vbNewLine & vbNewLine & _
        "This is a test email " & _
        "sending in Excel"

Σε αυτό το παράδειγμα, υπάρχουν έξι διευθύνσεις email στο επιλεγμένο εύρος, επομένως έξι παράθυρα μηνυμάτων του Outlook θα δημιουργηθούν αυτόματα με ξεχωριστή διεύθυνση email που αναφέρεται στο πεδίο Προς, όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης.

5. Επιτέλους, κάντε κλικ στο Αποστολή κουμπί για να στείλετε το email ένα προς ένα.

2. Εισαγάγετε συνημμένα ή υπογραφή του Outlook στα μηνύματα ηλεκτρονικού ταχυδρομείου που αποστέλλονται από το Excel (με σενάρια VBA)

Αυτή η ενότητα πρόκειται να σας δείξει πώς να εισάγετε συνημμένα ή προεπιλεγμένη υπογραφή του Outlook στα μηνύματα ηλεκτρονικού ταχυδρομείου που αποστέλλονται από το Excel.

2.1 Εισαγάγετε συνημμένα στα email που αποστέλλονται από το Excel

Εδώ περιγράφουμε τις διάφορες περιπτώσεις εισαγωγής συνημμένων και μπορείτε να επιλέξετε τη μέθοδο ανάλογα με τις ανάγκες σας. Σε αυτήν την ενότητα, μπορείτε να μάθετε να (κάντε κλικ σε οποιονδήποτε από τους παρακάτω συνδέσμους για να πλοηγηθείτε στην αντίστοιχη μέθοδο):

2.1.1 Στείλτε με email ένα συγκεκριμένο αρχείο ως συνημμένο

Μπορείτε να εφαρμόσετε τον ακόλουθο κώδικα VBA για να στείλετε email σε ένα ή περισσότερα αρχεία σε έναν φάκελο ως συνημμένα από το Excel.

1. Πάτα το άλλος + F11 κλειδιά.

2. Στο άνοιγμα Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησης. Στη συνέχεια, επικολλήστε τον ακόλουθο κώδικα VBA στο παράθυρο Module (Code).

Κωδικός VBA: Αποστολή αρχείων ηλεκτρονικού ταχυδρομείου σε φάκελο ως συνημμένα από το Excel

Sub EmailWithAttachments()
'Updated by Extendoffice 20220802
    Dim xStrFile As String
    Dim xFilePath As String
    Dim xFileDlg As FileDialog
    Dim xFileDlgItem As Variant
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    Set xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
    If xFileDlg.Show = -1 Then
        With xMailOut
            .BodyFormat = olFormatRichText
            .To = "xxx@aaa.com"
            .Subject = "test"
            .HTMLBody = "test"
            For Each xFileDlgItem In xFileDlg.SelectedItems
                .Attachments.Add xFileDlgItem
            Next xFileDlgItem
            .Display
        End With
    End If
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

Notes:

3. Στη συνέχεια κάντε κλικ στο κουμπί Εργαλεία > Βιβλιογραφικές αναφορές. Στο Αναφορές - VBAProject παράθυρο διαλόγου, βρείτε και ελέγξτε το Βιβλιοθήκη αντικειμένων Microsoft Outlook 16.0 και στη συνέχεια κάντε κλικ στο OK Για να αποθηκεύσετε τις αλλαγές.

4. Πάτα το F5 για να εκτελέσετε τον κωδικό και μετά Αναζήτηση εμφανίζεται ένα παράθυρο, επιλέξτε τα αρχεία που πρέπει να επισυνάψετε στο email και, στη συνέχεια, κάντε κλικ OK.

Στη συνέχεια, εμφανίζεται ένα παράθυρο μηνύματος. Μπορείτε να δείτε τα επιλεγμένα αρχεία να εμφανίζονται ως συνημμένα στο πεδίο Συνημμένα.

2.1.2 Στείλτε με email το τρέχον φύλλο εργασίας ως συνημμένο

Εάν θέλετε να στείλετε μέσω email το τρέχον φύλλο εργασίας ως συνημμένο από το Excel, μπορείτε να εφαρμόσετε τη δέσμη ενεργειών VBA σε αυτήν την ενότητα.

1. Πάτα το άλλος + F11 κλειδιά.

2. Στο άνοιγμα Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή εισάγετε > Μονάδα μέτρησης. Στη συνέχεια, επικολλήστε τον ακόλουθο κώδικα VBA στο Ενότητα (Κωδικός) παράθυρο.

Κωδικός VBA: Στείλτε με email το τρέχον φύλλο εργασίας ως συνημμένο

Sub SendWorkSheet()
'Update by Extendoffice 20220802
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Application.ScreenUpdating = False
Set Wb = Application.ActiveWorkbook
ActiveSheet.Copy
Set Wb2 = Application.ActiveWorkbook
Select Case Wb.FileFormat
Case xlOpenXMLWorkbook:
    xFile = ".xlsx"
    xFormat = xlOpenXMLWorkbook
Case xlOpenXMLWorkbookMacroEnabled:
    If Wb2.HasVBProject Then
        xFile = ".xlsm"
        xFormat = xlOpenXMLWorkbookMacroEnabled
    Else
        xFile = ".xlsx"
        xFormat = xlOpenXMLWorkbook
    End If
Case Excel8:
    xFile = ".xls"
    xFormat = Excel8
Case xlExcel12:
    xFile = ".xlsb"
    xFormat = xlExcel12
End Select
FilePath = Environ$("temp") & "\"
FileName = Wb.Name & Format(Now, "dd-mmm-yy h-mm-ss")
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
With OutlookMail
    .To = "xxx@aaa.com"
    .CC = "Email Address"
    .BCC = "Email Address"
    .Subject = "kte features"
    .Body = "Please check and read this document."
    .Attachments.Add Wb2.FullName
    .Display
    '.Send
End With
Wb2.Close
Kill FilePath & FileName & xFile
Set OutlookMail = Nothing
Set OutlookApp = Nothing
Application.ScreenUpdating = True
End Sub

:

3. Πάτα το F5 κλειδί για την εκτέλεση του κώδικα και, στη συνέχεια, το τρέχον φύλλο εργασίας αποθηκεύεται ως βιβλίο εργασίας του Excel και εισάγεται αυτόματα σε ένα παράθυρο μηνύματος ως συνημμένο. Δείτε στιγμιότυπο οθόνης:

Σημείωση: Το συνημμένο βιβλίο εργασίας που περιέχει μόνο το τρέχον φύλλο εργασίας έχει το ίδιο όνομα με το αρχικό βιβλίο εργασίας. Και η ώρα που εκτελείτε τον κώδικα προστίθεται επίσης στο όνομα του βιβλίου εργασίας.

2.1.3 Στείλτε με email το τρέχον βιβλίο εργασίας ως συνημμένο

Αφού μάθετε τον κώδικα VBA για να στείλετε email στο τρέχον φύλλο εργασίας ως συνημμένο από το Excel, εδώ παρέχουμε ένα άλλο σενάριο VBA για να σας βοηθήσουμε να στείλετε μέσω email ολόκληρο το βιβλίο εργασίας ως συνημμένο. Παρακαλώ κάντε το εξής.

1. Πάτα το άλλος + F11 κλειδιά.

2. Στο άνοιγμα Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησης. Στη συνέχεια, επικολλήστε τον ακόλουθο κώδικα VBA στο παράθυρο Module (Code).

Κωδικός VBA: Στείλτε με email το τρέχον βιβλίο εργασίας ως συνημμένο από το Excel

Sub SendWorkBook()
'Update by Extendoffice 20220802
Dim OutlookApp As Object
Dim OutlookMail As Object
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
On Error Resume Next
With OutlookMail
    .To = "xxx@aaa.com"
    .CC = "Email Address"
    .BCC = "Email Address"
    .Subject = "kte feature"
    .Body = "Hello, please check and read this document, thank you."
    .Attachments.Add Application.ActiveWorkbook.FullName
    .Display
    '.Send
End With
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub

:

3. Πάτα το F5 κλειδί για την εκτέλεση του κώδικα και, στη συνέχεια, το τρέχον βιβλίο εργασίας εισάγεται αυτόματα σε ένα παράθυρο μηνύματος ως συνημμένο. Δείτε στιγμιότυπο οθόνης:

2.1.4 Στείλτε με email ολόκληρο το βιβλίο εργασίας ως συνημμένο PDF

Για τους περισσότερους ανθρώπους, τείνουν να αποθηκεύουν ένα βιβλίο εργασίας του Excel ως αρχείο PDF και στη συνέχεια να το στέλνουν ως συνημμένο σε άλλους. Σε αυτήν την ενότητα, θα σας δείξω έναν τρόπο να στέλνετε email απευθείας από το Excel με το τρέχον ανοιχτό βιβλίο εργασίας ως συνημμένο PDF χωρίς να χρειάζεται να αποθηκεύσετε το βιβλίο εργασίας με μη αυτόματο τρόπο ως αρχείο PDF.

1. Πάτα το άλλος + F11 κλειδιά.

2. Στο άνοιγμα Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησης. Στη συνέχεια, επικολλήστε τον ακόλουθο κώδικα VBA στο παράθυρο Module (Code).

Κωδικός VBA: Στείλτε ολόκληρο το βιβλίο εργασίας μέσω email ως συνημμένο PDF

Sub SendWorkBookAsPDF()
'Update 20220803
Dim Wb As Workbook
Dim FilePath As String
Dim FileName As String
Dim xOutApp As Object
Dim xOutMail As Object
On Error Resume Next

Application.ScreenUpdating = False
Set Wb = Application.ActiveWorkbook
FileName = Left(Wb.Name, (InStrRev(Wb.Name, ".", -1, vbTextCompare) - 1)) & Format(Now, "dd-mmm-yy h-mm-ss") & ".pdf"
FilePath = Environ$("temp") & "\" & FileName

Wb.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
    FilePath, Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
    False

Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
With xOutMail
       .To = "xxx@aaa.com"
       .CC = "Email Address"
       .BCC = "Email Address"
       .Subject = "test"
       .Body = "test"
       .Attachments.Add FilePath
       .Display   'or use .Send
   End With
Kill FilePath
Set xOutMail = Nothing
Set xOutApp = Nothing
Application.ScreenUpdating = True
End Sub

:

3. Πάτα το F5 κλειδί για την εκτέλεση του κώδικα. Στη συνέχεια, το τρέχον βιβλίο εργασίας εισάγεται αυτόματα σε ένα νέο παράθυρο μηνύματος ως συνημμένο αρχείο PDF. Δείτε στιγμιότυπο οθόνης:

2.1.5 Στείλτε με email το τρέχον φύλλο εργασίας ως συνημμένο PDF

Για παράδειγμα, υπάρχει ένα βιβλίο εργασίας με το όνομα "Μηνιαίες πωλήσεις" και έχετε ολοκληρώσει έναν πίνακα αναφοράς πωλήσεων σε ένα φύλλο εργασίας που ονομάζεται "αναφορά πωλήσεων" και θέλετε να στείλετε αυτό το φύλλο εργασίας ως αρχείο PDF στους συναδέλφους σας. Ο παρακάτω κώδικας VBA μπορεί να σας κάνει τη χάρη.

1. Πάτα το άλλος + F11 κλειδιά.

2. Στο άνοιγμα Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή εισάγετε > Μονάδα μέτρησης. Στη συνέχεια, επικολλήστε τον ακόλουθο κώδικα VBA στο παράθυρο Module (Code).

Κωδικός VBA: Στείλτε με email το τρέχον φύλλο εργασίας ως συνημμένο PDF

Sub SendWorkSheetToPDF()
'Update by Extendoffice 20220803
Dim Wb As Workbook
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Set Wb = Application.ActiveWorkbook
FileName = Wb.FullName
xIndex = VBA.InStrRev(FileName, ".")
If xIndex > 1 Then FileName = VBA.Left(FileName, xIndex - 1)
FileName = FileName & "_" + ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
    .To = "xxx@aaa.com"
    .CC = "Email Address"
    .BCC = "Email Address"
    .Subject = "test"
    .Body = "test"
    .Attachments.Add FileName
    .Display
    '.Send
End With
Kill FileName
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub

:

3. Πάτα το F5 κλειδί για την εκτέλεση του κώδικα. Στη συνέχεια, το τρέχον φύλλο εργασίας εισάγεται αυτόματα σε ένα νέο παράθυρο μηνύματος ως συνημμένο αρχείο PDF. Δείτε στιγμιότυπο οθόνης:

2.2 Εισαγάγετε την υπογραφή του Outlook στα email που αποστέλλονται από το Excel

Πάρτε για παράδειγμα την παραπάνω περίπτωση, εφαρμόζετε τον παραπάνω κώδικα VBA για να στείλετε το τρέχον φύλλο εργασίας ως συνημμένο αρχείο PDF από το Excel, αλλά η υπογραφή του Outlook δεν μπορεί να προστεθεί στο παράθυρο μηνύματος. Για να διατηρήσετε την προεπιλεγμένη υπογραφή του Outlook στο email που αποστέλλεται από το Excel, η ακόλουθη μέθοδος θα σας βοηθήσει.

Δύο κωδικοί VBA παρατίθενται παρακάτω.

Κωδικός VBA 1: Ο κώδικας βοηθά στη διατήρηση της υπογραφής του Outlook.

Κωδικός VBA 2: Ο κώδικας βοηθά στο email του τρέχοντος φύλλου εργασίας ως συνημμένο PDF.

Κωδικός VBA 1: Διατηρήστε την υπογραφή του Outlook

.HTMLBody = "Email body" & "
" & .HTMLBody

Κωδικός VBA 2: Στείλτε με email το τρέχον φύλλο εργασίας ως συνημμένο PDF

Sub SendWorkSheetToPDF()
'Update by Extendoffice 20220803
Dim Wb As Workbook
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Set Wb = Application.ActiveWorkbook
FileName = Wb.FullName
xIndex = VBA.InStrRev(FileName, ".")
If xIndex > 1 Then FileName = VBA.Left(FileName, xIndex - 1)
FileName = FileName & "_" + ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
    .To = "xxx@aaa.com"
    .CC = "Email Address"
    .BCC = "Email Address"
    .Subject = "test"
    .Body = "test"
    .Attachments.Add FileName
    .Display
    '.Send
End With
Kill FileName
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub

1. Κανονικά, πρέπει να πατήσετε το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησης. Στη συνέχεια, επικολλήστε τον παραπάνω κωδικό VBA 2 στο παράθυρο Module (Code).

3. Για να διατηρήσετε την προεπιλεγμένη υπογραφή του Outlook στο email που αποστέλλεται από το Excel, πρέπει να τροποποιήσετε τον κωδικό VBA 2 ως εξής:

Εδώ είναι ο πλήρης κωδικός μετά την τροποποίηση.

Sub SendWorkSheetToPDF()
'Update by Extendoffice 20220803
Dim Wb As Workbook
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Set Wb = Application.ActiveWorkbook
FileName = Wb.FullName
xIndex = VBA.InStrRev(FileName, ".")
If xIndex > 1 Then FileName = VBA.Left(FileName, xIndex - 1)
FileName = FileName & "_" + ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
    .Display
    .To = "xxx@aaa.com"
    .CC = "Email Address"
    .BCC = "Email Address"
    .Subject = "test"
    .HTMLBody = "Email body" & "
" & .HTMLBody
    .Attachments.Add FileName
    '.Send
End With
Kill FileName
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub

4. Πάτα το F5 κλειδί για την εκτέλεση του κώδικα. Στη συνέχεια, θα λάβετε ένα νέο παράθυρο μηνύματος με το τρέχον φύλλο εργασίας συνημμένο ως αρχείο PDF, ενώ η προεπιλεγμένη υπογραφή του Outlook θα εισαχθεί αυτόματα στο τέλος του σώματος του email.

3. Αυτόματη αποστολή μηνυμάτων ηλεκτρονικού ταχυδρομείου από το Excel όταν πληρούται μια συνθήκη (με σενάρια VBA)

Στα παραπάνω παραδείγματα, πρέπει να εκτελέσετε τον κώδικα με μη αυτόματο τρόπο για να επιτύχετε την παράδοση email. Εάν θέλετε να ενεργοποιήσετε τον κωδικό αυτόματα όταν πληρούται μια συγκεκριμένη συνθήκη, όπως όταν ένα κελί φτάσει σε μια συγκεκριμένη τιμή, όταν αλλάζει η τιμή ενός κελιού, πότε λήξει μια ημερομηνία κ.λπ., το μήνυμα ηλεκτρονικού ταχυδρομείου θα σταλεί αυτόματα. Αυτή η ενότητα παραθέτει τις συνθήκες που αναζητούσαν συχνά οι χρήστες του Excel στο Google για να σας βοηθήσουν να στέλνετε αυτόματα μηνύματα ηλεκτρονικού ταχυδρομείου από το Excel όταν πληρούται μια συγκεκριμένη προϋπόθεση.

3.1 Αυτόματη αποστολή email όταν ένα κελί φτάσει σε μια συγκεκριμένη τιμή

Όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης, ας υποθέσουμε ότι έχετε έναν πίνακα πωλήσεων με το κελί D6 που περιέχει το σύνολο των πωλήσεων. Θέλετε να στείλετε αυτόματα ένα μήνυμα ηλεκτρονικού ταχυδρομείου στον προϊστάμενό σας με βάση το σύνολο των πωλήσεων, για παράδειγμα, να δημιουργήσετε ή να στείλετε ένα μήνυμα ηλεκτρονικού ταχυδρομείου αυτόματα όταν το σύνολο των πωλήσεων υπερβαίνει τις 10000, αλλά εάν το σύνολο των πωλήσεων είναι ίσο ή μικρότερο από 10000, δεν πραγματοποιείται καμία ενέργεια.

1. Στο φύλλο εργασίας που περιέχει τον πίνακα πώλησης, κάντε δεξί κλικ στην καρτέλα του φύλλου και κάντε κλικ Προβολή κωδικού από το μενού με δεξί κλικ.

2. Στο άνοιγμα Microsoft Visual Basic για εφαρμογές παράθυρο, επικολλήστε τον ακόλουθο κώδικα VBA στο Φύλλο (Κωδικός) παράθυρο.

Κωδικός VBA: Αποστέλλεται αυτόματα ένα email όταν ένα κελί φτάσει σε μια συγκεκριμένη τιμή στο Excel

Dim xRg As Range
'Update by Extendoffice 20200803
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Cells.Count > 1 Then Exit Sub
Set xRg = Intersect(Range("D6"), Target)
If xRg Is Nothing Then Exit Sub
If IsNumeric(Target.Value) And Target.Value > 10000 Then
Call Mail_small_Text_Outlook
End If
End Sub
Sub Mail_small_Text_Outlook()
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = "Hi boss" & vbNewLine & vbNewLine & _
"Total sales of over $10,000 in January: " & Range("D6")
On Error Resume Next
With xOutMail
.To = "xxx@aaa.com"
.CC = "Email address"
.BCC = "Email address"
.Subject = "test"
.Body = xMailBody
.Display 'or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub

Private Sub Worksheet_Calculate()
Dim xI As Integer
Dim xRg As Range
Set xRg = Range("D6")
On Error GoTo Err01
xI = Int(xRg.Value)
If xI > 10000 Then
Call Mail_small_Text_Outlook
End If
Err01:
End Sub

Notes:

xMailBody = "Hi boss" & vbNewLine & vbNewLine & _
"Total sales of over $10,000 in January: " & Range("D6")

Από εδώ και στο εξής, όταν η τιμή στο κελί D6 ξεπεράσει το 10000, θα δημιουργηθεί ένα email όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης.

3.2 Αυτόματη αποστολή email όταν αλλάζει μια τιμή κελιού

Όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης, ας υποθέσουμε ότι λαμβάνετε ένα βιβλίο εργασίας που περιέχει μηνιαίες πωλήσεις σε διαφορετικά φύλλα εργασίας και το σύνολο των πωλήσεων σε ένα φύλλο εργασίας. Πρέπει να επαληθεύσετε το σύνολο των πωλήσεων και εάν το σύνολο των πωλήσεων τροποποιηθεί, στείλτε το βιβλίο εργασίας πίσω στον αποστολέα και ενημερώστε τον αποστολέα ότι το κελί έχει τροποποιηθεί.

1. Στο φύλλο εργασίας που περιέχει τον πίνακα πώλησης, κάντε δεξί κλικ στην καρτέλα του φύλλου και κάντε κλικ Προβολή κωδικού από το μενού με δεξί κλικ.

2. Στο άνοιγμα Microsoft Visual Basic για εφαρμογές παράθυρο, επικολλήστε τον ακόλουθο κώδικα VBA στο παράθυρο Φύλλο (Κωδικός).

Κωδικός VBA: Αποστέλλεται αυτόματα ένα email όταν αλλάζει μια καθορισμένη τιμή κελιού

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20220803
Dim xRgSel As Range
Dim xOutApp As Object
Dim xMailItem As Object
Dim xMailBody As String
Dim xBoolean As Boolean
Dim xItsRG As Range
Dim xDDs As Range
Dim xDs As Range
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
xBoolean = False
Set xRg = Range("B14")

Set xItsRG = Intersect(Target, xRg)
Set xDDs = Intersect(Target.DirectDependents, xRg)
Set xDs = Intersect(Target.Dependents, xRg)
If Not (xItsRG Is Nothing) Then
Set xRgSel = xItsRG
xBoolean = True
ElseIf Not (xDDs Is Nothing) Then
Set xRgSel = xDDs
xBoolean = True
ElseIf Not (xDs Is Nothing) Then
Set xRgSel = xDs
xBoolean = True
End If

ActiveWorkbook.Save
If xBoolean Then
Debug.Print xRgSel.Address

Set xOutApp = CreateObject("Outlook.Application")
Set xMailItem = xOutApp.CreateItem(0)
xMailBody = "The cell " & xRgSel.Address(False, False) & _
" in the worksheet '" & Me.Name & "' were modified on " & _
Format$(Now, "mm/dd/yyyy") & " at " & Format$(Now, "hh:mm:ss") & _
" by " & Environ$("username") & "."

With xMailItem
.To = "xxx@aaa.com"
.CC = "Email address"
.BCC = "Email address"
.Subject = "Worksheet modified"
.Body = xMailBody
.Attachments.Add (ThisWorkbook.FullName)
.Display
End With
Set xRgSel = Nothing
Set xOutApp = Nothing
Set xMailItem = Nothing
End If
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Notes: Στον κώδικα,

Από εδώ και στο εξής, όταν αλλάξει η τιμή στο κελί B14, θα δημιουργείται αυτόματα ένα μήνυμα του Outlook όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης.

3.3 Αυτόματη αποστολή email όταν αποθηκεύεται ένα βιβλίο εργασίας

Εάν έχετε ένα βιβλίο εργασίας που πρέπει να μοιραστείτε με άλλους μετά την τροποποίηση, συνήθως πρέπει να αποθηκεύσετε το βιβλίο εργασίας, να εκκινήσετε το πρόγραμμα-πελάτη ηλεκτρονικού ταχυδρομείου, να δημιουργήσετε ένα νέο μήνυμα ηλεκτρονικού ταχυδρομείου με αυτό το βιβλίο εργασίας συνημμένο, να συνθέσετε τα αντίστοιχα πεδία και να στείλετε το μήνυμα ηλεκτρονικού ταχυδρομείου. Αυτή η ενότητα θα σας δείξει μια μέθοδο για να δημιουργείτε αυτόματα ένα email κάθε φορά που αποθηκεύετε το βιβλίο εργασίας. Παρακαλώ κάντε το εξής.

1. Πάτα το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Σε αυτό το παράθυρο, κάντε διπλό κλικ Αυτό το βιβλίο εργασίας στο Σχέδιο παράθυρο και, στη συνέχεια, επικολλήστε τον ακόλουθο κώδικα VBA στο Αυτό το βιβλίο εργασίας (Κωδικός) παράθυρο.

Κωδικός VBA: Αποστέλλεται αυτόματα ένα email όταν αποθηκεύεται ένα βιβλίο εργασίας

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
'Updated by Extendoffice 20220804
    Dim xOutApp As Object
    Dim xMailItem As Object
    Dim xName As String
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailItem = xOutApp.CreateItem(0)
    xName = ActiveWorkbook.FullName
    With xMailItem
        .To = "xxx@aaa.com"
        .CC = "Email address"
        .BCC = "Email address"
        .Subject = "The workbook has been updated"
        .Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
        .Attachments.Add xName
        .Display
       '.send
    End With
    Set xMailItem = Nothing
    Set xOutApp = Nothing
End Sub

Notes: Στον κώδικα,

3. Από εδώ και στο εξής, κατά την αποθήκευση του βιβλίου εργασίας πατώντας το Ctrl + S πλήκτρα ή κάνοντας κλικ στο Αποθήκευση κουμπί, ένα μήνυμα ηλεκτρονικού ταχυδρομείου του Outlook θα δημιουργηθεί αυτόματα. Μπορείτε να δείτε ότι το τρέχον βιβλίο εργασίας είναι συνημμένο ως συνημμένο και τα πεδία συμπληρώνονται με το καθορισμένο περιεχόμενο. Δείτε στιγμιότυπο οθόνης:

Συμβουλές: Εάν χρησιμοποιείτε συχνά αυτό το βιβλίο εργασίας, σας προτείνουμε να αποθηκεύσετε το βιβλίο εργασίας ως Βιβλίο εργασίας Excel με δυνατότητα μακροεντολής για να αποθηκεύσετε τη δέσμη ενεργειών VBA για μελλοντική χρήση. Τα βήματα είναι τα εξής.

3.4 Αυτόματη αποστολή email σε συγκεκριμένη ώρα

Ας υποθέσουμε ότι πρέπει να στείλετε ένα email με ένα βιβλίο εργασίας ανάθεσης εργασιών σε κάποιον κάθε Παρασκευή πρωί στις 9 π.μ, και θέλετε να το κάνετε αυτό αυτόματα στο Excel χωρίς να χρειάζεται να χειριστείτε με μη αυτόματο τρόπο το πρόγραμμα-πελάτη email. Αυτή η ενότητα θα σας δείξει τη μέθοδο για να το κάνετε.

1. Πάτα το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησης. Στη συνέχεια, επικολλήστε τον ακόλουθο κώδικα VBA στο παράθυρο Module.

Κωδικός VBA1 : Στείλτε με email το τρέχον βιβλίο εργασίας ως συνημμένο από το Excel

Sub Timer()
    If Weekday(Date) = vbFriday Then
        SendWorkBook
        Application.OnTime TimeValue("09:00:00"), "Timer"
    Else
        Application.OnTime TimeValue("09:00:00"), "Timer"
    End If
End Sub

Sub SendWorkBook()
'Update by Extendoffice 20220802
Dim OutlookApp As Object
Dim OutlookMail As Object
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
On Error Resume Next
With OutlookMail
    .To = "xxx@aaa.com"
    .CC = "Email Address"
    .BCC = "Email Address"
    .Subject = "kte feature"
    .Body = "Hello, please check and read this document, thank you."
    .Attachments.Add Application.ActiveWorkbook.FullName
    .Display
    '.Send
End With
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub

3. Σε αυτό το παράθυρο, κάντε διπλό κλικ Αυτό το βιβλίο εργασίας στο Σχέδιο παράθυρο και, στη συνέχεια, επικολλήστε τον ακόλουθο κώδικα VBA στο Αυτό το βιβλίο εργασίας (Κωδικός) παράθυρο.

Κωδικός VBA 2: Αυτόματη αποστολή email σε συγκεκριμένη ώρα

Private Sub Workbook_Open()
    Application.OnTime TimeValue("09:00:00"), "Timer"
End Sub

Notes:

4. Αποθηκεύστε τους κωδικούς και, στη συνέχεια, αποθηκεύστε το βιβλίο εργασίας ως βιβλίο εργασίας με δυνατότητα μακροεντολής Excel ως εξής.

5. Ανοίξτε το αποθηκευμένο βιβλίο εργασίας με δυνατότητα μακροεντολής και, στη συνέχεια, ένα μήνυμα ηλεκτρονικού ταχυδρομείου θα δημιουργηθεί ή θα σταλεί αυτόματα όταν φτάσει η ημέρα και η ώρα.

4. Πρόσθετα θέματα

Αυτή η ενότητα συλλέγει άλλα θέματα που μπορεί να συναντήσετε κατά την αποστολή μηνυμάτων ηλεκτρονικού ταχυδρομείου από το Excel.

4.1 Αποστολή με email σε μια σειρά κελιών από το Excel (με δέσμη ενεργειών VBA)

Ας υποθέσουμε ότι υπάρχει ένας πίνακας μηνιαίων πωλήσεων σε ένα φύλλο εργασίας του Excel, όπως φαίνεται στο στιγμιότυπο οθόνης παρακάτω, και πρέπει να στείλετε αυτόν τον μηνιαίο πίνακα πωλήσεων σε άλλους ως το κύριο περιεχόμενο ενός μηνύματος ηλεκτρονικού ταχυδρομείου ή ως συνημμένο απευθείας. Εδώ σας παρέχουμε δύο τρόπους για να το κάνετε.

4.1.1 Στείλτε ένα εύρος μέσω ηλεκτρονικού ταχυδρομείου ως μέρος του κύριου περιεχομένου από το Excel

Μπορείτε να εκτελέσετε τον ακόλουθο κώδικα VBA για να στείλετε μια σειρά κελιών ως μέρος του περιεχομένου του σώματος email από το Excel

1. Πάτα το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Εργαλεία > αναφορές. Και μετά ελέγξτε το Βιβλιοθήκη αντικειμένων Microsoft Outlook 16.0 και κάντε κλικ στο κουμπί OK στο Αναφορές - VBAProject κουτί διαλόγου.

3. κλικ Κύριο θέμα > Μονάδα μέτρησης, στη συνέχεια επικολλήστε τον ακόλουθο κώδικα VBA στο Ενότητα (Κωδικός) παράθυρο.

Κώδικας VBA: Στείλτε μια σειρά κελιών ως μέρος του περιεχομένου του σώματος email από το Excel

Sub SendARangeofCells()
'Updated by Extendoffice 20220809
    Dim xRg As Range
    Dim I, J As Long
    Dim xAddress As String
    Dim xMailOut As Object
    Dim xOutApp As Object
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select range you need to paste into email body", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    With xMailOut
        .Subject = "test"
        .To = "xxx@aaa.com"
        .CC = "Email address"
        .BCC = "Email address"
        .HTMLBody = RangetoHTML(xRg)
        .Display
        '.Send
    End With
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

 ' The following VBA script is cited from this page:
 ' https://stackoverflow.com/questions/18663127/paste-excel-range-in-outlook
Function RangetoHTML(rng As Range)
' By Ron de Bruin.
    Dim fso As Object
    Dim ts As Object
    Dim TempFile As String
    Dim TempWB As Workbook

    TempFile = Environ$("temp") & "/" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"

    'Copy the range and create a new workbook to past the data in
    rng.Copy
    Set TempWB = Workbooks.Add(1)
    With TempWB.Sheets(1)
        .Cells(1).PasteSpecial Paste:=8
        .Cells(1).PasteSpecial xlPasteValues, , False, False
        .Cells(1).PasteSpecial xlPasteFormats, , False, False
        .Cells(1).Select
        Application.CutCopyMode = False
        On Error Resume Next
        .DrawingObjects.Visible = True
        .DrawingObjects.Delete
        On Error GoTo 0
    End With

    'Publish the sheet to a htm file
    With TempWB.PublishObjects.Add( _
         SourceType:=xlSourceRange, _
         Filename:=TempFile, _
         Sheet:=TempWB.Sheets(1).Name, _
         Source:=TempWB.Sheets(1).UsedRange.Address, _
         HtmlType:=xlHtmlStatic)
        .Publish (True)
    End With

    'Read all data from the htm file into RangetoHTML
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
    RangetoHTML = ts.ReadAll
    ts.Close
    RangetoHTML = Replace(RangetoHTML, "align=center x:publishsource=", _
                          "align=left x:publishsource=")

    'Close TempWB
    TempWB.Close savechanges:=False

    'Delete the htm file we used in this function
    Kill TempFile

    Set ts = Nothing
    Set fso = Nothing
    Set TempWB = Nothing
End Function

Notes: Στον κώδικα,

4. Πάτα το F5 κλειδί για την εκτέλεση του κώδικα. Στο αναδυόμενο Kutools για Excel στο παράθυρο διαλόγου, επιλέξτε το εύρος των κελιών που θέλετε να στείλετε ως μέρος του περιεχομένου ενός κύριου περιεχομένου email και, στη συνέχεια, κάντε κλικ OK. Δείτε το στιγμιότυπο οθόνης:

Στη συνέχεια, ένα μήνυμα ηλεκτρονικού ταχυδρομείου του Outlook θα δημιουργηθεί αυτόματα. Μπορείτε να δείτε ότι η περιοχή που επιλέξατε στο φύλλο εργασίας εισάγεται στο σώμα του email. Δείτε στιγμιότυπο οθόνης:

4.1.2 Στείλτε ένα εύρος μέσω ηλεκτρονικού ταχυδρομείου ως συνημμένο από το Excel

Εάν πρέπει να στείλετε μέσω email μια σειρά κελιών σε ένα φύλλο εργασίας ως συνημμένο από το Excel. Μπορείτε να δοκιμάσετε τον ακόλουθο κώδικα VBA.

1. Πάτα το άλλος + F11 κλειδιά.

2. Στο άνοιγμα Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησης. Στη συνέχεια, επικολλήστε τον ακόλουθο κώδικα VBA στο Ενότητα (Κωδικός) παράθυρο.

Κωδικός VBA: Στείλτε ένα εύρος μέσω ηλεκτρονικού ταχυδρομείου ως συνημμένο από το Excel

Sub SendRange()
'Update 20220809
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim Ws As Worksheet
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
Dim WorkRng As Range
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set Wb = Application.ActiveWorkbook
Wb.Worksheets.Add
Set Ws = Application.ActiveSheet
WorkRng.Copy Ws.Cells(1, 1)
Ws.Copy
Set Wb2 = Application.ActiveWorkbook
Select Case Wb.FileFormat
Case xlOpenXMLWorkbook:
    xFile = ".xlsx"
    xFormat = xlOpenXMLWorkbook
Case xlOpenXMLWorkbookMacroEnabled:
    If Wb2.HasVBProject Then
        xFile = ".xlsm"
        xFormat = xlOpenXMLWorkbookMacroEnabled
    Else
        xFile = ".xlsx"
        xFormat = xlOpenXMLWorkbook
    End If
Case Excel8:
    xFile = ".xls"
    xFormat = Excel8
Case xlExcel12:
    xFile = ".xlsb"
    xFormat = xlExcel12
End Select
FilePath = Environ$("temp") & "\"
FileName = Wb.Name & Format(Now, "dd-mmm-yy h-mm-ss")
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
With OutlookMail
    .To = "xxx@aaa.com"
    .CC = "Email address"
    .BCC = "Email address"
    .Subject = "Monthly sales for 2021"
    .Body = "Hello, please check and read this document. "
    .Attachments.Add Wb2.FullName
    .Display
    '.Send
End With
Wb2.Close
Kill FilePath & FileName & xFile
Set OutlookMail = Nothing
Set OutlookApp = Nothing
Ws.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Notes:

3. Πάτα το F5 κλειδί για την εκτέλεση του κώδικα. Στο αναδυόμενο Kutools για Excel στο παράθυρο διαλόγου, επιλέξτε το εύρος των κελιών που θέλετε να στείλετε ως συνημμένο σε ένα email και, στη συνέχεια, κάντε κλικ OK. Δείτε το στιγμιότυπο οθόνης:

Στη συνέχεια, ένα μήνυμα ηλεκτρονικού ταχυδρομείου του Outlook θα δημιουργηθεί αυτόματα. Και η περιοχή των κελιών που επιλέξατε στο φύλλο εργασίας αποθηκεύεται ως βιβλίο εργασίας του Excel και επισυνάπτεται στο παράθυρο Μήνυμα. Δείτε στιγμιότυπο οθόνης:

4.2 Στείλτε email όταν κάνετε κλικ σε ένα κουμπί στο Excel

Εάν πρέπει να κάνετε κλικ σε ένα κουμπί εντολής για να ενεργοποιήσετε μια μακροεντολή για την αποστολή ενός email από το Excel, για παράδειγμα, στείλτε το τρέχον βιβλίο εργασίας ως συνημμένο σε άλλους κάνοντας κλικ σε ένα κουμπί εντολής στο φύλλο εργασίας. Μπορείτε να ακολουθήσετε τα παρακάτω βήματα για να το κάνετε.

1. κλικ Εργολάβος > Κύριο θέμα > Κουμπί εντολών (ActiveX Control). Στη συνέχεια σχεδιάστε ένα κουμπί εντολής στο φύλλο εργασίας.

Συμβουλές: Εάν έχετε ήδη κουμπί εντολής, παραλείψτε αυτό το βήμα.

2. Πάτα το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο. Στο παράθυρο, κάντε κλικ στο Κύριο θέμα > Modue, στη συνέχεια επικολλήστε τον κώδικα VBA (τον κώδικα που χρησιμοποιείται για να στείλετε email στο τρέχον βιβλίο εργασίας ως συνημμένο από το Excel) στο παράθυρο Module (Code).

Κάντε κλικ εδώ για να λάβετε τον κωδικό.

Σημείωση: Εδώ είναι το όνομα της μακροεντολής που δημιουργήσατε στο βήμα 2 Αποστολή Βιβλίο εργασίας.

3. Πάτα το άλλος + Q πλήκτρα για να κλείσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

4. Τώρα πρέπει να αντιστοιχίσετε τη μακροεντολή στο κουμπί εντολής. Κάντε δεξί κλικ στο κουμπί εντολής, επιλέξτε Προβολή κωδικού από το δεξί κλικ στο μενού.

5. Τότε το Microsoft Visual Basic για εφαρμογές εμφανίζεται ένα παράθυρο, μπορείτε να δείτε τις ακόλουθες δύο γραμμές που αναφέρονται στο Φύλλο (Κωδικός) παράθυρο.

Private Sub CommandButton1_Click()
End Sub

6. Εισαγάγετε το όνομα της υπάρχουσας μακροεντολής μέσα στην υποδιαδικασία για το κουμπί εντολής.

7. Πάτα το άλλος + Q πλήκτρα για να κλείσετε το Επεξεργαστής Visual Basic, και κάντε κλικ στο κουμπί Εργολάβος > Λειτουργία σχεδίασης για να απενεργοποιήσετε τη λειτουργία σχεδίασης.

Τώρα μπορείτε να κάνετε κλικ στο κουμπί εντολής για να στείλετε ένα email με το τρέχον βιβλίο εργασίας ως συνημμένο στο email.

4.3 Στείλτε email από έναν καθορισμένο λογαριασμό email

Κανονικά, κατά την εκκίνηση ενός email από το Excel με κώδικα VBA, ο λογαριασμός email του αποστολέα είναι ο προεπιλεγμένος λογαριασμός στο Outlook. Ας υποθέσουμε ότι έχετε διαμορφώσει πολλούς λογαριασμούς email στο Outlook και θέλετε να χρησιμοποιήσετε έναν συγκεκριμένο λογαριασμό για να στείλετε τα μηνύματα ηλεκτρονικού ταχυδρομείου από το Excel αντί να χρησιμοποιήσετε τον προεπιλεγμένο λογαριασμό. Ο παρακάτω κώδικας VBA μπορεί να βοηθήσει.

Οι παρακάτω κωδικοί είναι απαραίτητοι σε αυτήν την περίπτωση.

Κωδικός VBA 1:

Dim OutlookMail As Outlook.MailItem

Κωδικός VBA 2:

For Each xAccount In OutlookApp.Session.Accounts
  If VBA.LCase(xAccount.SmtpAddress) = VBA.LCase("zxm@addin99.com") Then 'Specify your email account here
    OutlookMail.SendUsingAccount = xAccount
  End If
Next

Πώς να χρησιμοποιήσετε τον παραπάνω κώδικα VBA;

Σε αυτό το παράδειγμα, πρόκειται να καθορίσουμε έναν συγκεκριμένο λογαριασμό email για να στείλουμε το τρέχον βιβλίο εργασίας ως συνημμένο από το Excel. Παρακαλώ κάντε το εξής.

1. Πάτα το άλλος + F11 κλειδιά. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Εργαλεία > αναφορές. Και μετά ελέγξτε το Βιβλιοθήκη αντικειμένων Microsoft Outlook 16.0 και κάντε κλικ στο κουμπί OK στο Αναφορές - VBAProject κουτί διαλόγου.

2. κλικ Κύριο θέμα > Μονάδα μέτρησης. Στη συνέχεια, επικολλήστε τον ακόλουθο κώδικα VBA στο Ενότητα (Κωδικός) παράθυρο.

Κωδικός VBA: Στείλτε το τρέχον βιβλίο εργασίας ως συνημμένο email από το Excel μέσω ενός καθορισμένου λογαριασμού Outlook

Sub SendWorkBook()
'Update by Extendoffice 20220809
Dim OutlookApp As Object
Dim OutlookMail As Outlook.MailItem 'important! Here can’t be declared as Object
Dim xAccount As Account
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(olMailItem)
On Error Resume Next
'The following lines helps to specify a certian email account
For Each xAccount In OutlookApp.Session.Accounts
  If VBA.LCase(xAccount.SmtpAddress) = VBA.LCase("zxm@addin99.com") Then 'Specify your email account here
    OutlookMail.SendUsingAccount = xAccount
  End If
Next
'End
With OutlookMail
    .To = "xxx@aaa.com"
    .CC = "Email Address"
    .BCC = "Email Address"
    .Subject = "kte feature"
    .Body = "Hello, please check and read this document, thank you."
    .Attachments.Add Application.ActiveWorkbook.FullName
    .Display
    '.Send
End With
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub

3. Πάτα το F5 κλειδί για την εκτέλεση του κώδικα. Στη συνέχεια, εμφανίζεται ένα μήνυμα ηλεκτρονικού ταχυδρομείου του Outlook, μπορείτε να δείτε ότι το Από Το πεδίο συμπληρώνεται με τον λογαριασμό email που καθορίσατε στον κωδικό.

4.4 Στείλτε ένα email όταν φτάσετε σε μια ημερομηνία

Εάν πρέπει να στείλετε ένα email με βάση μια συγκεκριμένη ημερομηνία λήξης, για παράδειγμα, όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης, υπάρχει ένας πίνακας έργου, όταν η ημερομηνία λήξης στο εύρος E2:E7 είναι ίση ή μικρότερη από 7 ημέρες από σήμερα (υποθέτοντας ότι η τρέχουσα ημερομηνία είναι 2022/8/4), θα σταλεί αυτόματα ένα email στους αντίστοιχους υπεύθυνους του έργου και θα τους ειδοποιήσει ότι το έργο πρόκειται να λήξει.

1. Στο φύλλο εργασίας που περιέχει τον πίνακα έργου, κάντε δεξί κλικ στην καρτέλα του φύλλου και κάντε κλικ Προβολή κωδικού από το μενού με δεξί κλικ.

2. Στο άνοιγμα Microsoft Visual Basic για εφαρμογές παράθυρο, επικολλήστε τον ακόλουθο κώδικα VBA στο Φύλλο (Κωδικός) παράθυρο.

Κωδικός VBA: Στείλτε αυτόματα ένα email όταν συμπληρωθεί μια ημερομηνία λήξης

Public Sub SendMailDueDate()
'Updated by Extendoffice 20220804
Dim xRgDate As Range
Dim xRgSend As Range
Dim xRgText As Range
Dim xRgDone As Range
Dim xOutApp As Object
Dim xMailItem As Object
Dim xLastRow As Long
Dim vbCrLf As String
Dim xMailBody As String
Dim xRgDateVal As String
Dim xRgSendVal As String
Dim xMailSubject As String
Dim i As Long
On Error Resume Next
Set xRgDate = Range("E2:E7") 'Please reference the due date column range
If xRgDate Is Nothing Then Exit Sub
Set xRgSend = Range("C2:C7") 'Please reference the email addresses column range
If xRgSend Is Nothing Then Exit Sub
Set xRgText = Range("D2:D7") 'Please reference the remark column range (the remark used to notify project leaders of the expiration of the project)
If xRgText Is Nothing Then Exit Sub
xLastRow = xRgDate.Rows.Count
Set xRgDate = xRgDate(1)
Set xRgSend = xRgSend(1)
Set xRgText = xRgText(1)
Set xOutApp = CreateObject("Outlook.Application")
For i = 1 To xLastRow
xRgDateVal = ""
xRgDateVal = xRgDate.Offset(i - 1).Value
If xRgDateVal <> "" Then
If CDate(xRgDateVal) - Date <= 7 And CDate(xRgDateVal) - Date > 0 Then
xRgSendVal = xRgSend.Offset(i - 1).Value
xMailSubject = xRgText.Offset(i - 1).Value & " on " & xRgDateVal
vbCrLf = "

"
            xMailBody = ""
            xMailBody = xMailBody & "Dear " & xRgSendVal & vbCrLf
            xMailBody = xMailBody & "Remark : " & xRgText.Offset(i - 1).Value & vbCrLf
            xMailBody = xMailBody & ""
Set xMailItem = xOutApp.CreateItem(0)
With xMailItem
.Subject = xMailSubject
.To = xRgSendVal
.CC = "Email address"
.BCC = "Email address"
.HTMLBody = xMailBody
.Display
'.Send
End With
Set xMailItem = Nothing
End If
End If
Next
Set xOutApp = Nothing
End Sub

Notes: Στον κώδικα,

3. Πάτα το F5 κλειδί για την εκτέλεση του κώδικα. Στη συνέχεια, εάν η ημερομηνία λήξης ταιριάζει με τις συνθήκες, θα δημιουργηθεί το αντίστοιχο email. Σε αυτήν την περίπτωση, θα δημιουργηθούν δύο email όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης.

5. Ένα εύχρηστο εργαλείο που σας βοηθά να στέλνετε εύκολα email από το Excel

Εάν είστε αρχάριος VBA, οι παραπάνω μέθοδοι μπορεί να μην είναι εύκολο να χειριστείτε. Εδώ προτείνουμε Kutools για Excel'S Αποστολή email χαρακτηριστικό, με αυτήν τη δυνατότητα, μπορείτε εύκολα να στείλετε email από το Excel μόνο με πολλά κλικ. Παρακαλώ κάντε το εξής.

5.1 Δημιουργήστε εύκολα μια λίστα αλληλογραφίας που περιλαμβάνει τα πεδία email που χρειάζεστε

Πριν εφαρμόσετε τη δυνατότητα Αποστολή email, πρέπει να δημιουργήσετε μια λίστα αλληλογραφίας που περιέχει τα πεδία email που χρειάζεστε. Εδώ η δυνατότητα Δημιουργία λίστας αλληλογραφίας μπορεί να βοηθήσει.

1. κλικ Kutools Plus > Δημιουργία λίστας αλληλογραφίας.

2. Στο άνοιγμα Δημιουργία λίστας αλληλογραφίας παράθυρο, πρέπει να ρυθμίσετε τις παραμέτρους ως εξής.

Στη συνέχεια δημιουργείται ένα δείγμα πίνακα λίστας αλληλογραφίας όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης.

3. Τώρα πρέπει να αντικαταστήσετε τα αρχικά δεδομένα στο δείγμα με τα δικά σας δεδομένα πεδίου.

Τώρα έχετε δημιουργήσει έναν πίνακα λίστας αλληλογραφίας. Συνεχίστε να εφαρμόσετε το Αποστολή email δυνατότητα αποστολής email από το Excel με βάση τα πεδία που δημιουργήσατε.

5.2 Στείλτε εύκολα email, συμπεριλαμβανομένων των πεδίων που δημιουργήσατε στη λίστα αλληλογραφίας

Μετά τη δημιουργία της λίστας αλληλογραφίας (κάντε κλικ για να μάθετε πώς) που περιέχει τα πεδία που μπορεί να χρειαστείτε στα email σας, μπορείτε πλέον να στέλνετε email από το Excel με αυτά τα πεδία.

1. Επιλέξτε ολόκληρη τη λίστα αλληλογραφίας και κάντε κλικ Kutools Plus > Αποστολή email.

2. Στο Αποστολή email παράθυρο διαλόγου, κάντε την ακόλουθη διαμόρφωση.

3. Τότε α Kutools για Excel Εμφανίζεται το παράθυρο διαλόγου για να σας πει πόσα μηνύματα ηλεκτρονικού ταχυδρομείου αποστέλλονται, κάντε κλικ στο OK κουμπί για να κλείσετε αυτό το παράθυρο διαλόγου.

Συμβουλές: Μπορείτε να πάτε στο Απεσταλμένα στοιχεία φάκελο στο Outlook για να ελέγξετε τα email που στείλατε.

5.3 Εύκολη αποστολή email με σώμα HTML (συμπεριλαμβανομένου υπερσύνδεσμου, εικόνας κ.λπ.)

Αυτή η δυνατότητα αποστολής email σάς επιτρέπει να δημιουργήσετε ένα email html, το οποίο περιλαμβάνει υπερσύνδεσμο, εικόνα, διαφορετικά μεγέθη γραμματοσειράς και χρώματα γραμματοσειράς κ.λπ.

Μετά το δημιουργώντας μια λίστα αλληλογραφίας που περιλαμβάνει τα πεδία email που χρειάζεστε,

Όταν διαμορφώστε το πλαίσιο διαλόγου Αποστολή email, μπορείτε να κάνετε πλούσιο το περιεχόμενο του σώματος χρησιμοποιώντας τις επιλογές στη γραμμή εργαλείων.

Δείτε το στιγμιότυπο οθόνης παρακάτω:

5.4 Εισαγάγετε εύκολα την προεπιλεγμένη υπογραφή του Outlook κατά την αποστολή email

Στην παραπάνω μέθοδο, παρουσιάσαμε έναν κώδικα VBA για να σας βοηθήσουμε να στείλετε μηνύματα ηλεκτρονικού ταχυδρομείου με προεπιλεγμένη υπογραφή του Outlook. Εδώ, με τη δυνατότητα Αποστολή μηνυμάτων ηλεκτρονικού ταχυδρομείου, πρέπει απλώς να ενεργοποιήσετε μια επιλογή και, στη συνέχεια, η προεπιλεγμένη υπογραφή του Outlook θα εισαχθεί στα μηνύματα ηλεκτρονικού ταχυδρομείου που στείλατε από το Excel.

Μετά το δημιουργώντας μια λίστα αλληλογραφίας που περιλαμβάνει τα πεδία email που χρειάζεστε,

Όταν διαμορφώστε το πλαίσιο διαλόγου Αποστολή email, πρέπει να κάνετε κλικ Επιλογές > Χρησιμοποιήστε τις ρυθμίσεις υπογραφής του Outlook.

Σημείωση: Βεβαιωθείτε ότι εμφανίζεται ένα σημάδι επιλογής πριν από την επιλογή Χρήση των ρυθμίσεων υπογραφής του Outlook.

Όταν οι παραλήπτες λαμβάνουν το email, μπορούν να δουν την προεπιλεγμένη υπογραφή του Outlook να εμφανίζεται στο τέλος του σώματος του email.

5.5 Στείλτε εύκολα email από έναν καθορισμένο λογαριασμό email

Για να χρησιμοποιήσετε έναν συγκεκριμένο λογαριασμό email για να στείλετε τα μηνύματα ηλεκτρονικού ταχυδρομείου από το Excel αντί να χρησιμοποιήσετε τον προεπιλεγμένο λογαριασμό, η λειτουργία Αποστολή μηνυμάτων ηλεκτρονικού ταχυδρομείου μπορεί επίσης να σας βοηθήσει να το κάνετε εύκολα.

Μετά το δημιουργώντας μια λίστα αλληλογραφίας που περιλαμβάνει τα πεδία email που χρειάζεστε,

Όταν διαμορφώστε το πλαίσιο διαλόγου Αποστολή email, πρέπει να κάνετε κλικ Επιλογές > Στάλθηκε από, στη συνέχεια κάντε κλικ στον λογαριασμό email από τον οποίο θέλετε να στείλετε μηνύματα ηλεκτρονικού ταχυδρομείου.

Σημείωση: Αφού επιλέξετε τον λογαριασμό email, θα εμφανιστεί ένα σημάδι επιλογής πριν από αυτόν.

Πατήστε εδώ για να μάθετε περισσότερα σχετικά με αυτήν τη δυνατότητα Αποστολής email.

Συμπερασματικά, η αποστολή email από το Excel είναι αρκετά χρήσιμη στην καθημερινή μας δουλειά. Αυτό το άρθρο καλύπτει πιο ολοκληρωμένα θέματα σχετικά με την αποστολή μηνυμάτων ηλεκτρονικού ταχυδρομείου από το Excel. Εάν υπάρχουν άλλα θέματα ή ευκολότερες λύσεις, αφήστε ένα σχόλιο για να με ενημερώσετε.