Come riempire automaticamente l'oggetto dell'e-mail con il nome dell'allegato in Outlook?
Per coloro che sono abituati a utilizzare il nome dell'allegato come oggetto di un'e-mail in Outlook, digitare manualmente il nome dell'allegato nella riga dell'oggetto ogni volta richiederà molto tempo. Come mostrato nella gif di seguito, se desideri riempire automaticamente la riga dell'oggetto dell'e-mail con il nome dell'allegato quando inserisci un allegato, il metodo VBA in questo tutorial ti aiuterà.
Riempi automaticamente l'oggetto dell'e-mail con il nome dell'allegato con il codice VBA
Eseguire il seguente codice VBA per riempire automaticamente l'oggetto dell'e-mail con il nome dell'allegato inserito in Outlook.
1. Avvia Outlook, premi il pulsante altro + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Nel Microsoft Visual Basic, Applications Edition finestra, fare doppio clic Progetto1 (VbProject.OTM) > Oggetti di Microsoft Outlook > Questa sessione di Outlook per aprire il ThisOutlookSession (codice) editore.
3. Quindi copia il seguente codice VBA in ThisOutlookSession (codice) editore.
Codice VBA: compila automaticamente l'oggetto dell'e-mail con il nome dell'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. Ora devi salvare il codice e riavviare Outlook.
5. D'ora in poi, quando si inserisce un allegato in un messaggio di posta elettronica che non ha ancora un oggetto compilato, a Kutools for Outlook verrà visualizzata una finestra di dialogo che ti chiede se desideri utilizzare il nome dell'allegato come oggetto, fai clic su Sì pulsante.
Quindi la riga dell'oggetto verrà popolata automaticamente con il nome dell'allegato inserito.
Note:
I migliori strumenti per la produttività in ufficio
Kutools for Outlook - Oltre 100 potenti funzionalità per potenziare il tuo Outlook
🤖 Assistente di posta AI: E-mail istantanee professionali con la magia dell'intelligenza artificiale: risposte geniali con un solo clic, tono perfetto, padronanza multilingue. Trasforma l'e-mail senza sforzo! ...
???? Automazione di posta elettronica: Fuori sede (disponibile per POP e IMAP) / Pianifica l'invio di e-mail / CC/BCC automatico in base alle regole durante l'invio di e-mail / Inoltro automatico (regole avanzate) / Aggiunta automatica di saluto / Suddividi automaticamente le email con più destinatari in singoli messaggi ...
📨 gestione e-mail: Richiama facilmente le email / Blocca le email truffe per soggetto e altri / Elimina email duplicate / Ricerca avanzata / Consolidare cartelle ...
📁 Allegati Pro: Salvataggio in batch / Stacca batch / Comprimi in lotti / Salvataggio automatico / Scollegamento automatico / Comprimi automaticamente ...
🌟 Magia dell'interfaccia: 😊Più emoji carini e fantastici / Aumenta la tua produttività in Outlook con le visualizzazioni a schede / Riduci a icona Outlook invece di chiuderlo ...
👍 Meraviglie con un clic: Rispondi a tutti con gli allegati in arrivo / E-mail anti-phishing / 🕘Mostra il fuso orario del mittente ...
👩🏼🤝👩🏻 Contatti e calendario: Aggiungi in batch contatti dalle email selezionate / Dividere un gruppo di contatti in singoli gruppi / Rimuovi promemoria compleanno ...
Al di sopra Caratteristiche 100 Attendi la tua esplorazione! Clicca qui per scoprire di più.