Ako automaticky vypĺňať riadok e-mailu s názvom prílohy v programe Outlook

Používate často názov prílohy ako predmet e-mailu v Outlooku? Ak je to tak, musíte dúfať, že program Outlook ho môže automaticky dokončiť. Tento článok predstaví praktickú metódu na uskutočnenie pomocou aplikácie Outlook VBA.

Mnoho používateľov je zvyknutých manuálne písať názov prílohy do predmetu e-mailu. V takom prípade, ak to Outlook dokáže automaticky vyplniť, bude to oveľa pohodlnejšie. Niektorí používatelia tiež často zabúdajú vyplniť predmet. Takže po stlačení tlačidla „Odoslať“ sa im zobrazí upozornenie „bez predmetu“. V takom prípade, ak Outlook dokáže automaticky vyplniť predmet názvom prílohy, vyhnú sa otravnému upozorneniu „bez predmetu“. Stručne povedané, predpokladá sa, že veľa používateľov Outlooku túži po takejto metóde, ktorá by umožnila Outlooku automaticky vyplniť predmet e-mailu názvom prílohy. Našťastie, s pomocou Outlook VBA to môžeme dosiahnuť s maximálnou ľahkosťou. Tu sú prepracované kódy a kroky VBA.

Automatické vyplnenie riadku predmetu e-mailu s názvom prílohy

1. Najprv môžete spustiť Outlook a prepnúť na kartu „Vývojár“.
2. Na tejto karte by ste potom mali kliknúť na tlačidlo „Visual Basic“, ktoré otvorí editor VBA.
3. V nasledujúcom okne by ste mali najskôr nájsť projekt „ThisOutlookSession“ v zozname projektov na pravej strane.
4. Ďalším dvojitým kliknutím otvoríte tento projekt. A potom do nej skopírujte nasledujúce kódy.

Public WithEvents olInspectors As Outlook.Inspectors
Public WithEvents olMail As Outlook.MailItem

Private Sub Initialize_handlers()
    Set olInspectors = Application.Inspectors
End Sub

Private Sub olInspectors_NewInspector(ByVal Inspector As Inspector)
    Dim olItem As Object
    Set olItem = Inspector.CurrentItem
    If TypeName(olItem) = "MailItem" Then Set olMail = olItem
End Sub

Private Sub olMail_AttachmentAdd(ByVal Attachment As Attachment)
    If olMail.Subject = "" Then
      'If you don't want the prompt,
      'Just delete the Msgbox line and its corresponding "End if".
      If MsgBox("Do you want to use the attachment name as the subject", vbYesNo) = vbYes Then
         olMail.Subject = Attachment.DisplayName
      End If
    End If
End Sub

5. Potom musíte bežnému projektu VBA naďalej priraďovať digitálny certifikát k aktuálnemu projektu VBA.

• Najskôr pomocou zabudovaného nástroja „Digitálne certifikáty pre projekty VBA“ vygenerujte digitálny certifikát.
• Následne môžete podpísať aktuálne makro.

6. Neskôr ukončite editor VBA a zmeňte nastavenie makra na „Upozornenia na digitálne podpísané makra, všetky ostatné makrá deaktivované“.
7. Nakoniec to môžete vyskúšať.

• Vytvorte nový e-mail.
• Ak ste nevyplnili predmet a chcete pripojiť súbor, dostanete správu, napríklad nasledujúci obrázok:
• Ak vyberiete možnosť „Áno“, predmet sa naraz vyplní názvom prílohy.

Vyrovnajte sa s častými problémami s programom Outlook

Ak ste Outlook používali už desaťročia, určite ste sa stretli s mnohými problémami s Outlookom. Aké kroky potom zvyčajne podniknete, keď sa s nimi stretnete? Navrhuje sa ich čo najskôr zistiť a vykoreniť. Je to tak preto, lebo hromadenie problémov môže kedykoľvek poškodiť vaše údaje programu Outlook. Preto, aj keď program Outlook môže fungovať ako obvykle, mali by ste radšej použiť nástroj na opravu doručenej pošty alebo externý nástroj Nástroj na opravu chýb programu Outlook PST, Ako DataNumen Outlook Repair, aby ste prehľadali svoje súbory PST, aby zistili a riešili chyby.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane oprava poškodená SQL Server databázy a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S