Kako automatski priložiti određene datoteke prilikom slanja određene e-pošte u programu Outlook

Morate li često priložiti određene datoteke kada šaljete određene e-poruke u programu Outlook? Ako je tako, možda će vam biti zamorno svaki put ih ručno dodavati. Ovaj će vas članak naučiti brzu metodu kako to postići pomoću programa Outlook VBA.

U svakodnevnom radu od mene se često traži da priložim određene datoteke kada šaljem određene e-poruke. Na primjer, svaki tjedan moram poslati e-mail nadređenima kako bih izvijestio o svom tjednom radu. Ovoj e-poruci morat ću priložiti neke određene datoteke, uključujući dnevnike rada, neka izvješća o statistici podataka i tako dalje. Obično ažuriram ove datoteke svaki tjedan. U prošlosti sam obično prvo sastavio tijelo poruke, a zatim ručno dodao te datoteke. Međutim, trenutno nalazim pametniji trik. To je korištenje Outlook VBA za automatizaciju. Ako imate slične zahtjeve, čitajte dalje kako biste naučili konkretne VBA kodove i detaljne operacije.

Automatski priložite određene datoteke prilikom slanja određene e-pošte

1. Za početak, pokrenite Outlook i idite na karticu "Programer".
2. Zatim možete pronaći i kliknuti gumb "Visual Basic", koji će odmah prikazati prozor VBA uređivača.
3. U sljedećem prozoru trebali biste dvaput kliknuti projekt "ThisOutlookSession" na popisu projekata s lijeve strane.
4. Zatim biste trebali kopirati i zalijepiti sljedeće VBA kodove u njega.

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

5. Nakon toga od vas će se tražiti da dodijelite digitalni certifikat novom projektu.

• Najprije kliknite gumb "Alat" na alatnoj traci i odaberite "Digitalni potpis".
• Zatim u skočnom dijaloškom okviru "Digitalni potpis" pritisnite gumb "Odaberi",
• Nakon toga možete odabrati postojeći certifikat.
• Na kraju kliknite niz "OK" da biste ga uspješno dodijelili.

6. Kasnije morate izmijeniti postavke makronaredbi kako biste jednostavno omogućili digitalno potpisane makronaredbe.
7. Na kraju možete pokušati.

• Kada kliknete "Pošalji" da biste poslali određenu poštu koja sadrži određene riječi u predmetu ili je poslana određenom kontaktu, vidjet ćete okvir s porukom, poput slike ispod.
• Nakon toga možete provjeriti poslani e-mail. Sigurno ćete pronaći unaprijed postavljene datoteke u privitku poslane pošte.

Nikada ne odgađajte popravljanje pogrešaka programa Outlook

Ponekad, iako ste naišli na poruku o pogrešci u programu Outlook, nakon što zatvorite poruku, možda ćete moći nastaviti raditi. Ali zapravo to nije preporučljiva radnja. Ono što trebate učiniti je eliminirati ih što je prije moguće umjesto da ih ostavite po strani. Nagomilani problemi rezultirat će ozbiljnim padom. Ako se vaš Outlook sruši, vaši Outlook PST podaci bit će ugroženi. Trebao bi to znati oštećeni Outlook PST podaci je prilično čvorast. U tom trenutku nemate drugog izbora nego koristiti iskusan i ugledan alat za popravak, kao što je DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popravak oštećen SQL Server file i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com