Deseori trebuie să atașați anumite fișiere atunci când trimiteți anumite e-mailuri în Outlook? Dacă da, s-ar putea să simți că este obositor să le adaugi manual de fiecare dată. Acest articol vă va învăța o metodă rapidă de a o realiza cu Outlook VBA.
În munca mea zilnică, mi se cere frecvent să atașez anumite fișiere atunci când trimit anumite e-mailuri. De exemplu, în fiecare săptămână, trebuie să trimit un e-mail superiorilor mei pentru a-mi raporta munca săptămânală. În acest e-mail, va trebui să atașez câteva fișiere specifice, inclusiv jurnalele de lucru, niște rapoarte statistice de date și așa mai departe. De obicei, actualizez aceste fișiere în fiecare săptămână. În trecut, în mod normal, compun mai întâi corpul mesajului și apoi adaug manual aceste fișiere. Cu toate acestea, în prezent, găsesc un truc mai inteligent. Asta folosește Outlook VBA pentru a-l automatiza. Dacă aveți cerințe similare, citiți mai departe pentru a afla codurile VBA concrete și operațiunile detaliate.
Atașați automat anumite fișiere atunci când trimiteți anumite e-mailuri
- Pentru început, lansați Outlook și accesați fila „Dezvoltator”.
- Apoi puteți găsi și faceți clic pe butonul „Visual Basic”, care va arăta imediat fereastra editorului VBA.
- În fereastra ulterioară, ar trebui să faceți dublu clic pe proiectul „ThisOutlookSession” din lista de proiecte din partea stângă.
- Apoi, ar trebui să copiați și să lipiți următoarele coduri VBA în el.
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
- După aceea, vi se va cere să atribuiți un certificat digital noului proiect.
- Mai întâi faceți clic pe butonul „Tool” din bara de instrumente și alegeți „Digital Signature”.
- Apoi, în caseta de dialog pop-up „Semnătură digitală”, apăsați butonul „Alege”,
- Ulterior, puteți alege un certificat existent.
- În cele din urmă, faceți clic pe o serie de „OK” pentru a o atribui cu succes.
- Mai târziu, trebuie să modificați setările macro pentru a permite pur și simplu macrocomenzile semnate digital.
- În cele din urmă poți încerca.
- Când faceți clic pe „Trimite” pentru a trimite e-mailul specific care conține anumite cuvinte în subiect sau este trimis către o anumită persoană de contact, veți vedea o casetă de mesaj, ca imaginea de mai jos.
- După aceea, puteți verifica e-mailul trimis. Cu siguranță veți găsi fișierele presetate atașate în e-mailul trimis.
Nu amânați niciodată remedierea erorilor Outlook
Uneori, chiar dacă ați întâlnit un mesaj de eroare în Outlook, după ce închideți mesajul, este posibil să puteți continua să lucrați. Dar de fapt nu este o acțiune recomandabilă. Ceea ce ar trebui să faceți este să le eliminați cât mai curând posibil, în loc să le lăsați deoparte. Problemele acumulate vor duce la un accident grav. Dacă Outlook se blochează, datele PST din Outlook vor fi puse în pericol. Ar trebui să știi că date PST Outlook corupte este destul de noduri. În acel moment, nu aveți de ales decât să utilizați un instrument de reparații cu experiență și reputație, cum ar fi DataNumen Outlook Repair.
Introducerea autorului:
Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv reparați deteriorat SQL Server fişier și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com