Come compilare automaticamente la riga dell'oggetto dell'e-mail con il nome dell'allegato in Outlook

Usi spesso il nome dell'allegato come oggetto dell'e-mail in Outlook? In tal caso, devi sperare che Outlook possa completarlo automaticamente. Questo articolo introdurrà un metodo pratico per realizzarlo con Outlook VBA.

Molti utenti sono abituati a digitare manualmente il nome dell'allegato nell'oggetto dell'e-mail. In tal caso, se Outlook potesse farlo automaticamente, sarebbe molto più comodo. Inoltre, alcuni utenti spesso dimenticano di compilare l'oggetto. Di conseguenza, quando premono il pulsante "Invia", ricevono un messaggio di avviso "Oggetto mancante". In questo caso, se Outlook potesse compilare automaticamente l'oggetto con il nome dell'allegato, si eviterebbe il fastidioso avviso. In sintesi, si ritiene che molti utenti di Outlook desiderino un metodo per consentire a Outlook di compilare automaticamente l'oggetto dell'e-mail con il nome dell'allegato. Fortunatamente, con l'aiuto di Outlook VBA, possiamo ottenere questo risultato con estrema facilità. Ecco i codici VBA e i passaggi dettagliati.

Compila automaticamente la riga dell'oggetto dell'e-mail con il nome dell'allegato

1. Innanzitutto, puoi avviare Outlook e passare alla scheda "Sviluppatore".
2. Quindi, in questa scheda, dovresti fare clic sul pulsante "Visual Basic", che farà apparire l'editor VBA.
3. Nella finestra successiva, dovresti prima individuare il progetto "ThisOutlookSession" nell'elenco dei progetti sul lato destro.
4. Avanti doppio clic per aprire questo progetto. E poi copia i seguenti codici in esso.

Public WithEvents olInspectors As Outlook.Inspectors
Public WithEvents olMail As Outlook.MailItem

Private Sub Initialize_handlers()
    Set olInspectors = Application.Inspectors
End Sub

Private Sub olInspectors_NewInspector(ByVal Inspector As Inspector)
    Dim olItem As Object
    Set olItem = Inspector.CurrentItem
    If TypeName(olItem) = "MailItem" Then Set olMail = olItem
End Sub

Private Sub olMail_AttachmentAdd(ByVal Attachment As Attachment)
    If olMail.Subject = "" Then
      'If you don't want the prompt,
      'Just delete the Msgbox line and its corresponding "End if".
      If MsgBox("Do you want to use the attachment name as the subject", vbYesNo) = vbYes Then
         olMail.Subject = Attachment.DisplayName
      End If
    End If
End Sub

5. Successivamente, è necessario continuare ad assegnare normalmente un certificato digitale al progetto VBA corrente.

• Innanzitutto, utilizza l'utilità integrata "Certificati digitali per progetti VBA" per generare un certificato digitale.
• Successivamente, puoi firmare la macro corrente.

6. Successivamente uscire dall'editor VBA e modificare le impostazioni macro in "Notifiche per macro firmate digitalmente, tutte le altre macro disabilitate".
7. Finalmente puoi provare.

• Crea una nuova email.
• Se non hai inserito l'oggetto e intendi allegare un file, riceverai un messaggio, come la seguente immagine:
• Quando si seleziona "Sì", l'oggetto verrà inserito immediatamente con il nome dell'allegato.

Affrontare problemi frequenti di Outlook

A condizione che tu abbia utilizzato Outlook per decenni, devi aver riscontrato molti problemi di Outlook. Quindi, quali azioni intraprendi di solito quando li incontri? Si suggerisce di capirli e sradicarli il prima possibile. È perché l'accumulo di problemi può danneggiare i dati di Outlook in qualsiasi momento. Quindi, anche se Outlook può funzionare normalmente, è meglio applicare lo strumento di riparazione della posta in arrivo o quello esterno Utilità di riparazione degli errori PST di Outlook, piace DataNumen Outlook Repair, per eseguire la scansione dei file PST per rilevare e risolvere gli errori.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui riparazione danneggiata SQL Server banca dati e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com