Comment appliquer un bouton pour envoyer un e-mail avec le fichier Word actuel en pièce jointe?
Si vous devez envoyer un message électronique à partir d'un document Word via Outlook et joindre également le fichier Word actuel, vous pouvez créer un bouton de commande, puis envoyer le message en cliquant sur ce bouton sans ouvrir Outlook. Cet article, je vais vous présenter comment y faire face rapidement et facilement.
Appliquer un bouton pour envoyer un e-mail avec le fichier Word actuel en pièce jointe
Appliquer un bouton pour envoyer un e-mail avec le fichier Word actuel en pièce jointe
Veuillez suivre les étapes suivantes pour résoudre ce travail dans un fichier Word:
1. Tout d'abord, vous devez créer un bouton de commande, veuillez cliquer sur Développeur > Outils hérités > Bouton de commande (contrôle ActiveX), voir capture d'écran:
2. Sélectionnez le bouton et cliquez sur biens sous le Développeur onglet, dans le biens volet, saisissez le texte de légende dont vous avez besoin dans le Légende champ, voir capture d'écran:
3. Ensuite, fermez le biens volet, maintenant, cliquez avec le bouton droit sur le bouton et choisissez Voir le code, voir capture d'écran:
4. Et puis, dans l'affichage Microsoft Visual Basic pour applications fenêtre, copiez et collez le code ci-dessous entre les scripts originaux, voir capture d'écran:
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 = ""
.Importance = olImportanceNormal
.Attachments.Add xDoc.FullName
.Display
End With
Set xDoc = Nothing
Set xEmail = Nothing
Set xOutlookObj = Nothing
Application.ScreenUpdating = True
Notes: Dans le code ci-dessus, vous devez modifier le sujet, le corps du texte ou l'adresse d'envoi selon vos besoins.
5. Ensuite, enregistrez et fermez ce code, cliquez sur Mode de conception pour désactiver le mode de conception. Maintenant, lorsque vous cliquez sur le bouton de commande que vous avez créé, un e-mail sera créé avec le document Word actuel en pièce jointe, voir capture d'écran:
6. Enfin, il vous suffit de cliquer Envoyer bouton pour envoyer ce message.
Meilleurs outils de productivité bureautique
Kutools for Word - Élevez votre expérience Word avec Over 100 Caractéristiques remarquables !
🤖 Assistant IA Kutools: Transformez votre écriture avec l'IA - Générer du contenu / Réécrire le texte / Résumer des documents / Demander des informations basé sur le document, le tout dans Word
(I.e. Maîtrise des documents: Pages divisées / Fusionner des documents / Exporter la sélection dans différents formats (PDF/TXT/DOC/HTML...) / Conversion par lots en PDF / Exporter des pages sous forme d'images / Imprimer plusieurs fichiers à la fois
✏ Édition du contenu: Rechercher et remplacer par lots sur plusieurs fichiers / Redimensionner toutes les images / Transposer les lignes et les colonnes du tableau / Convertir le tableau en texte
🧹 Nettoyage sans effort : balayer Espaces supplémentaires / Sauts de section / Tous les en-têtes / Boîtes de texte / Liens hypertextes / Pour plus d'outils de suppression, rendez-vous sur notre Supprimer le groupe
➕ Insertions créatives: Insérer Mille séparateurs / Cases à cocher / Boutons radio / code QR / Code barres / Tableau des lignes diagonales / Légende de l'équation / Légende / Légende de la table / Plusieurs images / Découvrez-en davantage dans le Insérer un groupe
🔍 Sélections de précision: Localiser pages spécifiques / les tables / formes / paragraphes de titre / Améliorez la navigation avec PLUS Sélectionnez les fonctionnalités
⭐ Améliorations des étoiles: Naviguez rapidement vers n’importe quel endroit / insertion automatique de texte répétitif / basculer de manière transparente entre les fenêtres de document / 11 outils de conversion