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

Πώς να εφαρμόσετε ένα κουμπί για αποστολή email με συνημμένο το τρέχον αρχείο του Word; 

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

Εφαρμόστε ένα κουμπί για αποστολή email με συνημμένο το τρέχον αρχείο Word


Εφαρμόστε ένα κουμπί για αποστολή email με συνημμένο το τρέχον αρχείο Word

Ακολουθήστε τα παρακάτω βήματα για την επίλυση αυτής της εργασίας στο αρχείο Word:

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

κουμπί doc για αποστολή email 1

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

κουμπί doc για αποστολή email 2

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

κουμπί doc για αποστολή email 3

4. Και μετά, στην οθόνη Microsoft Visual Basic για εφαρμογές παράθυρο, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα μεταξύ των αρχικών σεναρίων, δείτε το στιγμιότυπο οθόνης:

Dim xOutlookObj As Object
    Dim xEmail As Object
    Dim xDoc As Document
    Application.ScreenUpdating = False
    Set xOutlookObj = CreateObject("Outlook.Application")
    Set xEmail = xOutlookObj.CreateItem(olMailItem)
    Set xDoc = ActiveDocument
    xDoc.Save
    With xEmail
        .Subject = "Fax-data"
        .Body = "This is a test email."
        .To = "yy@addin99.com"
        .Importance = olImportanceNormal
        .Attachments.Add xDoc.FullName
        .Display
    End With
    Set xDoc = Nothing
    Set xEmail = Nothing
    Set xOutlookObj = Nothing
    Application.ScreenUpdating = True

κουμπί doc για αποστολή email 4

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

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

κουμπί doc για αποστολή email 5

6. Επιτέλους, πρέπει απλώς να κάνετε κλικ Στείλετε κουμπί για να στείλετε αυτό το μήνυμα.


Συνιστώμενα εργαλεία παραγωγικότητας του Word

 

Kutools For Word - Περισσότερες από 100 προηγμένες λειτουργίες για το Word, εξοικονομήστε 50% χρόνο

  • Περίπλοκες και επαναλαμβανόμενες λειτουργίες μπορούν να γίνουν μία φορά επεξεργασία σε δευτερόλεπτα.
  • Εισαγάγετε πολλές εικόνες στους φακέλους στο έγγραφο του Word ταυτόχρονα.
  • Συγχώνευση και συνδυασμός πολλαπλών αρχείων Word σε όλους τους φακέλους σε ένα με την επιθυμητή σειρά.
  • Διαχωρίστε το τρέχον έγγραφο σε ξεχωριστά έγγραφα σύμφωνα με την επικεφαλίδα, το τμήμα αλλαγής ή άλλα κριτήρια.
  • Μετατροπή αρχείων μεταξύ Doc και Docx, Docx και PDF, συλλογή εργαλείων για κοινές μετατροπές και επιλογή και ούτω καθεξής ...
Σχόλια (29)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Προσπαθώ να στείλω το email με τη γραμμή θέματος να είναι τα περιεχόμενα ενός από τα πεδία μου. Είναι δυνατόν;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Hola, me podrían apoyar para que el archivo se convierta en PDF y se adjunte al correo en ves del word por favor.
Σας ευχαριστώ πολύ.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας Extend Office Team,

Πιστεύω ότι το 'xEmile' είναι ανορθόγραφο. Θα πρέπει να είναι 'xEmail'.

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

Ορισμός xEmail = Τίποτα
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, Άμπι,
Ευχαριστώ για το σχόλιό σας, όπως είπατε, το 'xEmile' είναι λάθος γραμμένο, θα πρέπει να είναι 'xEmail'. Έχω ενημερώσει τον κωδικό.
Σας ευχαριστώ και πάλι!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Μπορεί να γίνει αυτό για να στείλετε μόνο μία σελίδα ενός εγγράφου;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου, Ντον,
Για να αντιμετωπίσετε την εργασία σας, εφαρμόστε τον παρακάτω κώδικα· στον κώδικα, θα πρέπει να αλλάξετε τη σελίδα έναρξης και τελικής σελίδας σε δική σας:

Private Sub CommandButton1_Click ()

Dim xCurPageStart As Long, xCurPageEnd As Long, xCurPageRange As Range

Dim xCurPage ως ακέραιος αριθμός, xPages ως ακέραιος

Dim xOutlookObj ως αντικείμενο

Dim xEmail ως αντικείμενο

Dim xDoc ως έγγραφο, xNewDoc ως έγγραφο

Dim xFilePath ως συμβολοσειρά

Dim xOldStart As Long, xOldEnd As Long

On Error Συνέχιση Επόμενη

Application.ScreenUpdating = False

Ορισμός xOutlookObj = CreateObject("Outlook.Application")

Ορισμός xEmail = xOutlookObj.CreateItem(olMailItem)

xFilePath = CreateObject("WScript.Shell").SpecialFolders(16)

Ορισμός xDoc = ActiveDocument

xOldStart = xDoc.Application.Selection.Start

xOldEnd = xDoc.Application.Selection.End

xDoc.Save

xFilePath = xFilePath + "\attached file" + VBA.Mid(xDoc.FullName, VBA.InStrRev(xDoc.FullName, ".")) 'το συνημμένο αρχείο είναι το όνομα του αρχείου συνημμένου, αλλαγή στις ανάγκες σας

xCurPageStart = 2 'αρχική σελίδα

xCurPageEnd = 2 'τελική σελίδα

xPages = Selection.Information(wdNumberOfPagesInDocument)

xCurPageStart = Selection.GoTo(what:=wdGoToPage, Ποια:=wdGoToNext, Name:=xCurPageStart).Έναρξη

Αν xCurPage = xPages Τότε

xCurPageEnd = ActiveDocument.Content.End

Αλλού

xCurPageEnd = Selection.GoTo(what:=wdGoToPage, Ποια:=wdGoToNext, Name:=xCurPageEnd + 1).Έναρξη

End If

Ορισμός xCurPageRange = ActiveDocument.Range(xCurPageStart, xCurPageEnd)

xCurPageRange.Επιλέξτε

xCurPageRange.Αντιγραφή

Ορισμός xNewDoc = Application.Documents.Add(Visible:=False)

xNewDoc.Ενεργοποίηση

xNewDoc.Content.PasteAndFormat wdFormatOriginalFormatting

xNewDoc.SaveAs2 Όνομα αρχείου:=xFilePath

xNewDoc.Κλείσιμο

xDoc.Range(xOldStart, xOldEnd).Επιλέξτε

Με xEmail

.Subject = "Φαξ-δεδομένα"

.Body = "Αυτό είναι ένα δοκιμαστικό email."

.To = "yy@addin99.com"

.Σημασία = olImportanceNormal

.Συνημμένα.Προσθήκη xFilePath

.Απεικόνιση

Τέλος με

VBA.Kill xFilePath

Ορισμός xDoc = Τίποτα

Ορισμός xEmail = Τίποτα

Ορισμός xOutlookObj = Τίποτα

Application.ScreenUpdating = True

Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Έχω φτιάξει μια συμπληρωμένη φόρμα σε MS word. Έχω χρησιμοποιήσει παλαιού τύπου εργαλεία για υπολογισμούς κ.λπ. Έχω προσθέσει επίσης ένα κουμπί υποβολής που λειτουργεί για την αποστολή της φόρμας στο email. Το πρόβλημα είναι ότι όταν ανοίγω ξανά αυτό το έγγραφο μετά την αποθήκευση, δεν λειτουργεί. Προσπάθησα ακόμη και να το αποθηκεύσω ως έγγραφο με δυνατότητα μακροεντολής αλλά χωρίς χρήση. Μπορείτε παρακαλώ να βοηθήσετε;
Ευχαριστώ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Το είχα λειτουργήσει στην αρχή και μετά για κάποιο λόγο τώρα, μου βγάζει ένα σφάλμα σφάλματος 429 σχετικά με το ότι το στοιχείο ActiveX δεν μπορεί να δημιουργήσει αντικείμενο. κυριολεκτικά μόλις έκανα αντιγραφή και επικόλληση. Αυτό λειτούργησε πριν, αλλά απλώς άλλαξα μέγεθος γραμματοσειράς, μεγάλωσα το κουμπί και σημείωσα ξανά τη λεζάντα. δεν νομίζω ότι άλλαξα κατά λάθος κάποιες άλλες ρυθμίσεις; καμιά ιδέα τι θα μπορούσε να είναι;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια! Θα ήθελα να κάνω το κουμπί εντολής να στείλει ένα μήνυμα ηλεκτρονικού ταχυδρομείου με το έγγραφο του Word ως κύριο μέρος του μηνύματος (το έγγραφο του word μου είναι μια φόρμα). Υπάρχει τρόπος να γίνει αυτό;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Θα ήθελα το έγγραφό μου να αποσταλεί ως έγγραφο PDF και όχι ως έγγραφο word.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Για παράδειγμα, χρησιμοποιώντας κείμενο από ένα πλαίσιο κειμένου/πεδίο κειμένου στο έγγραφο του Word και εισάγοντάς το ως κείμενο στη γραμμή θέματος του email σας;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ναι, αυτό είναι και αυτό που αναζητώ μπορεί κάποιος να βοηθήσει με αυτό το αίτημα;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Λειτουργεί και για τα Lotus Notes;
Τι πρέπει να αλλάξω στο "xOutlookObj";
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Extend office,
Μπορούμε να ορίσουμε ένα διαφορετικό email που δεν είναι συνδεδεμένο με το Outlook; Σας αρέσει το άμεσο email στον λογαριασμό GoDaddy;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Προσπαθώ να μάθω τις ίδιες πληροφορίες. Χρησιμοποιώ το gmail και πρέπει να δημιουργήσω μια φόρμα για αποστολή σε διαφορετικές διευθύνσεις email που μπορεί να υποβληθεί αυτόματα πίσω στον λογαριασμό μου στο gmail.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Έχω δημιουργήσει το έγγραφο, αλλά το πρόβλημά μου τώρα είναι ότι αν στείλω αυτήν τη φόρμα σε 4 άτομα να συμπληρώσουν, όταν την ανοίξουν από το συνημμένο email ανοίγει σε λειτουργία μόνο για ανάγνωση και όταν κάνουν κλικ στην υποβολή τους ζητά να την αποθηκεύσουν όπως πριν θα επιτρέψει στον κωδικό να ανοίξει ένα email που απευθύνεται σε εμένα. Υπάρχει τρόπος να το αντιμετωπίσουμε αυτό εκτός από το να τους δώσουμε τη θέση του αρχείου;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Μπορείτε να προσθέσετε Bcc σε αυτόν τον κωδικό; Δοκίμασα να προσθέσω Bcc και έλαβα ένα σφάλμα μεταγλώττισης για την αναμενόμενη έκφραση.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Heather,

Μπορείτε να προσθέσετε Bcc σε αυτόν τον κωδικό. Για παράδειγμα, μπορείτε να προσθέσετε .Bcc = "zmt@addin99.com" ακριβώς κάτω από το .To = "yy@addin99.com". Ο κώδικας λοιπόν γίνεται:

Dim xOutlookObj ως αντικείμενο
Dim xEmail ως αντικείμενο
Dim xDoc ως έγγραφο
Application.ScreenUpdating = False
Ορισμός xOutlookObj = CreateObject("Outlook.Application")
Ορισμός xEmail = xOutlookObj.CreateItem(olMailItem)
Ορισμός xDoc = ActiveDocument
xDoc.Save
Με xEmail
.Subject = "Φαξ-δεδομένα"
.Body = "Αυτό είναι ένα δοκιμαστικό email."
.To = "yy@addin99.com"
.Bcc = "zmt@addin99.com"
.Σημασία = olImportanceNormal
.Συνημμένα.Προσθήκη xDoc.FullName
.Απεικόνιση
Τέλος με
Ορισμός xDoc = Τίποτα
Ορισμός xEmail = Τίποτα
Ορισμός xOutlookObj = Τίποτα
Application.ScreenUpdating = True

Δείτε τη συνημμένη εικόνα. Να εχεις μια ωραια μερα.
Με αγάπη,
Mandyhttps://www.extendoffice.com/images/stories/comments/comment-zmt/Add_Bcc_to_code.png
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας παιδιά,

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

Μπορεί κάποιος να μου δώσει τον σωστό κωδικό για αυτό;

Σας ευχαριστώ.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χαίρετε Κ.
Μπορεί ο κώδικας να μην μπορεί να βοηθήσει στην αποστολή του τρέχοντος εγγράφου word ως κύριου κειμένου του email, εάν γίνει αυτό, η μορφοποίηση της εικόνας και του αρχείου μέσα στο έγγραφο θα χαθούν.
Εάν θέλετε να στείλετε το τρέχον έγγραφο ως σώμα ηλεκτρονικού ταχυδρομείου, το Mail Merge μπορεί να σας κάνει τη χάρη.
Χρειάζεστε το Mail Merge για την αποστολή email;
Εάν χρειάζεστε, σχολιάστε εδώ.
Ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χαίρετε Κ.

Σας ευχαριστώ για τη βοήθειά σας!

Θα το δοκίμαζα με την πρότασή σου. Οπότε ναι, χρειάζομαι τη συγχώνευση αλληλογραφίας για την αποστολή e-mail.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χαίρετε Κ.

Σας ευχαριστώ για τη βοήθειά σας!

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

Ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χαίρετε Κ.
Για να στείλετε το τρέχον έγγραφο word ως σώμα αλληλογραφίας, μπορείτε να προσθέσετε το Αποστολή στον παραλήπτη αλληλογραφίας εντολή προς σας QAT, κάντε το ως εξής:
1. Ανοίξτε το αρχείο word που θέλετε να στείλετε και, στη συνέχεια, κάντε κλικ φιλέτο > Επιλογές.
2. Στο αριστερό παράθυρο, επιλέξτε Γραμμή εργαλείων γρήγορης πρόσβασης.
3. επιλέξτε Εντολές Όχι στην Κορδέλα από το Επιλέξτε εντολές από.
4. Επιλέξτε και επιλέξτε Αποστολή στον παραλήπτη αλληλογραφίας και κάντε κλικ στο κουμπί Προσθήκη>>.
5. κλικ OK για να κλείσετε το παράθυρο διαλόγου.
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-send-file-1.png

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

https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-send-file-3.png

Δοκιμάστε αυτό, ελπίζω να σας βοηθήσει!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Βρήκα ότι το κουμπί λειτουργεί για το άνοιγμα ενός email, αλλά όταν χρησιμοποιείτε τη συγχώνευση αλληλογραφίας το κουμπί VBA γίνεται ανενεργό για κάποιο λόγο;
Πώς μπορώ να διασφαλίσω ότι όταν χρησιμοποιείται η συγχώνευση αλληλογραφίας, το κουμπί θα λειτουργήσει ώστε ο χρήστης να συμπληρώσει τη φόρμα και στη συνέχεια να ενεργοποιήσει το κουμπί παρακαλώ;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Mike,
Όταν χρησιμοποιώ τη δυνατότητα συγχώνευσης αλληλογραφίας, το κουμπί είναι ενεργό.
Μπορείς να εξηγήσεις το πρόβλημά σου πιο αναλυτικά;
Ή μπορείτε να ανεβάσετε το αρχείο σας εδώ, ώστε να ελέγξουμε πού βρίσκεται το πρόβλημα.
Ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Skyyang,

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

Ευχαριστώ,

μικρόφωνο
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Mike,
Έχω δοκιμάσει το αρχείο σας στον υπολογιστή μου, χειροτερεύει καλά. Χρησιμοποιώ το Office 2019. Δείτε την παρακάτω επίδειξη:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/send-doeument.gif
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Skyyang,

Βρήκα ότι αυτό λειτουργεί όταν ένας χρήστης έχει MS Word αλλά φαίνεται email όπως @hotmail. @gmail; και διευθύνσεις email @live αυτοί οι χρήστες έχουν προβλήματα όπου το κουμπί δεν λειτουργεί;
Φαίνεται επίσης ότι δεν λειτουργεί σε έξυπνα τηλέφωνα, είτε εάν ο χρήστης βασίζεται στη χρήση αυτών σε αντίθεση με έναν υπολογιστή.
Τέλος, έλαβα μια απάντηση από άλλο χρήστη που χρησιμοποιεί Windows 11, όπου το κουμπί δεν λειτουργεί καθόλου.

Τι έχετε βιώσει με τα παραπάνω παραδείγματα παρακαλώ;

Ευχαριστώ,

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

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

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