Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment appliquer un bouton pour envoyer un courrier électronique 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 montrer comment traiter rapidement et facilement.

Appliquer un bouton pour envoyer un courrier électronique avec le fichier Word actuel en pièce jointe


Appliquer un bouton pour envoyer un courrier électronique 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, s'il vous plaît cliquez sur Développeur > Outils hérités > Bouton de commande (contrôle ActiveX), voir capture d'écran:

bouton doc pour envoyer un email 1

2. Sélectionnez le bouton, puis cliquez sur Propriétés sous le Développeur onglet, dans le Propriétés volet, tapez le texte de la légende dont vous avez besoin dans Légende champ, voir capture d'écran:

bouton doc pour envoyer un email 2

3. Puis fermez le Propriétés volet, maintenant, faites un clic droit sur le bouton et choisissez Voir le code, voir capture d'écran:

bouton doc pour envoyer un email 3

4. Et puis, dans l'écran 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 xEmile As Object
    Dim xDoc As Document
    Application.ScreenUpdating = False
    Set xOutlookObj = CreateObject("Outlook.Application")
    Set xEmile = xOutlookObj.CreateItem(olMailItem)
    Set xDoc = ActiveDocument
    xDoc.Save
    With xEmile
        .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

bouton doc pour envoyer un email 4

Note: Dans le code ci-dessus, vous devez modifier l’objet, le corps du texte ou l’adresse envoyée en fonction de vos besoins.

5. Puis, sauvegardez et fermez ce code, cliquez sur Mode de conception désactiver le mode conception. Maintenant, en cliquant sur le bouton de commande que vous avez créé, un email sera créé avec le document Word actuel en pièce jointe, voir la capture d'écran:

bouton doc pour envoyer un email 5

6. Enfin, il vous suffit de cliquer sur Envoyer bouton pour envoyer ce message.



Kutools for Word

Plus que des fonctions avancées 100 pour Word 2003, 2007, 2010, 2013, 2016 et 2019

coup-kutools-700-225-kte

Plus de fonctionnalités | Essai Gratuit | Seulement $ 39.00 pour des centaines de fonctions

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Nichole · 3 days ago
    I am trying to have the email send with the subject line being the contents of one of my fields. Is this possible?