Come si fa ad aprire rapidamente la finestra di dialogo File per inserire un allegato in Outlook?

Quando si compone un messaggio e occorre inserire un allegato, di solito bisogna fare clic su Inserisci > Allega file > Sfoglia questo PC per aprire la finestra di dialogo Inserisci file, quindi individuare e selezionare il file desiderato. In questa guida trovi due codici VBA che ti permettono di aprire subito la finestra di dialogo Inserisci file con un solo clic.

Aprire rapidamente la finestra di dialogo File per inserire un allegato con VBA

I seguenti codici VBA consentono di:

Codice VBA 1: apre la cartella predefinita Documenti nel computer
Codice VBA 2: apre una cartella specificata nel computer

Segui la procedura descritta di seguito per completare l'operazione.

1. Avvia Outlook e premi i tasti Alt+F11 per aprire la finestra di Microsoft Visual Basic for Applications.

2. Nella finestra di Microsoft Visual Basic for Applications, fare clic su Strumenti > Riferimenti, quindi selezionare la casella Microsoft Scripting Runtime nella finestra di dialogo Riferimenti – Project1.

3. Fare clic su Inserisci > Modulo. Copiare quindi uno dei seguenti codici VBA nella finestra del Modulo.

Codice VBA 1: apre la cartella predefinita Documenti nel computer

Sub OpenFileDialog()
'Updated by Extendoffice 20220713
Dim xApp As Object
Dim xFileDlg As FileDialog
Dim xSelItem As Variant
Dim xMail As MailItem
On Error Resume Next
Set xApp = CreateObject("Excel.Application")
xApp.Visible = False
Set xFileDlg = xApp.Application.FileDialog(msoFileDialogFilePicker)
xFileDlg.AllowMultiSelect = True
If xFileDlg.Show = 0 Then Exit Sub
Set xMail = Application.ActiveInspector.currentItem
For Each xSelItem In xFileDlg.SelectedItems
    xMail.Attachments.Add xSelItem
Next
xApp.Quit
Set xFileDlg = Nothing
Set xApp = Nothing
End Sub

Codice VBA 2: apre una cartella specificata nel computer

Sub OpenCertianFolderDialog()
'Updated by Extendoffice 20220713
Dim xApp As Object
Dim xFileDlg As FileDialog
Dim xSelItem As Variant
Dim xMail As MailItem
On Error Resume Next
Set xApp = CreateObject("Excel.Application")
xApp.Visible = False
Set xFileDlg = xApp.Application.FileDialog(msoFileDialogFilePicker)
xFileDlg.InitialFileName = "C:\Users\Win10x64Test\Desktop\save attachments\"  'Specify the path to the folder you want to open
xFileDlg.AllowMultiSelect = True
If xFileDlg.Show = 0 Then GoTo L1
Set xMail = Application.ActiveInspector.CurrentItem
For Each xSelItem In xFileDlg.SelectedItems
    xMail.Attachments.Add xSelItem
Next
L1:
    xApp.Quit
    Set xFileDlg = Nothing
    Set xApp = Nothing
End Sub

Note:

4. Premere i tasti Alt+Q per chiudere la finestra di Microsoft Visual Basic for Applications.

Ora serve un pulsante per eseguire la macro.

5. Fare clic su Home > Nuova Email per creare una nuova email. Nella finestra del messaggio, fare clic su Personalizza barra degli strumenti di accesso rapido > Altri comandi.

6. Nella finestra di dialogo Opzioni di Outlook, procedi con la seguente configurazione.

7. Tenere selezionato lo script nella casella a destra, quindi fare clic sul pulsante Modifica. Nella finestra di dialogo Modifica pulsante, assegnare un nuovo pulsante allo script e fare clic su OK.

8. Fare clic su OK nella finestra di dialogo Opzioni di Outlook per salvare le modifiche.

9. Il pulsante specificato al passaggio 7 viene aggiunto alla Barra degli strumenti di accesso rapido. Durante la composizione di un messaggio, per inserire un allegato basta fare clic su questo pulsante per aprire la cartella Sfoglia e selezionare il file da allegare.

---

Migliori strumenti per la produttività in Office

Scopri il nuovissimo Kutools per Outlook con 100+ funzionalità incredibili!Clicca per scaricare ora!

🤖KUTOOLS AI:Utilizza tecnologia AI avanzata per gestire le email senza sforzo, inclusi rispondere, riassumere, ottimizzare, estendere, tradurre e comporre email.

📧Automazione delle email: Risposta automatica (disponibile per POP e IMAP) / Invio email programmato / CC/BCC automatico in base a regole durante l’invio delle email / Inoltro automatico (regola avanzata) / Aggiunta automatica del saluto / Divisione automatica delle email con destinatari multipli in messaggi individuali...

📨Gestione delle email: Richiama Email / Blocca le email truffaldine in base all’oggetto e ad altri criteri / Elimina email duplicate / Ricerca avanzata / Organizza cartelle...

📁Allegati Pro: Salvataggio batch / Distacco batch / Compressione batch / Salvataggio automatico / Distacco automatico / Compressione automatica…

🌟Magia dell’interfaccia: 😊 Più emoji graziose e accattivanti / Ti avvisa all’arrivo di email importanti / Riduci a icona Outlook invece di chiuderlo...

👍Meraviglie con un clic: Rispondi a Tutti con Allegati / Email anti-phishing / 🕘 Mostra il fuso orario – Ora corrente del mittente...

👩🏼‍🤝‍👩🏻Contatti e calendario: Aggiungi contatti in blocco dalle email selezionate / Dividi un gruppo di contatti in gruppi individuali / Rimuovi i promemoria dei compleanni...

Usa Kutools nella tua lingua preferita: supporta inglese, spagnolo, tedesco, francese, cinese e oltre 40 altre lingue!

Sblocca istantaneamente Kutools per Outlook con un solo clic! Non aspettare oltre: scaricalo ora e aumenta subito la tua efficienza!

Elenco funzionalità di Kutools per Outlook      Scarica ora      Vai all’acquisto

🚀 Download con un clic — Ottieni tutti i componenti aggiuntivi per Office

Fortemente consigliato: Kutools for Office (5-in-1)

Un clic per scaricare cinque programmi di installazionetutti insieme —Kutools per Excel, Outlook, Word, PowerPointe Office Tab Pro.Clicca per scaricare ora!

• ✅Comodità con un solo clic: scarica tutti e cinque i pacchetti di installazione in un’unica azione.
• 🚀Pronto per qualsiasi attività in Office: installa i componenti aggiuntivi che ti servono, esattamente quando ti servono.
• 🧰Inclusi: Kutools per Excel / Kutools per Outlook / Kutools per Word / Office Tab Pro / Kutools for PowerPoint

Informazioni sulla Suite⬇ Scarica la Suite💳 Acquista la Suite