Il seguente codice VBA può aggiungere automaticamente un saluto personalizzato quando si risponde ai messaggi in Outlook. Puoi fare come segue:

1. Selezionare il messaggio di posta elettronica a cui rispondere.

2. premi il altro + F11 tasti per aprire la finestra di Microsoft Visual Basic, Applications Edition.

3. Fare clic sul inserire > Modulie incolla il codice VBA seguente nella finestra del nuovo modulo.

VBA: rispondi con un saluto personalizzato

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. premi il F5 Tasto o clic Correre pulsante per eseguire questo VBA. Apparirà una finestra di dialogo come mostrato di seguito. Digita 1 o 2 in base alle tue esigenze, quindi fai clic su OK pulsante.

Digita 1 per il saluto con il nome del destinatario:	Digitare 2 per il saluto con l'ora del giorno:

Note:: In Outlook 2013, questo codice VBA non funziona se rispondi ai messaggi nel riquadro di lettura. Clic qui per sapere come disabilitare la risposta nel riquadro di lettura in Outlook 2013.

Ad alcuni utenti potrebbe non piacere applicare il codice VBA in Outlook. Pertanto presento il secondo metodo: Kutools for Outlook's Utilità di saluto automatico aggiungerà facilmente un saluto personalizzato a tutti i messaggi di risposta.

Kutools for Outlook semplifica la comunicazione e-mail quotidiana tramite Outlook aggiungendo dozzine di utili funzionalità. Scopri di più      Scarica gratis ora

1. Fare clic sul Kutools > Opzioni.

2. Nella finestra di dialogo Opzioni di apertura, vai al file Rispondi scheda, controlla il file Aggiungi un saluto alla risposta opzione, digita Ciao < >, nella casella sottostante e fare clic su OK pulsante.

D'ora in poi, quando si risponde ai messaggi in Outlook, il saluto personalizzato verrà aggiunto automaticamente nel corpo dell'e-mail come mostrato nella seguente schermata:

Note:: In Outlook 2013, questa utilità non funziona se si risponde ai messaggi nel riquadro di lettura. Clic qui per sapere come disabilitare la risposta nel riquadro di lettura in Outlook 2013.

Scarica gratuitamente Kutools per Outlook