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:
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.
