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.



Outils de productivité Word recommandés

Kutools For Word - Plus de fonctionnalités avancées 100 pour Word, économisez votre% de temps 50

  • Des opérations compliquées et répétées peuvent être effectuées en une seconde.
  • Insérez plusieurs images sur des dossiers dans un document Word à la fois.
  • Fusionner et combiner plusieurs fichiers Word sur plusieurs dossiers en un seul avec votre ordre souhaité.
  • Divisez le document actuel en documents distincts en fonction de l'en-tête, du saut de section ou d'un autre critère.
  • Convertir des fichiers entre Doc et Docx, Docx et PDF, une collection d'outils pour les conversions et la sélection courantes, etc.
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 · 7 months ago
    I am trying to have the email send with the subject line being the contents of one of my fields. Is this possible?