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

Jak automatycznie wypełnić temat wiadomości e-mail nazwą załącznika w Outlooku?

Dla tych, którzy są przyzwyczajeni do używania nazwy załącznika jako tematu wiadomości e-mail w Outlooku, ręczne wpisywanie nazwy załącznika za każdym razem w wierszu tematu będzie czasochłonne. Jak pokazano na poniższym gifie, jeśli chcesz automatycznie wypełnić wiersz tematu wiadomości e-mail nazwą załącznika po wstawieniu załącznika, pomoże metoda VBA w tym samouczku.


Automatycznie wypełnij temat wiadomości e-mail nazwą załącznika kodem VBA

Uruchom następujący kod VBA, aby automatycznie wypełnić temat wiadomości e-mail nazwą wstawionego załącznika w Outlooku.

1. Uruchom program Outlook, naciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2. w Microsoft Visual Basic for Applications kliknij dwukrotnie Projekt1 (VbProjekt.OTM) > Obiekty programu Microsoft Outlook > Ta sesja programu Outlook otworzyć ThisOutlookSession (kod) redaktor.

3. Następnie skopiuj następujący kod VBA do ThisOutlookSession (kod) redaktor.

Kod VBA: Automatycznie wypełnij temat wiadomości e-mail nazwą załącznika

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. Teraz musisz zapisać kod i ponownie uruchomić Outlooka.

5. Od teraz, gdy wstawisz załącznik do wiadomości e-mail, która nie ma jeszcze wypełnionego tematu, a Kutools dla programu Outlook pojawi się okno dialogowe z pytaniem, czy chcesz użyć nazwy załącznika jako tematu, kliknij Tak przycisk.

Następnie wiersz tematu zostanie automatycznie wypełniony nazwą wstawionego załącznika.

Uwagi:

1) Jeśli już wypełniłeś temat, wstawienie załącznika nie spowoduje wyświetlenia okna dialogowego.
2) Jeśli usuniesz istniejący temat z bieżącej wiadomości e-mail, ale kursor nadal jest wyświetlany w wierszu tematu, wstawienie załącznika również nie spowoduje wyświetlenia okna dialogowego. Po usunięciu tematu musisz kliknąć poza wiersz tematu, aby odświeżyć okno wiadomości, aby kod działał.
3) Jeśli wstawisz wiele załączników jednocześnie, tylko nazwa pierwszego załącznika może zostać użyta jako temat wiadomości e-mail.

Kutools dla programu Outlook - wprowadza 100 zaawansowanych funkcji do programu Outlook i znacznie ułatwia pracę!

  • Auto CC / BCC według zasad podczas wysyłania wiadomości e-mail; Auto Forward Wiele e-maili na zamówienie; Automatyczna odpowiedź bez serwera Exchange i więcej funkcji automatycznych ...
  • Ostrzeżenie BCC - pokaż wiadomość, gdy spróbujesz odpowiedzieć wszystkim jeśli Twój adres e-mail znajduje się na liście BCC; Przypomnij o braku załącznikówi więcej funkcji przypominających ...
  • Odpowiedz (wszystkie) ze wszystkimi załącznikami w rozmowie pocztowej; Odpowiedz na wiele e-maili w sekundy; Automatyczne dodawanie powitania kiedy odpowiedz; Dodaj datę do tematu ...
  • Narzędzia załączników: Zarządzaj wszystkimi załącznikami we wszystkich wiadomościach e-mail, Automatyczne odłączanie, Kompresuj wszystko, Zmień nazwę wszystkiego, Zapisz wszystko ... Szybki raport, Policz wybrane wiadomości...
  • Potężne wiadomości-śmieci na zamówienie; Usuń zduplikowane wiadomości e-mail i kontakty... Umożliwiają inteligentniejsze, szybsze i lepsze działanie w programie Outlook.
strzał Kutools Outlook Kutools tab 1180x121
shot Kutools Outlook Kutools Plus Tab 1180x121
 
Sortuj komentarze według
Komentarze (6)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
Добрый день. Подскажите пожалуйста можно ли сделать что бы тема формировалась из 2 i более файлов с разделение И? Может в данном коде дописать lub вообще другой существует? Заранее спасибо
Ten komentarz został zminimalizowany przez moderatora na stronie
Witaj Aleksandro,

Czy masz na myśli dodawanie wielu załączników podczas jednoczesnego dodawania tych nazw załączników do tematu, a następnie łączenia ich za pomocą AND?
Ten komentarz został zminimalizowany przez moderatora na stronie
Да. Например перетащил два файла и имена написал через И. Именно два файла, больше не nado.
Ten komentarz został zminimalizowany przez moderatora na stronie
Да, менно. ТЕ при добавлении или перетягивании двух файлов tema письма автоматом писалась через И
Ten komentarz został zminimalizowany przez moderatora na stronie
Добрый день. ДА при добавлении 2 файлов в temu писалось через И.
Ten komentarz został zminimalizowany przez moderatora na stronie
Witaj Aleksandro,

Poniższy kod VBA może pomóc w rozwiązaniu problemu. Proszę spróbować.
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
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL