Note: The other languages of the website are Google-translated. Back to English

Πώς να στείλετε εξατομικευμένα μαζικά email σε μια λίστα από το Excel μέσω του Outlook;

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

doc στείλετε εξατομικευμένα email 1

Στείλτε εξατομικευμένα μαζικά email σε μια λίστα από το Excel με τη λειτουργία συγχώνευσης αλληλογραφίας

Στείλτε εξατομικευμένα μαζικά email σε μια λίστα από το Excel με κωδικό VBA

Στείλτε εξατομικευμένα μαζικά email σε μια λίστα με διαφορετικά συνημμένα χρησιμοποιώντας το Kutools για Excel


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

Με το Word Συγχώνευση αλληλογραφίας λειτουργία, μπορείτε να ολοκληρώσετε αυτήν την εργασία γρήγορα και εύκολα, κάντε το παρακάτω βήμα προς βήμα:

1. Ξεκινήστε ένα νέο κενό έγγραφο του Word και, στη συνέχεια, κάντε κλικ στο Αλληλογραφίας > Επιλέξτε παραλήπτες > Χρησιμοποιήστε μια υπάρχουσα λίστα, δείτε το στιγμιότυπο οθόνης:

doc στείλετε εξατομικευμένα email 2

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

doc στείλετε εξατομικευμένα email 3

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

doc στείλετε εξατομικευμένα email 4

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

(1.) Για να εισαγάγετε το ατομικό τους όνομα χαιρετισμού, κάντε κλικ στο Αλληλογραφίας > Εισαγωγή συγχώνευσης πεδίου > Όνοματεπώνυμο, το εξατομικευμένο όνομα έχει εισαχθεί στο μήνυμα και το όνομα πεδίου περιβάλλεται από «».

doc στείλετε εξατομικευμένα email 5

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

doc στείλετε εξατομικευμένα email 6

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

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

doc στείλετε εξατομικευμένα email 7

7. Στη συνέχεια, βγήκε έξω Συγχώνευση σε E-mail πλαίσιο διαλόγου, κάντε τις ακόλουθες λειτουργίες:

(1.) Από το Προς την αναπτυσσόμενη λίστα, επιλέξτε Διεύθυνση ηλεκτρονικού ταχυδρομείου στήλη;

(2.) Μπορείτε να πληκτρολογήσετε το θέμα στο Θέμα πλαίσιο κειμένου γραμμής;

(3.) Από το Αποστολή εγγραφών , επιλέξτε Όλα.

doc στείλετε εξατομικευμένα email 8

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


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

Με Kutools για Excel's Αποστολή email δυνατότητα, μπορείτε να στείλετε γρήγορα εξατομικευμένα email σε πολλούς παραλήπτες με διαφορετικά συνημμένα από το Excel μέσω του Outlook όπως χρειάζεστε. Ταυτόχρονα, μπορείτε να κάνετε CC ή Bcc τα μηνύματα σε ένα συγκεκριμένο άτομο επίσης.       Κατεβάστε και δωρεάν δοκιμή Kutools για Excel τώρα!

doc στείλτε εξατομικευμένα email 18 1


βέλος μπλε δεξιά φούσκα Στείλτε εξατομικευμένα μαζικά email σε μια λίστα από το Excel με κωδικό VBA

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

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

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Μονάδα μέτρησης Παράθυρο.

Κωδικός VBA: Αποστολή εξατομικευμένων μαζικών email σε μια λίστα από το Excel:

#If VBA7 And Win64 Then
    Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
                         ByVal hwnd As LongPtr, ByVal lpOperation As String, _
                         ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
                         ByVal nShowCmd As Long) As LongPtr
#Else
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
                         ByVal hwnd As Long, ByVal lpOperation As String, _
                         ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
                         ByVal nShowCmd As Long) As Long
#End If
Sub SendEMail()
'update by Extendoffice 20160506
    Dim xEmail As String
    Dim xSubj As String
    Dim xMsg As String
    Dim xURL As String
    Dim i As Integer
    Dim k As Double
    Dim xCell As Range
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count <> 3 Then
        MsgBox " Regional format error, please check", , "Kutools for Excel"
        Exit Sub
    End If
    For i = 1 To xRg.Rows.Count
'       Get the email address
        xEmail = xRg.Cells(i, 2)
'       Message subject
        xSubj = "Your Registration Code"
'       Compose the message
        xMsg = ""
        xMsg = xMsg & "Dear " & xRg.Cells(i, 1) & "," & vbCrLf & vbCrLf
        xMsg = xMsg & " This is your Registration Code "
        xMsg = xMsg & xRg.Cells(i, 3).Text & "." & vbCrLf & vbCrLf
        xMsg = xMsg & " please try it, and glad to get your feedback! " & vbCrLf
        xMsg = xMsg & "Skyyang"
'       Replace spaces with %20 (hex)
        xSubj = Application.WorksheetFunction.Substitute(xSubj, " ", "%20")
        xMsg = Application.WorksheetFunction.Substitute(xMsg, " ", "%20")
'       Replace carriage returns with %0D%0A (hex)
        xMsg = Application.WorksheetFunction.Substitute(xMsg, vbCrLf, "%0D%0A")
'       Create the URL
        xURL = "mailto:" & xEmail & "?subject=" & xSubj & "&body=" & xMsg
'       Execute the URL (start the email client)
        ShellExecute 0&, vbNullString, xURL, vbNullString, vbNullString, vbNormalFocus
'       Wait two seconds before sending keystrokes
        Application.Wait (Now + TimeValue("0:00:02"))
        Application.SendKeys "%s"
    Next
End Sub

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

doc στείλετε εξατομικευμένα email 9

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

Note: Στον παραπάνω κώδικα, μπορείτε να αλλάξετε το θέμα ή το μήνυμα σώματος ανάλογα με τις ανάγκες σας.


βέλος μπλε δεξιά φούσκα Στείλτε εξατομικευμένα μαζικά email σε μια λίστα με διαφορετικά συνημμένα χρησιμοποιώντας το Kutools για Excel

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

Kutools για Excel : με περισσότερα από 300 εύχρηστα πρόσθετα Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. 

Μετά την εγκατάσταση Kutools για Excel, κάντε το ως εξής:

1. Κλίκ Kutools Plus > Αποστολή email, δείτε το στιγμιότυπο οθόνης:

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

doc στείλετε εξατομικευμένα email 9

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

doc στείλετε εξατομικευμένα email 9

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

doc στείλετε εξατομικευμένα email 9

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

doc στείλετε εξατομικευμένα email 9

Note: Εάν θέλετε να χρησιμοποιήσετε άλλο διακομιστή, κάντε κλικ στο Ρυθμίσεις διακομιστή εξερχόμενων για να ρυθμίσετε τη λειτουργία αποστολής στη δική σας, δείτε το screesnhot:

doc στείλετε εξατομικευμένα email 9

6. Επιτέλους, κάντε κλικ στο κουμπί Στείλετε για να στείλετε τα email, αφού συμπληρώσετε, θα εμφανιστεί ένα πλαίσιο προτροπής για να σας υπενθυμίσει την κατάσταση αποστολής. δείτε το screesnhot:

doc στείλετε εξατομικευμένα email 9

Κάντε κλικ στην επιλογή Λήψη και δωρεάν δοκιμή Kutools για Excel τώρα!


Επίδειξη: Αποστολή εξατομικευμένων μαζικών μηνυμάτων ηλεκτρονικού ταχυδρομείου σε μια λίστα από το Excel μέσω του Outlook

Kutools για Excel: με περισσότερα από 300 εύχρηστα πρόσθετα του Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Λήψη και δωρεάν δοκιμή τώρα!

Σχετικό άρθρο:

Πώς να στείλετε email σε πολλούς παραλήπτες σε μια λίστα από το Excel μέσω του Outlook;


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

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (47)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτός ο κώδικας λειτούργησε πολύ καλά, χάρη σε αυτό. Αλλά έχω μόνο ένα μικρό πρόβλημα, προσπαθώ να αλλάξω τον κώδικα για να προκαθορίσω τα κελιά που θέλω να παίρνω τα email και να τα στέλνω επειδή έτσι δημιούργησα το αρχείο excel μου. Θα ήθελα να αλλάξω το πλαίσιο επιλογής για μια καθορισμένη σειρά κελιών. Παράδειγμα: fix όλα τα δεδομένα μου θα είναι μεταξύ A2:C6, οπότε όταν εκτελώ τη μακροεντολή δεν χρειάζεται να την επιλέξω ξανά. Ευχαριστώ πολύ για όλα όσα εξήγησες παραπάνω
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Μπορείτε να τροποποιήσετε τον κώδικα για να επισυνάψετε πολλά αρχεία σε email; Θα ήταν μεγάλη βοήθεια. Ευχαριστώ εκ των προτέρων.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
είναι δυνατόν να προσθέσω κώδικα ώστε να τραβάει και την κανονική υπογραφή του email μου; Επίσης, όταν επιλέγω την περιοχή μου για email, έχω φιλτράρει το υπολογιστικό φύλλο του excel, αλλά όταν εκτελώ τη μακροεντολή, εξακολουθεί να τραβάει και τις κρυφές σειρές.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Θα ήθελα να μάθω και για αυτό!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
πώς να προσθέσετε cc στον παραπάνω κώδικα
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πολύ καλός τρόπος

Απλά πρέπει να σε ρωτήσω για την πιθανότητα αλλαγής θέματος κάθε φορά βάσει email;;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου, Aziz,
Όταν εφαρμόζετε το Kutools για Excel, μπορεί να σας βοηθήσει να εισαγάγετε τα θέματα με βάση τις τιμές των κελιών, απλά πρέπει να επιλέξετε την κεφαλίδα της στήλης θέματος στο πλαίσιο διαλόγου, όπως φαίνεται στο ακόλουθο στιγμιότυπο οθόνης:

Δοκιμάστε το, ελπίζω να σας βοηθήσει!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Skyyang,

Προσπαθώ και προσπαθώ να βγάλω την υπογραφή του email μου, αλλά δεν μπορώ να το κάνω σωστά! Έχετε κάποιο κώδικα που μπορώ να προσθέσω για να συμβεί αυτό;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Τρέλα ανάρτηση αυτή είναι, αυτή είναι ψεύτικη και μην πιστεύετε αυτό το περιεχόμενο
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου φίλε,
Αυτό είναι φανταστικό, χρειάζομαι μία βοήθεια Χρειάζομαι να επισυνάψω διαφορετικό αρχείο pdf σε διαφορετικό email κάθε φορά.
Μπορεί κανείς να με βοηθήσει παρακαλώ?
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
γεια Skyyang,
Πρέπει να επισυνάψω διαφορετικό αρχείο pdf για κάθε αλληλογραφία. μπορεις να βοηθησεις σε παρακαλω??
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου, Arvind,
Τα Kutools μπορούν να σας βοηθήσουν να προσθέσετε πολλά διαφορετικά συνημμένα κατά την αποστολή email.
Πρώτα θα πρέπει να εισαγάγετε τη διαδρομή των συνημμένων στα κελιά και, στη συνέχεια, να εφαρμόσετε τα Kutools, δείτε το ακόλουθο στιγμιότυπο οθόνης:
Ελπίζω ότι μπορεί να σας βοηθήσει, σας ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
γεια Skyyang,
Χρησιμοποίησα τον παρακάτω κωδικό για να στείλω αλληλογραφία και λειτουργεί τέλεια, υπάρχει κάτι που μπορείτε να με βοηθήσετε να τροποποιήσω τον κώδικα για την αποστολή συνημμένων pdf.
Χρειάζομαι να στείλω περισσότερα από 100 μηνύματα, επομένως είναι δύσκολο να επισυνάψω το αρχείο κάθε φορά. Το Kutools λειτουργεί σύμφωνα με τη δεδομένη διαδρομή και στέλνει αυτόματα μηνύματα;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
hey,
μπορείτε να με βοηθήσετε με τη λειτουργία attachment.add; με τον παραπάνω κωδικό VBA πρέπει να στείλω συνημμένο.
δεν μπορώ να χρησιμοποιήσω το Kutools :(
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
πώς να cc ανθρώπους σε αυτό;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
τι γίνεται αν έχω δεδομένα για πολλούς πελάτες και ορισμένοι πελάτες έχουν περισσότερα από 1 δεδομένα... και δεν θέλω να στείλω ξεχωριστά μηνύματα στους πελάτες, αλλά ίσως να τα στείλω σε μορφή πίνακα στο email. Πώς μπορώ να στείλω μόνο 1 email σε έναν πελάτη.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Steven, βρήκες τρόπο να το κάνεις αυτό; Μπορούμε να σας βοηθήσουμε με μια απλή διαδικτυακή πύλη
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, το έλυσες;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Θέλω να μάθω πώς να το φτιάξω. Μπορείς να μου πεις?
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ!!

Αλλά προσπαθώ να κάνω το τεστ και δεν στέλνω τίποτα στο emai. Επίσης δεν υπάρχει μήνυμα σφάλματος. Μπορώ να ξέρω τι έγινε;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Έχω μια λίστα με διευθύνσεις email στο excel που πρέπει να στείλω email στο θέμα και το σώμα βρίσκονται σε κελιά εκτός από τη διεύθυνση email και έχω το παρακάτω σενάριο, αλλά πρέπει να στέλνω 100 email ανά 1 ώρα πώς μπορώ να παρακαλέσω την υποστήριξή σας

Sub SendEm()
Dim i As Integer, Mail_Object, Email_Subject, o As Variant, lr As Long
lr = Κελιά(Σειρά.Αριθμός, "A").Τέλος(xlUp).Σειρά
Ορισμός Mail_Object = CreateObject("Outlook.Application")
Για i = 2 Προς lr
Με Mail_Object.CreateItem(o)
.Subject = Εύρος ("B" & i).Τιμή
.To = Εύρος ("A" & i).Τιμή

.Body = Εύρος ("C" & i).Τιμή
.attachments.Add (Sheets("Sheet1").Range("H" & i).Text)
.attachments.Add (Sheets("Sheet1").Range("I" & i).Text)
.attachments.Add (Sheets("Sheet1").Range("J" & i).Text)
.attachments.Add (Sheets("Sheet1").Range("K" & i).Text)
.Στείλετε

'.εμφάνιση 'απενεργοποιήστε την οθόνη και ενεργοποιήστε την αποστολή για αυτόματη αποστολή
Τέλος με
Επόμενο i
MsgBox "Το ηλεκτρονικό ταχυδρομείο εστάλη με επιτυχία", 64
Application.DisplayAlerts = False
Ορισμός Mail_Object = Τίποτα
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου, Hiba,
Τα Kutools μας για την αποστολή μηνυμάτων ηλεκτρονικού ταχυδρομείου του Excel μπορούν να σας βοηθήσουν να λύσετε το πρόβλημά σας. Ορίστε τις συνθήκες όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης:
Με αυτήν τη δυνατότητα, μπορείτε επίσης να εφαρμόσετε τη δυνατότητα CC, BCC και μπορείτε επίσης να εισαγάγετε πολλά συνημμένα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
HIi διαχειριστής


apakah metode ini bisa di lakukan pada word 2007 soalnya saya coba lakukan di αρχείο pdf nya tdk terkirim .. terimakasih
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Για κάποιο λόγο, αυτός ο κωδικός τον έχει εκεί που στέλνει κάθε άλλο email στη λίστα. Υπάρχει λόγος για τον οποίο δεν θα στείλει το καθένα; Αντέγραψα απευθείας τον κωδικό που ήταν παραπάνω και δεν άλλαξα τίποτα
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ο κώδικας VBA λειτουργεί καλά, ευχαριστώ, αλλά πώς να προσθέσω Κοιν; Προσπάθησα και απέτυχα...
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ο κώδικας VBA λειτουργεί καλά, ευχαριστώ, αλλά πώς να προσθέσω Κοιν; Δοκίμασα με:


Dim xCc ως συμβολοσειρά
τότε
xCc = xRg.Cells(i, 9) (η διεύθυνση βρίσκεται στην 9η στήλη)


και απέτυχε...
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου, Jean,

Για να λύσετε το πρόβλημά σας, εφαρμόστε τον παρακάτω κώδικα: (Σημείωση: Θα πρέπει να προσθέσετε τη στήλη CC στη στήλη Γ)

#If VBA7 And Win64 Τότε
Ιδιωτικό Δήλωση συνάρτησης PtrSafe ShellExecute Lib "shell32.dll" Ψευδώνυμο "ShellExecuteA" ( _
ByVal hwnd As LongPtr, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As LongPtr
#Αλλού
Ιδιωτική συνάρτηση δήλωσης ShellExecute Lib "shell32.dll" Ψευδώνυμο "ShellExecuteA" ( _
ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
#Τέλος εαν
Δευτερεύον SendEMmail()
Dim xEmail ως συμβολοσειρά
Dim xSubj ως συμβολοσειρά
Dim xMsg ως συμβολοσειρά
Dim xURL ως συμβολοσειρά
Dim i ως ακέραιο
Dim k Ως Διπλό
Dim xCell ως εύρος
Dim xRg ως εύρος
Dim xTxt ως συμβολοσειρά
Dim xCC ως συμβολοσειρά
On Error Συνέχιση Επόμενη
xTxt = ActiveWindow.RangeSelection.Address
Ορίστε xRg = Application.InputBox("Επιλέξτε το εύρος δεδομένων:", "Kutools for Excel", xTxt, , , , , 8)
Εάν το xRg δεν είναι τίποτα, τότε βγείτε από το Sub
Αν xRg.Columns.Count <> 4 Τότε
MsgBox " Σφάλμα περιφερειακής μορφής, ελέγξτε", , "Kutools for Excel"
Έξοδος Sub
End If
Για i = 1 σε xRg.Rows.Count
xEmail = xRg.Cells(i, 2)
xCC = xRg.Κελιά(i, 3)
xSubj = "Ο κωδικός εγγραφής σας"
xMsg = ""
xMsg = xMsg & "Dear " & xRg.Cells(i, 1) & "," & vbCrLf & vbCrLf
xMsg = xMsg & "Αυτός είναι ο κωδικός εγγραφής σας"
xMsg = xMsg & xRg.Cells(i, 4).Text & "." & vbCrLf & vbCrLf
xMsg = xMsg & " δοκιμάστε το και χαίρομαι που λαμβάνω τα σχόλιά σας! " & vbCrLf
xMsg = xMsg & "Skyyang"
xSubj = Application.WorksheetFunction.Substitute(xSubj, " ", "%20")
xMsg = Application.WorksheetFunction.Substitute(xMsg, " ", "%20")
xMsg = Application.WorksheetFunction.Substitute(xMsg, vbCrLf, "%0D%0A")
xURL = "mailto:" & xEmail & "?cc=" & xCC & "&subject=" & xSubj & "&body=" & xMsg
ShellExecute 0&, vbNullString, xURL, vbNullString, vbNullString, vbNormalFocus
Application.Wait (Now + TimeValue("0:00:02"))
Application.SendKeys "%s"
Επόμενο
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Έχω χρησιμοποιήσει τον προαναφερθέντα κώδικα VBA στην ενότητα "Αποστολή εξατομικευμένων μαζικών μηνυμάτων ηλεκτρονικού ταχυδρομείου σε λίστα από το Excel με κώδικα VBA". Ήθελα να μάθω αν θα μπορούσα να στείλω ένα email σε συγκεκριμένα άτομα που χρειάζονται ειδοποίηση βάσει του excel, λέγοντάς μου να στείλω υπενθυμίσεις σε όσους έχουν επερχόμενες συμβάσεις που λήγουν; Δεν μπορώ να λάβω το Excel για να στείλω τα μηνύματα ηλεκτρονικού ταχυδρομείου και το ξέρω λόγω του ίδιου του κώδικα. Μπορεί κάποιος να με βοηθήσει να λύσω αυτό το ζήτημα;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Θέλω να στείλω τα email με μοναδική γραμμή θέματος, πώς μπορώ να το κάνω αυτό με αυτό το VBA;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σε όλους!

Έχω μια λίστα με email σε ένα φύλλο και το πρόχειρο email σε ένα άλλο.
Χρειάζομαι έναν κωδικό για να στείλω αυτόματα το πρόχειρο email από το φύλλο 2 σε κάθε 5 μέλη στη λίστα που παρέχεται στο φύλλο 1.
Μόλις σταλούν τα πρώτα 5, ο κωδικός θα πρέπει να τους επισημάνει ως "Απεσταλμένα" σε μια νέα αποκλειστική στήλη και, στη συνέχεια, να περιμένει για 60 δευτερόλεπτα πριν στείλει το επόμενο σύνολο 5 μηνυμάτων ηλεκτρονικού ταχυδρομείου.
Ο κωδικός πρέπει να τρέχει μέχρι το τέλος ολόκληρης της λίστας.

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

Παρακαλώ βοηθήστε.

Ενημερώστε με σε περίπτωση που χρειάζεστε περισσότερες διευκρινίσεις
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Τοποθετήστε Περισσότερα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL