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

Quando dobbiamo inserire un allegato in un'email in fase di composizione, di solito è necessario fare clic su Inserisci > Allega file > Sfoglia questo PC per aprire la finestra di dialogo Inserisci file, quindi trovare e inserire il file di cui abbiamo bisogno. In questo tutorial, forniamo due codici VBA per aiutarti ad aprire facilmente la finestra di dialogo Inserisci file con un solo clic.

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

I seguenti codici VBA possono realizzare:

Codice VBA 1: Apri la cartella Documenti predefinita nel tuo computer
Codice VBA 2: Apri la cartella specificata nel tuo computer

Procedi come segue per completare l'operazione.

1. Avvia il tuo Outlook, premi i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.

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

3. Fai clic su Inserisci > Modulo. Quindi copia uno dei seguenti codici VBA nella finestra Modulo.

Codice VBA 1: Apri la cartella Documenti predefinita nel tuo 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: Apri la cartella specificata nel tuo 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. Premi i tasti Alt + Q per chiudere la finestra Microsoft Visual Basic for Applications.

Ora hai bisogno di un pulsante per eseguire la macro.

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

6. Nella finestra di dialogo Opzioni di Outlook, devi configurare come segue.

7. Mantieni lo script selezionato nella casella di destra, quindi fai clic sul pulsante Modifica. Nella finestra di dialogo Modifica pulsante, assegna un nuovo pulsante allo script e fai clic su OK.

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

9. Il pulsante che hai specificato nel passaggio 7 viene quindi aggiunto alla barra di accesso rapido. Quando componi un'email, se vuoi inserire un allegato, puoi semplicemente fare clic su questo pulsante per aprire la cartella Sfoglia e selezionare il file che desideri inserire.

---

I migliori strumenti per la produttività in Office

Ultime notizie: Kutools per Outlook lancia la versione gratuita!

Scopri il nuovissimo Kutools per Outlook con oltre100 funzionalità straordinarie! Clicca per scaricare ora!

🤖 Kutools AI : Utilizza una tecnologia AI avanzata per gestire le email senza sforzo, inclusa la risposta, la sintesi, l’ottimizzazione, l’estensione, la traduzione e la composizione dei messaggi.

📧 Automazione Email: Risposta automatica (disponibile per POP e IMAP)  /  Programma invio Email  /  CC/BCC automatico tramite Regola durante l’invio delle Email  /  Inoltro automatico (Regola avanzata)   /  Aggiungi Saluto automaticamente   /  Dividi automaticamente Email multi-destinatario in messaggi singoli ...

📨 Gestione Email: Richiama Email  /  Blocca Email fraudulent (tramite Oggetto e altri parametri)  /  Elimina Email Duplicato  /  Ricerca Avanzata  /  Organizza cartelle ...

📁 Allegati Pro: Salva in Batch  /  Distacca in Batch  /  Comprimi in Batch  /  Salvataggio automatico   /  Distacca automaticamente  /  Auto Comprimi ...

🌟 Magia Interfaccia: 😊Più emoji belle e divertenti   /  Notifiche per le email importanti in arrivo  /  Riduci Outlook al posto di chiuderlo ...

👍 Funzioni rapide: Rispondi a Tutti con Allegati  /  Email Anti-Phishing  /  🕘Mostra il fuso orario del mittente ...

👩🏼‍🤝‍👩🏻 Contatti & Calendario: Aggiungi in Batch contatti dalle Email selezionate  /  Dividi un Gruppo di Contatti in Gruppi singoli  /  Rimuovi promemoria di compleanno ...

Utilizza Kutools nella lingua che preferisci – supporta Inglese, Spagnolo, Tedesco, Francese, Cinese e oltre40 altre!

Sblocca Kutools per Outlook istantaneamente con un solo clic. Non aspettare, scarica ora e aumenta la tua efficienza!

Tabella Unidimensionale di Kutools per Outlook      Scarica ora      Vai a Acquista

🚀 Download con un solo clic — Ottieni tutti gli Add-in per Office

Consigliato: Kutools per Office (5-in-1)

Un solo clic per scaricare cinque installatori contemporaneamente — Kutools per Excel, Outlook, Word, PowerPoint e Office Tab Pro. Clicca per scaricare ora!

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

Informazioni sulla Suite ⬇ Scarica la Suite 💳 Acquista la Suite