Come compilare automaticamente l’oggetto dell’email con il nome dell’allegato in Outlook?
Per chi è abituato a usare il nome dell’allegato come oggetto dei messaggi in Outlook, digitare manualmente tale nome nella riga dell’oggetto ogni volta risulta dispendioso in termini di tempo. Come mostrato nella GIF seguente, se si desidera compilare automaticamente l’oggetto dell’email con il nome dell’allegato al momento del suo inserimento, il metodo VBA illustrato in questa guida sarà di grande aiuto.
Compilare automaticamente l’Oggetto email con il Nome allegato tramite codice VBA
Eseguire il seguente codice VBA per compilare automaticamente l’oggetto dell’e-mail con il nome di “Inserisci allegato” in Outlook.
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, fai doppio clic su Project1 (VbProject.OTM) > Microsoft Outlook Objects > ThisOutlookSession per aprire l’editor di ThisOutlookSession (Codice).
3. Copia quindi il seguente codice VBA nell’editor di ThisOutlookSession (Codice).
Codice VBA: Compilazione automatica dell’Oggetto email con il Nome allegato
Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220926
Public WithEvents GInspectors As Inspectors
Public WithEvents GMail As MailItem
Private Sub Application_Startup()
Set GExplorer = Application.ActiveExplorer
Set GInspectors = Application.Inspectors
End Sub
Private Sub GExplorer_InlineResponse(ByVal Item As Object)
Set GMail = Item
End Sub
Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
Dim xItem As Object
Set xItem = Inspector.CurrentItem
If xItem.Class <> olMail Then Exit Sub
Set GMail = xItem
End Sub
Private Sub GMail_AttachmentAdd(ByVal Att As Attachment)
Dim xFileName As String
On Error Resume Next
If VBA.Trim(GMail.Subject) <> "" Then Exit Sub
If MsgBox("Do you want to use the attachment name as the subject?", vbYesNo + vbInformation, "Kutools for Outlook") = vbNo Then Exit Sub
xFileName = Att.DisplayName
xFileName = Left$(xFileName, VBA.InStrRev(xFileName, ".") - 1)
GMail.Subject = xFileName
End Sub
4. Salva ora il codice e riavvia Outlook.
5. D’ora in poi, quando si inserisce un allegato in un messaggio il cui oggetto non è ancora stato compilato, verrà visualizzata una finestra di dialogo Kutools per Outlook che chiederà se si desidera utilizzare il nome dell’allegato come oggetto; fare clic sul pulsante Sì.
La riga dell’oggetto verrà quindi popolata automaticamente con il nome di «Inserisci allegato».
Note:
Assistente email IA in Outlook: risposte più intelligenti, comunicazione più chiara (magia con un clic!)
Ottimizza le tue attività quotidiane in Outlook con l’Assistente email IA di Kutools per Outlook: uno strumento potente che impara dalle tue email precedenti per suggerirti risposte intelligenti e precise, ottimizzare il contenuto dei messaggi e aiutarti a scrivere e perfezionare le tue email in modo rapido e senza sforzo.
Questa funzionalità supporta:
- Risposte intelligenti: ottieni risposte generate dalle tue conversazioni precedenti—personalizzate, precise e pronte all’uso.
- Contenuto migliorato: affina automaticamente il testo delle tue email per renderlo più chiaro ed efficace.
- Composizione senza sforzo: inserisci solo alcune parole chiave e lascia che l’IA si occupi del resto, con più stili di scrittura.
- Estensioni intelligenti: amplia i tuoi pensieri con suggerimenti contestuali.
- Sintesi: ottieni subito una panoramica rapida e concisa delle email più lunghe.
- Portata globale: traduci le tue email in qualsiasi lingua con estrema facilità.
Questa funzionalità supporta:
- Risposte email intelligenti
- Contenuto ottimizzato
- Bozze basate su parole chiave
- Estensione intelligente del contenuto
- Sintesi delle email
- Traduzione multilingue
Non aspettare—scarica subito l’Assistente email IA e approfitta di!
Migliori strumenti per la produttività in Office
Scopri il nuovissimo Kutools per Outlook con 100+ funzionalità incredibili!Clicca per scaricare ora!
📧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!
🚀 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