Skip to main content

Come applicare un pulsante per inviare un'email con il file Word corrente allegato?

Author: Xiaoyang Last Modified: 2025-08-06

Se hai bisogno di inviare un'email da un documento Word utilizzando Outlook e allegare il file Word corrente, puoi inserire un pulsante di comando che invia l'email con un solo clic, senza dover aprire manualmente Outlook. Questa guida mostra come configurarlo rapidamente e facilmente.

Applica un pulsante per inviare un'email con il file Word corrente allegato

Applica un pulsante per inviare un'email con il file Word corrente allegato

Segui questi passaggi per completare l'operazione nel tuo documento Word:

  1. Per prima cosa, inserisci un pulsante di comando. Vai su "Sviluppatore" > "Strumenti legacy" > "Pulsante di comando (Controllo ActiveX)".

    Nota: Se non vedi la scheda Sviluppatore nella barra multifunzione, visita: Come mostrare la scheda Sviluppatore nella barra multifunzione di Word.

    Developer tab with Controls group selected, Legacy Tools clicked, and Command Button highlighted
  2. Seleziona il pulsante, quindi fai clic su "Proprietà" sotto la scheda "Sviluppatore". Nel riquadro Proprietà, digita il testo che desideri visualizzare sul pulsante nel campo "Didascalia".
    Properties button on the ribbon and Properties dialog popped up
  3. Chiudi il riquadro Proprietà. Quindi, fai clic con il tasto destro del mouse sul pulsante e scegli "Visualizza codice".
    View Code option on the context menu
  4. Nella finestra "Microsoft Visual Basic for Applications", incolla il seguente codice tra i tag della subroutine esistenti: 
    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
    VBA window with the above code pasted

    Nota: Puoi modificare l'oggetto, il contenuto del corpo e l'indirizzo email del destinatario nel codice per adattarli ai dettagli effettivi del tuo messaggio.

  5. Salva e chiudi l'editor VBA. Fai clic su "Modalità Progettazione" nella scheda Sviluppatore per disattivarla. Ora, quando fai clic sul pulsante di comando, un'email viene creata automaticamente in Outlook con il documento Word corrente allegato.
    An email is created with the current Word document as an attachment
  6. Infine, fai clic sul pulsante "Invia" in Outlook per inviare il messaggio.

I migliori strumenti per la produttività in ufficio

Kutools per Word - Migliora la tua esperienza con Word grazie a oltre 100 straordinarie funzionalità!

🤖 Funzionalità AI di Kutools: Assistente AI / Assistente in Tempo Reale / Super Lucida (Mantieni Formato) / Super Traduci (Mantieni Formato) / Redazione AI / Correzione AI...

📘 Maestria sui Documenti: Dividi Pagine / Unisci Documenti / Esporta selezione in vari formati (PDF/TXT/DOC/HTML...) / Converti in batch in PDF...

✏ Modifica dei Contenuti: Trova e sostituisci in batch su più file / Ridimensiona tutte le immagini / Trasponi righe e colonne delle tabelle / Converti Tabella in Testo...

🧹 Pulizia senza sforzo: Elimina Spazi Extra / Interruzioni di Sezione / Caselle di testo / Collegamenti ipertestuali / Per altri strumenti di rimozione, vai al gruppo Rimuovi...

➕ Inserimenti Creativi: Inserisci separatori delle migliaia / Caselle di Controllo / Pulsanti di Opzione / Codice QR / Codice a Barre / Immagini multiple / Scopri di più nel gruppo Inserisci...

🔍 Selezioni precise: Individua pagine specifiche / Tabelle / Forme / Paragrafi di intestazione / Migliora la navigazione con ancora più funzionalità di Selezione...

⭐ Funzionalità Star: Vai in qualsiasi posizione / Inserimento automatico di testo ripetitivo / Passaggio tra finestre documento /11 strumenti di conversione...

🌍 Supporta oltre40 lingue: Usa Kutools nella tua lingua preferita – disponibile in Inglese, Spagnolo, Tedesco, Francese, Cinese e oltre40 altre!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Vuoi provare queste funzionalità? Scarica subito Kutools per Word! 🚀
 

I migliori strumenti per la produttività in ufficio

Kutools per Word - 100+ Strumenti per Word

Download gratuito Acquista ora Scopri di più su Kutools