Kuinka lisätä automaattisesti henkilökohtainen tervehdys, kun vastaat Outlookissa?

Normaalisti, kun vastaamme sähköpostiviestiin Outlookissa, meidän on lisättävä tervehdys manuaalisesti. Itse asiassa alkuperäinen viesti sisältää vastaanottajan tiedot, kuten lähettäjän nimen. Ja tässä artikkelissa esittelen kaksi tapaa lisätä automaattisesti mukautettu tervehdys, kun vastaat Outlookissa.

Lisää automaattisesti henkilökohtainen tervehdys, kun vastaat VBA:lla

Lisää automaattisesti henkilökohtainen tervehdys, kun vastaat Kutools for Outlook -sovelluksella

Lisää automaattisesti henkilökohtainen tervehdys, kun vastaat VBA:lla

Seuraava VBA-koodi voi automaattisesti lisätä henkilökohtaisen tervehdyksen, kun vastaat viesteihin Outlookissa. Voit tehdä seuraavasti:

1. Valitse sähköposti, johon haluat vastata.

2. paina muut + F11 -näppäimiä avataksesi Microsoft Visual Basic for Applications -ikkunan.

3. Napsauta liite > Moduulit, ja liitä seuraava VBA-koodi uuteen moduuliikkunaan.

VBA: Vastaa henkilökohtaisella tervehdyksellä

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. paina F5 Näppäin tai napsauta ajaa -painiketta suorittaaksesi tämän VBA:n. Se avaa valintaikkunan alla olevan kuvakaappauksen mukaisesti. Kirjoita 1 tai 2 tarpeidesi mukaan ja napsauta sitten OK painiketta.

Kirjoita 1 tervehdyttämiseen vastaanottajan nimellä:	Tyyppi 2 tervehtiäksesi kellonajan:

Huomautuksia: Outlook 2013:ssa tämä VBA-koodi ei toimi, jos vastaat lukuruudun viesteihin. Napsauta Täältä saat tietää, miten vastaaminen poistetaan käytöstä Outlook 2013:n lukuruudussa.

Lisää automaattisesti henkilökohtainen tervehdys, kun vastaat Kutools for Outlook -sovelluksella

Jotkut käyttäjät eivät ehkä halua käyttää VBA-koodia Outlookissa. Siksi esittelen toisen menetelmän: Kutools for Outlookin Automaattinen tervehdys-apuohjelma lisää henkilökohtaiset terveiset helposti kaikkiin vastaaviin viesteihin.

Kutools Outlookille yksinkertaistaa päivittäistä sähköpostiviestintääsi Outlookin kautta lisäämällä kymmeniä käteviä ominaisuuksia. Lue lisää      Ilmainen lataus nyt

1. Napsauta Kutools > Vaihtoehdot.

2. Siirry avautuvassa Asetukset-valintaikkunassa kohtaan vastata -välilehti, tarkista Lisää tervehdys, kun luot sähköpostin, vastaat siihen ja välität sitä -vaihtoehto, mukauta tervehdys lisäämällä paikkamerkit, kuten <>,<> tai <> tarpeidesi perusteella. alla olevaan ruutuun ja napsauta OK painiketta.

Tästä lähtien, kun vastaat viesteihin Outlookissa, henkilökohtainen tervehdys lisätään automaattisesti sähköpostin runkoon seuraavan kuvakaappauksen mukaisesti:

Huomautuksia: Outlook 2013:ssa tämä apuohjelma ei toimi, jos vastaat lukuruudun viesteihin. Napsauta Täältä saat tietää, miten vastaaminen poistetaan käytöstä Outlook 2013:n lukuruudussa.