Jak automaticky vyplnit předmět e-mailu s názvem přílohy v aplikaci Outlook

Používáte často název přílohy jako předmět e-mailu v Outlooku? Pokud ano, musíte doufat, že Outlook ji může automaticky dokončit. Tento článek představí praktickou metodu pro její realizaci pomocí aplikace Outlook VBA.

Mnoho uživatelů je zvyklých ručně psát název přílohy do předmětu e-mailu. V takovém případě, pokud to Outlook dokáže automaticky vyplnit, bude to mnohem pohodlnější. Někteří uživatelé také často zapomínají vyplnit předmět. Takže po stisknutí tlačítka „Odeslat“ se jim zobrazí varovná zpráva „bez předmětu“. V takovém případě, pokud Outlook dokáže automaticky vyplnit předmět názvem přílohy, budou se moci vyhnout otravnému varování „bez předmětu“. Stručně řečeno, předpokládá se, že mnoho uživatelů Outlooku touží po takové metodě, která by Outlooku umožnila automaticky vyplnit předmět e-mailu názvem přílohy. Naštěstí s pomocí Outlook VBA toho můžeme dosáhnout s maximální snadností. Zde jsou propracované kódy a kroky VBA.

Automaticky vyplnit předmět e-mailu s názvem přílohy

1. Nejprve můžete spustit Outlook a přepnout na kartu „Vývojář“.
2. Na této kartě byste pak měli kliknout na tlačítko „Visual Basic“, které vyvolá editor VBA.
3. V následujícím okně byste měli nejprve vyhledat projekt „ThisOutlookSession“ v seznamu projektů na pravé straně.
4. Dalším dvojitým kliknutím otevřete tento projekt. A poté do něj zkopírujte následující 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. Poté musíte běžně přiřadit digitální certifikát aktuálnímu projektu VBA.

• Nejprve využijte vestavěný nástroj „Digitální certifikáty pro projekty VBA“ ke generování digitálního certifikátu.
• Následně můžete podepsat aktuální makro.

6. Později ukončete editor VBA a změňte nastavení maker na „Oznámení pro digitálně podepsaná makra, všechna ostatní makra deaktivována“.
7. Nakonec to můžete vyzkoušet.

• Vytvořte nový e-mail.
• Pokud jste předmět nevyplnili a chcete připojit soubor, obdržíte zprávu, například následující obrázek:
• Pokud vyberete „Ano“, předmět bude najednou vyplněn názvem přílohy.

Vyrovnejte se s častými problémy s aplikací Outlook

Pokud používáte Outlook po celá desetiletí, musíte se setkat s mnoha problémy s Outlookem. Jaká opatření potom obvykle podniknete, když se s nimi setkáte? Navrhuje se je co nejdříve zjistit a vymýtit. Je to proto, že hromadění problémů může kdykoli poškodit vaše data aplikace Outlook. Proto, i když Outlook může fungovat jako obvykle, měli byste lépe použít nástroj pro opravu doručené pošty nebo externí Nástroj pro opravu chyb aplikace Outlook PST, jako DataNumen Outlook Repair, skenovat vaše soubory PST, aby detekovaly a řešily chyby.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně oprava poškozená SQL Server databáze a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com