Jak automaticky vyplnit předmět e-mailu názvem přílohy v Outlooku?
Pro ty, kteří jsou zvyklí používat název přílohy jako předmět e-mailu v Outlooku, bude pokaždé ruční psaní názvu přílohy do předmětu časově náročné. Jak je znázorněno na obrázku níže, pokud chcete při vkládání přílohy automaticky vyplnit řádek předmětu e-mailu názvem přílohy, pomůže vám metoda VBA v tomto návodu.
Automaticky vyplňte předmět e-mailu názvem přílohy s kódem VBA
Spusťte prosím následující kód VBA a automaticky vyplňte předmět e-mailu názvem vložené přílohy v Outlooku.
1. Spusťte svůj Outlook a stiskněte Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2. V Microsoft Visual Basic pro aplikace okno, dvakrát klikněte Project1 (VbProject.OTM) > Objekty Microsoft Outlook > ThisOutlookSession k otevření ThisOutlookSession (kód) editor.
3. Poté zkopírujte následující kód VBA do ThisOutlookSession (kód) editor.
Kód VBA: Automaticky vyplňte předmět e-mailu názvem přílohy
Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220926
Public WithEvents GInspectors As Inspectors
Public WithEvents GMail As MailItem
Private Sub Application_Startup()
Set GExplorer = Application.ActiveExplorer
Set GInspectors = Application.Inspectors
End Sub
Private Sub GExplorer_InlineResponse(ByVal Item As Object)
Set GMail = Item
End Sub
Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
Dim xItem As Object
Set xItem = Inspector.CurrentItem
If xItem.Class <> olMail Then Exit Sub
Set GMail = xItem
End Sub
Private Sub GMail_AttachmentAdd(ByVal Att As Attachment)
Dim xFileName As String
On Error Resume Next
If VBA.Trim(GMail.Subject) <> "" Then Exit Sub
If MsgBox("Do you want to use the attachment name as the subject?", vbYesNo + vbInformation, "Kutools for Outlook") = vbNo Then Exit Sub
xFileName = Att.DisplayName
xFileName = Left$(xFileName, VBA.InStrRev(xFileName, ".") - 1)
GMail.Subject = xFileName
End Sub
4. Nyní musíte uložit kód a restartovat aplikaci Outlook.
5. Od této chvíle, když vložíte přílohu do e-mailu, který ještě nemá vyplněný předmět, a Kutools pro aplikaci Outlook Zobrazí se dialogové okno s dotazem, zda chcete jako předmět použít název přílohy, klepněte na Ano .
Poté se do předmětu automaticky vyplní název vložené přílohy.
Poznámky:
Kutools pro Outlook - přináší do aplikace Outlook 100 pokročilých funkcí a usnadňuje práci!
- Auto CC / BCC podle pravidel při odesílání e-mailů; Automatické předávání Více e-mailů podle zvyku; Automatická odpověď bez serveru Exchange a dalších automatických funkcí ...
- Varování BCC - zobrazit zprávu, když se pokusíte odpovědět všem pokud je vaše e-mailová adresa v seznamu BCC; Připomenout, když chybí přílohya další připomínající funkce ...
- Odpovědět (Vše) Se všemi přílohami v e-mailové konverzaci; Odpovězte na mnoho e-mailů během několika sekund; Automatické přidání pozdravu při odpovědi; Přidat datum do předmětu ...
- Nástroje pro přílohy: Spravujte všechny přílohy ve všech e-mailech, Automatické odpojení, Komprimovat vše, Přejmenovat vše, Uložit vše ... Rychlá zpráva, Počítat vybrané e-maily...
- Výkonné nevyžádané e-maily podle zvyku; Odeberte duplicitní e-maily a kontakty... Umožní vám dělat chytřejší, rychlejší a lepší v Outlooku.
