Hai spesso bisogno di allegare file specifici quando invii e-mail specifiche in Outlook? In tal caso, potresti ritenere noioso aggiungerli manualmente ogni volta. Questo articolo ti insegnerà un metodo rapido per ottenerlo con Outlook VBA.
Nel mio lavoro quotidiano, mi viene spesso richiesto di allegare file specifici durante l'invio di e-mail specifiche. Ad esempio, ogni settimana devo inviare un'e-mail ai miei superiori per riferire il mio lavoro settimanale. In questa email, dovrò allegare alcuni file specifici, inclusi registri di lavoro, alcuni rapporti statistici sui dati e così via. Di solito aggiorno questi file ogni settimana. In passato, normalmente componevo prima il corpo del messaggio e poi aggiungevo manualmente questi file. Tuttavia, al momento, trovo un trucco più intelligente. Questo sta usando Outlook VBA per automatizzarlo. Se hai requisiti simili, continua a leggere per apprendere i codici VBA concreti e le operazioni dettagliate.
Allega automaticamente file specifici durante l'invio di e-mail specifiche
- Innanzitutto, apri Outlook e vai alla scheda "Sviluppatore".
- Quindi puoi trovare e fare clic sul pulsante "Visual Basic", che farà apparire immediatamente la finestra dell'editor VBA.
- Nella finestra successiva, fare doppio clic sul progetto "ThisOutlookSession" nell'elenco dei progetti sul lato sinistro.
- Successivamente dovresti copiare e incollare i seguenti codici VBA al suo interno.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim strPrompt As String
Dim nRes As Integer
'Check the email subject and recipient
If InStr(LCase(Item.Subject), "worklog") > 0 And InStr(Item.To, "frank") > 0 Then
strPrompt = "Do you want to attach the worklog related files?"
nRes = MsgBox(strPrompt, vbYesNo + vbQuestion, "Attach Files")
If nRes = vbYes Then
'Attach the specific files
With Item
.Attachments.Add ("C:\Attachments\WorkLog.docx")
.Attachments.Add ("C:\Attachments\Data Statistics Report 1.xlsx")
.Attachments.Add ("C:\Attachments\Data Statistics Report 2.xlsx")
End With
End If
End If
End Sub
- Successivamente, ti verrà richiesto di assegnare un certificato digitale al nuovo progetto.
- Innanzitutto fai clic sul pulsante "Strumento" nella barra degli strumenti e scegli "Firma digitale".
- Quindi nella finestra di dialogo popup "Firma digitale", premi il pulsante "Scegli",
- Successivamente, puoi scegliere un certificato esistente.
- Infine fai clic su una serie di "OK" per assegnarlo correttamente.
- Successivamente è necessario modificare le impostazioni della macro per consentire semplicemente le macro firmate digitalmente.
- Alla fine puoi provare.
- Quando fai clic su "Invia" per inviare la posta specifica che contiene le parole specifiche nell'oggetto o viene inviata a un contatto specifico, vedrai una finestra di messaggio, come l'immagine qui sotto.
- Successivamente, puoi controllare l'e-mail inviata. Troverai sicuramente i file preimpostati allegati alla mail inviata.
Non rimandare mai la correzione degli errori di Outlook
A volte, anche se hai riscontrato un messaggio di errore in Outlook, dopo aver chiuso il messaggio, potresti essere ancora in grado di continuare a lavorare. Ma in realtà non è un'azione consigliabile. Quello che dovresti fare è eliminarli il prima possibile invece di lasciarli da parte. L'accumulo di problemi si tradurrà in un grave incidente. Se il tuo Outlook si arresta in modo anomalo, i tuoi dati PST di Outlook saranno messi a rischio. Dovresti saperlo dati PST di Outlook danneggiati è piuttosto nodoso. A quel punto, non hai altra scelta che utilizzare uno strumento di riparazione esperto e affidabile, come ad esempio DataNumen Outlook Repair.
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 filetto e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com