Note: The other languages of the website are Google-translated. Back to English
English English

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 per Outlook verrà visualizzata una finestra di dialogo che ti chiede se desideri utilizzare il nome dell'allegato come oggetto, fai clic su pulsante.

Quindi la riga dell'oggetto verrà popolata automaticamente con il nome dell'allegato inserito.

Note:

1) Se hai già inserito l'oggetto, l'inserimento di un allegato non farà apparire la finestra di dialogo.
2) Se si rimuove un oggetto esistente dall'e-mail corrente ma il cursore è ancora visualizzato nella riga dell'oggetto, l'inserimento di un allegato non farà apparire nemmeno la finestra di dialogo. Dopo aver rimosso l'oggetto, è necessario allontanarsi dalla riga dell'oggetto per aggiornare la finestra del messaggio e far funzionare il codice.
3) Se si inseriscono più allegati contemporaneamente, solo il nome del primo allegato può essere utilizzato come oggetto dell'e-mail.

Kutools for Outlook: porta 100 funzionalità avanzate in Outlook e semplifica notevolmente il lavoro!

  • Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple personalizzate; Risposta automatica senza server di scambio e più funzioni automatiche ...
  • Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo e-mail è nell'elenco BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email in secondi; Aggiunta automatica di saluto quando rispondi; Aggiungi la data all'oggetto ...
  • Strumenti per gli allegati: gestisci tutti gli allegati in tutti i messaggi, Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto... Rapporto rapido, Conta le email selezionate...
  • E-mail spazzatura potenti per abitudine; Rimuovi messaggi e contatti duplicati... Consentono di fare in modo più intelligente, veloce e migliore in Outlook.
girato kutools outlook scheda kutools 1180x121
girato kutools outlook kutools plus tab 1180x121
 
Commenti (0)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite