Următorul cod VBA poate adăuga automat felicitări personalizate atunci când răspundeți la mesaje în Outlook. Puteți face următoarele:

1. Selectați mesajul de e-mail la care veți răspunde.

2. apasă pe Alt + F11 tastele pentru a deschide fereastra Microsoft Visual Basic pentru aplicații.

3. Faceți clic pe Insera > Module, și lipiți următorul cod VBA în fereastra noului modul.

VBA: Răspundeți cu un mesaj personalizat

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. apasă pe F5 Tastați sau faceți clic Alerga pentru a rula acest VBA. Va apărea o casetă de dialog așa cum este prezentat mai jos. Tastați 1 sau 2 pe baza nevoilor dvs., apoi faceți clic pe OK butonul.

Tastați 1 pentru întâmpinare cu numele destinatarului:	Tastați 2 pentru salut cu ora din zi:

notițe: În Outlook 2013, acest cod VBA nu funcționează dacă răspundeți la mesaje în panoul de citire. Clic aici pentru a ști cum să dezactivați răspunsul în Reading Pane în Outlook 2013.

Este posibil ca unii utilizatori să nu le placă să aplice codul VBA în Outlook. Prin urmare, introduc a doua metodă: Kutools pentru Outlook Utilitar Auto Greeting va adăuga cu ușurință felicitări personalizate în toate mesajele de răspuns.

Kutools pentru Outlook vă simplifică comunicarea zilnică prin e-mail prin Outlook prin adăugarea a zeci de funcții la îndemână. Citeste mai mult      Descărcare gratuită acum

1. Faceți clic pe Kutools > Opţiuni.

2. În caseta de dialog Opțiuni de deschidere, accesați răspuns fila, verificați Adăugați mesaj de întâmpinare când răspundeți opțiune, tastați Hi < >, în caseta de mai jos și faceți clic pe OK butonul.

De acum înainte, când răspundeți la mesaje în Outlook, mesajul de întâmpinare personalizat va fi adăugat automat în corpul e-mailului, după cum se arată în următoarea captură de ecran:

notițe: În Outlook 2013, acest utilitar nu funcționează dacă răspundeți la mesaje în panoul de citire. Clic aici pentru a ști cum să dezactivați răspunsul în Reading Pane în Outlook 2013.

Descărcare gratuită Kutools pentru Outlook