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:
Najlepsze narzędzia biurowe
Kutools dla programu Outlook - Ponad 100 zaawansowanych funkcji, które usprawnią Twoje perspektywy
🤖 Asystent poczty AI: Natychmiastowe profesjonalne e-maile z magią AI — genialne odpowiedzi jednym kliknięciem, doskonały ton, biegła znajomość wielu języków. Zmień e-mailing bez wysiłku! ...
📧 Automatyzacja poczty e-mail: Poza biurem (dostępne dla POP i IMAP) / Zaplanuj wysyłanie wiadomości e-mail / Automatyczne CC/BCC według reguł podczas wysyłania wiadomości e-mail / Automatyczne przewijanie (Zasady zaawansowane) / Automatyczne dodawanie powitania / Automatycznie dziel wiadomości e-mail od wielu odbiorców na pojedyncze wiadomości ...
📨 Zarządzanie e-mail: Łatwe przywoływanie e-maili / Blokuj oszukańcze wiadomości e-mail według tematów i innych / Usuń zduplikowane wiadomości e-mail / Wiecej opcji / Konsoliduj foldery ...
📁 Załączniki Pro: Zapisz zbiorczo / Odłącz partię / Kompresuj wsadowo / Automatyczne zapisywanie / Automatyczne odłączanie / Automatyczna kompresja ...
🌟 Magia interfejsu: 😊Więcej ładnych i fajnych emotikonów / Zwiększ produktywność programu Outlook dzięki widokom na kartach / Zminimalizuj program Outlook zamiast go zamykać ...
>> Cuda jednym kliknięciem: Odpowiedz wszystkim, dodając przychodzące załączniki / E-maile chroniące przed phishingiem / 🕘Pokaż strefę czasową nadawcy ...
👩🏼🤝👩🏻 Kontakty i kalendarz: Grupowe dodawanie kontaktów z wybranych e-maili / Podziel grupę kontaktów na pojedyncze grupy / Usuń przypomnienia o urodzinach ...
O Cechy 100 Poczekaj na eksplorację! Kliknij tutaj, aby dowiedzieć się więcej.