Gyakran kell bizonyos fájlokat csatolnia, amikor adott e-maileket küld az Outlookban? Ha igen, fárasztónak érezheti minden alkalommal manuálisan hozzáadni őket. Ebből a cikkből megtudhatja, hogyan érheti el ezt az Outlook VBA segítségével gyorsan.
Mindennapi munkám során gyakran kell bizonyos fájlokat csatolnom, amikor konkrét e-maileket küldök. Például minden héten e-mailt kell küldenem a feletteseimnek, hogy beszámoljak a heti munkámról. Ehhez az e-mailhez csatolnom kell néhány konkrét fájlt, beleértve a munkanaplókat, néhány adatstatisztikai jelentést és így tovább. Általában hetente frissítem ezeket a fájlokat. A múltban általában először az üzenet törzsét írtam, majd manuálisan hozzáadtam ezeket a fájlokat. Jelenleg azonban találok egy okosabb trükköt. Ez az Outlook VBA segítségével automatizálja. Ha hasonló követelményekkel rendelkezik, kérjük, olvassa el a konkrét VBA kódokat és a részletes műveleteket.
Adott fájlok automatikus csatolása meghatározott e-mailek küldésekor
- Kezdésként indítsa el az Outlookot, és lépjen a „Fejlesztő” fülre.
- Ezután megtalálhatja és rákattinthat a „Visual Basic” gombra, amely egyből előhívja a VBA szerkesztő ablakát.
- A következő ablakban kattintson duplán a „ThisOutlookSession” projektre a bal oldali projektlistában.
- Ezután másolja és illessze be a következő VBA kódokat.
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
- Ezt követően digitális tanúsítványt kell rendelnie az új projekthez.
- Először kattintson az „Eszköz” gombra az eszköztárban, és válassza a „Digitális aláírás” lehetőséget.
- Ezután a felugró „Digitális aláírás” párbeszédpanelen nyomja meg a „Kiválasztás” gombot,
- Ezt követően választhat egy meglévő tanúsítványt.
- Végül kattintson az „OK” sorozatra a sikeres hozzárendeléshez.
- Később módosítania kell a makróbeállításokat, hogy egyszerűen engedélyezze a digitálisan aláírt makrókat.
- Végül megpróbálhatod.
- Ha a „Küldés” gombra kattint, hogy elküldje az adott e-mailt, amely a tárgyban a konkrét szavakat tartalmazza, vagy egy adott kapcsolatnak küldött üzenetet, az alábbi képhez hasonló üzenetablak jelenik meg.
- Ezt követően ellenőrizheti az elküldött e-mailt. Az elküldött levélben biztosan megtalálja az előre beállított fájlokat.
Soha ne késleltesse az Outlook hibák kijavítását
Néha, bár hibaüzenetet kapott az Outlook programban, az üzenet bezárása után továbbra is folytathatja a munkát. De valójában ez nem tanácsos intézkedés. Azt kell tennie, hogy a lehető leghamarabb megszüntesse őket, ahelyett, hogy félretenné őket. A felhalmozódó problémák súlyos összeomláshoz vezetnek. Ha az Outlook összeomlik, az Outlook PST-adatai veszélybe kerülnek. Ezt tudnia kell sérült Outlook PST-adatok meglehetősen csomós. Ekkor nincs más dolga, mint egy tapasztalt és jó hírű javítóeszköz használata, mint pl DataNumen Outlook Repair.
Szerző Bevezetés:
Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve javítás sérült SQL Server filé és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com