Note: The other languages of the website are Google-translated. Back to English

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:

1) Pokud jste předmět již vyplnili, vložení přílohy se nezobrazí dialogové okno.
2) Pokud odeberete existující předmět z aktuálního e-mailu, ale kurzor je stále zobrazen v předmětu, vložení přílohy také nevyvolá dialogové okno. Po odebrání předmětu musíte kliknout mimo řádek předmětu, abyste obnovili okno zprávy, aby kód fungoval.
3) Pokud vložíte více příloh současně, lze jako předmět e-mailu použít pouze název první přílohy.

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.
záběr kutools outlook kutools tab 1180x121
shot kutools outlook kutools plus karta 1180x121
 
Komentáře (7)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Добрый день. Подскажите пожалуйста можно ли сделать что бы тема формировалась из 2 и бойолее Может в данном коде дописать или вообще другой существует? Заранее спасибо
Tento komentář byl moderátorem webu minimalizován
Ahoj Александр,

Máte na mysli přidávání více příloh a zároveň přidávání těchto názvů příloh k předmětu a poté jejich propojení pomocí AND?
Tento komentář byl moderátorem webu minimalizován
Да. Например перетащил два файла и он их имена написал через И. Именно два файла, больше не надо.
Tento komentář byl moderátorem webu minimalizován
Да, именно. ТЕ при добавлении или перетягивании двух файлов тема письма автоматом писалась через И
Tento komentář byl moderátorem webu minimalizován
Добрый день. ДА при добавлении 2 файлов в тему писалось через И.
Tento komentář byl moderátorem webu minimalizován
Ahoj Александр,

The following VBA code can help to solve your problem. Please give it a try.
Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220131
Public WithEvents GInspectors As Inspectors
Public WithEvents GMail As MailItem
Dim GFileName As String

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
  GFileName = ""
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
  GFileName = ""
End Sub

Private Sub GMail_AttachmentAdd(ByVal Att As Attachment)
  If GMail.Subject = "" Then
    GMail.Subject = GFileName
  Else
    GMail.Subject = GMail.Subject & " AND " & GFileName
  End If
  GFileName = ""
End Sub

Private Sub GMail_BeforeAttachmentAdd(ByVal Attachment As Attachment, Cancel As Boolean)
  On Error Resume Next
  GFileName = Attachment.DisplayName
  GFileName = Left$(GFileName, VBA.InStrRev(GFileName, ".") - 1)
  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
    GFileName = ""
    Exit Sub
  End If
End Sub
Tento komentář byl moderátorem webu minimalizován
Да получилось. Огромное спасибо за помощь. И еще один вопрос, а можно в конце всего этого, при нажатии кнопки "Отправить" выдавал некое сообщение что то типа "Вы действительно хотите отправить данное сообщение"?
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL