Kaip automatiškai pridėti konkrečius failus siunčiant konkrečius el. laiškus programoje „Outlook“.

Ar dažnai reikia pridėti konkrečius failus siunčiant konkrečius el. laiškus programoje „Outlook“? Jei taip, jums gali atrodyti nuobodu kiekvieną kartą pridėti juos rankiniu būdu. Šiame straipsnyje sužinosite, kaip greitai tai pasiekti naudojant „Outlook VBA“.

Kasdieniame darbe, siųsdamas konkrečius el. laiškus, dažnai privalau pridėti konkrečius failus. Pavyzdžiui, kiekvieną savaitę turiu siųsti el. laišką savo viršininkams, kad praneščiau apie savo savaitinį darbą. Šiame el. laiške turėsiu pridėti keletą konkrečių failų, įskaitant darbo žurnalus, kai kurias duomenų statistikos ataskaitas ir pan. Paprastai šiuos failus atnaujinu kas savaitę. Anksčiau aš paprastai pirmiausia sukurdavau pranešimo turinį ir tada rankiniu būdu pridedu šiuos failus. Tačiau šiuo metu randu protingesnę gudrybę. Tai automatizuoti naudojant „Outlook VBA“. Jei turite panašių reikalavimų, skaitykite toliau, kad sužinotumėte konkrečius VBA kodus ir išsamias operacijas.

Automatiškai pridėkite konkrečius failus siunčiant konkrečius el

1. Dėl astart, paleiskite „Outlook“ ir atidarykite skirtuką „Kūrėjas“.
2. Tada galite rasti ir spustelėti mygtuką „Visual Basic“, kuris iš karto išves VBA redaktoriaus langą.
3. Kitame lange dukart spustelėkite projektą „ThisOutlookSession“ kairiajame projektų sąraše.
4. Tada turėtumėte nukopijuoti ir įklijuoti šiuos VBA kodus.

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. Po to naujam projektui turėsite priskirti skaitmeninį sertifikatą.

• Pirmiausia įrankių juostoje spustelėkite mygtuką „Įrankis“ ir pasirinkite „Skaitmeninis parašas“.
• Tada iššokančiajame dialogo lange „Skaitmeninis parašas“ paspauskite mygtuką „Pasirinkti“,
• Vėliau galite pasirinkti esamą sertifikatą.
• Galiausiai spustelėkite „Gerai“ seriją, kad ją sėkmingai priskirtumėte.

6. Vėliau turėsite pakeisti makrokomandos nustatymus, kad paprasčiausiai leistų skaitmeniniu būdu pasirašytas makrokomandas.
7. Galų gale galite pabandyti.

• Kai spustelėsite „Siųsti“, kad išsiųstumėte konkretų laišką, kuriame yra konkretūs žodžiai temoje arba kuris siunčiamas konkrečiam kontaktui, pamatysite pranešimo laukelį, kaip ir toliau pateiktame paveikslėlyje.
• Po to galite patikrinti išsiųstą el. Iš anksto nustatytus failus tikrai rasite atsiųstame laiške.

Niekada neatidėliokite Outlook klaidų taisymo

Kartais, net jei „Outlook“ radote klaidos pranešimą, uždarę pranešimą vis tiek galėsite tęsti darbą. Tačiau iš tikrųjų tai nėra patartinas veiksmas. Ką turėtumėte padaryti, tai kuo greičiau juos pašalinti, o ne palikti nuošalyje. Besikaupiančios problemos sukels rimtą avariją. Jei „Outlook“ sugenda, jūsų „Outlook PST“ duomenims iškils pavojus. Turėtumėte tai žinoti sugadinti Outlook PST duomenys yra gana mazgas. Tuo metu jums nelieka nieko kito, kaip naudoti patyrusį ir patikimą remonto įrankį, pvz DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant remontas sugadintas SQL Server failas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com