Πώς να εισαγάγετε την υπογραφή του Outlook κατά την αποστολή email στο Excel;

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

Εισαγάγετε υπογραφή στο email του Outlook κατά την αποστολή μέσω του Excel VBA
Εισαγάγετε εύκολα την υπογραφή του Outlook κατά την αποστολή email στο Excel με ένα καταπληκτικό εργαλείο
Περισσότερα σεμινάρια για αποστολή στο Excel ...

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

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

1. Ανοίξτε το φύλλο εργασίας περιέχει τη λίστα διευθύνσεων email στην οποία θέλετε να στείλετε email και, στη συνέχεια, πατήστε το άλλος + F11 κλειδιά.

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

3. Τώρα πρέπει να αντικαταστήσετε το .Σώμα γραμμή σε VBA 2 με τον κωδικό στο VBA 1. Μετά από αυτό, μετακινήστε τη γραμμή .Απεικόνιση κάτω από τη γραμμή Με το xMailOut.

VBA 1: Πρότυπο αποστολής email με προεπιλεγμένη υπογραφή του Outlook στο Excel

.HTMLBody = "This is a test email sending in Excel" & "<br>" & .HTMLBody

VBA 2: Αποστολή email σε διευθύνσεις email που καθορίζονται σε κελιά στο Excel

Sub SendEmailToAddressInCells()
    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 email address range", "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

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

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

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

Συμβουλές:

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

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

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

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

Μπορείτε να δημιουργήσετε μη αυτόματα μια λίστα αλληλογραφίας όπως χρειάζεστε ή να εφαρμόσετε τη δυνατότητα Δημιουργία λίστας αλληλογραφίας για να την ολοκληρώσετε γρήγορα.

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

2. Στο Δημιουργία λίστας αλληλογραφίας πλαίσιο διαλόγου, καθορίστε τα πεδία που χρειάζεστε, επιλέξτε πού θα εξάγετε τη λίστα και, στη συνέχεια, κάντε κλικ στο OK κουμπί.

3. Τώρα δημιουργείται ένα δείγμα λίστας αλληλογραφίας. Δεδομένου ότι είναι μια λίστα δειγμάτων, πρέπει να αλλάξετε τα πεδία σε συγκεκριμένο απαραίτητο περιεχόμενο. (επιτρέπονται πολλές σειρές)

4. Μετά από αυτό, επιλέξτε ολόκληρη τη λίστα (συμπεριλάβετε κεφαλίδες), κάντε κλικ στο Kutools Plus > Αποστολή email.

5. Στο Αποστολή email κουτί διαλόγου:

• 5.1) Τα στοιχεία στην επιλεγμένη λίστα αλληλογραφίας τοποθετούνται αυτόματα στα αντίστοιχα πεδία.
• 5.2) Ολοκληρώστε το σώμα του email.
• 5.3) Ελέγξτε και τα δύο Αποστολή email μέσω του Outlook και Χρησιμοποιήστε τις ρυθμίσεις υπογραφής του Outlook κουτιά?
• 5.4) Κάντε κλικ στο Αποστολή κουμπί. Δείτε το στιγμιότυπο οθόνης:

Τώρα αποστέλλονται email. Και η προεπιλεγμένη υπογραφή του Outlook προστίθεται στο τέλος του σώματος email.

Σχετικά άρθρα:

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

🤖	Kutools AI Aide: Επανάσταση στην ανάλυση δεδομένων με βάση: Ευφυής Εκτέλεση   |  Δημιουργία κώδικα  |  Δημιουργία προσαρμοσμένων τύπων  |  Αναλύστε δεδομένα και δημιουργήστε γραφήματα  |  Επίκληση Λειτουργιών Kutools...
	Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
	Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων  |   VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
	Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
	Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
	Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar   |  Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών   |  Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
	Κορυφαία 15 σύνολα εργαλείων:  12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

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

Διαβάστε περισσότερα ... ΔΩΡΕΑΝ Λήψη...

---

Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

• Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
• Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
• Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!

Διαβάστε περισσότερα ... ΔΩΡΕΑΝ Λήψη...