Jak automatycznie dodać spersonalizowane powitanie podczas odpowiadania w Outlooku?
Zwykle odpowiadając na wiadomość e-mail w Outlooku, musimy ręcznie dodać powitanie. W rzeczywistości oryginalna wiadomość zawiera informacje o adresacie, takie jak nazwa nadawcy. W tym artykule przedstawię dwie metody automatycznego dodawania spersonalizowanego powitania podczas odpowiadania w Outlooku.
Automatyczne dodawanie spersonalizowanych powitań podczas odpowiadania za pomocą VBA
Automatyczne dodawanie spersonalizowanych powitań podczas odpowiadania za pomocą Kutools dla programu Outlook
Automatyczne dodawanie spersonalizowanych powitań podczas odpowiadania za pomocą VBA
Poniższy kod VBA może automatycznie dodawać spersonalizowane powitanie podczas odpowiadania na wiadomości w programie Outlook. Możesz wykonać następujące czynności:
1. Wybierz wiadomość e-mail, na którą odpowiesz.
2. wciśnij inny + F11 klawisze, aby otworzyć okno Microsoft Visual Basic for Applications.
3. Kliknij wstawka > Modułi wklej następujący kod VBA do nowego okna modułu.
VBA: Odpowiedz ze spersonalizowanym powitaniem
Sub ReplyWithGreeting()
Dim oMItem As Outlook.MailItem
Dim oMItemReply As Outlook.MailItem
Dim sGreetName As String
Dim iGreetType As Long
On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set oMItem = ActiveExplorer.Selection.Item(1)
Case "Inspector"
Set oMItem = ActiveInspector.CurrentItem
Case Else
End Select
On Error GoTo 0
If oMItem Is Nothing Then GoTo ExitProc
On Error Resume Next
iGreetType = InputBox("How to greet:" & vbCr & vbCr & "Type '1' for name, '2' for time of day")
On Error GoTo 0
If iGreetType = False Then GoTo ExitProc
If iGreetType = 1 Then
sGreetName = oMItem.SenderName
ElseIf iGreetType = 2 Then
Select Case Time
Case Is < 0.5
sGreetName = "Good morning"
Case 0.5 To 0.75
sGreetName = "Good afternoon"
Case Else
sGreetName = "Good evening"
End Select
Else
GoTo ExitProc
End If
Set oMItemReply = oMItem.Reply
With oMItemReply
.HTMLBody = "<span style=""font-size : 10pt""><p>Hi " & sGreetName & ",</p></span>" & .HTMLBody
.Display
End With
ExitProc:
Set oMItem = Nothing
Set oMItemReply = Nothing
End Sub
4. wciśnij F5 Klucz lub kliknij run przycisk, aby uruchomić ten VBA. Pojawi się okno dialogowe, jak pokazano poniżej. Wpisz 1 lub 2 w zależności od potrzeb, a następnie kliknij OK przycisk.
Wpisz 1 na powitanie z imieniem odbiorcy: | Wpisz 2 na powitanie wraz z porą dnia: |
Note: W programie Outlook 2013 ten kod VBA nie działa, jeśli odpowiadasz na wiadomości w okienku odczytu. Kliknij tutaj, aby dowiedzieć się, jak wyłączyć odpowiadanie w okienku odczytu w programie Outlook 2013.
Automatyczne dodawanie spersonalizowanych powitań podczas odpowiadania za pomocą Kutools dla programu Outlook
Niektórzy użytkownicy mogą nie chcieć stosować kodu VBA w Outlooku. Dlatego przedstawiam drugą metodę: Kutools dla Outlooka Narzędzie Auto Greeting z łatwością doda spersonalizowane powitanie do wszystkich wiadomości z odpowiedziami.
Kutools dla programu Outlook upraszcza codzienną komunikację e-mail za pośrednictwem programu Outlook, dodając dziesiątki przydatnych funkcji. Czytaj więcej Pobierz teraz
1. Kliknij Kutools > Opcje.
2. W otwartym oknie dialogowym Opcje przejdź do pliku Odpowiedz sprawdź Dodaj powitanie do odpowiedzi opcję, wpisz Hi < > w poniższym polu i kliknij OK przycisk.
Odtąd podczas odpowiadania na wiadomości w Outlooku spersonalizowane powitanie zostanie automatycznie dodane do treści wiadomości e-mail, jak pokazano na poniższym zrzucie ekranu:
Note: W programie Outlook 2013 to narzędzie nie działa, jeśli odpowiadasz na wiadomości w okienku odczytu. Kliknij tutaj, aby dowiedzieć się, jak wyłączyć odpowiadanie w okienku odczytu w programie Outlook 2013.
Demo: automatycznie dodawaj spersonalizowane powitanie podczas odpowiadania w Outlooku
Wskazówka: W tym wideo, Kutools została dodana przez Kutools dla programu Outlook. Jeśli potrzebujesz, kliknij tutaj mieć 60-dniowy bezpłatny okres próbny bez ograniczeń!
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!