Note: The other languages of the website are Google-translated. Back to English

Kako samodejno ustvariti ime dragega pošiljatelja, ko odgovarjate na sporočilo v Outlooku?

Ko odgovarjate na e-poštno sporočilo, morate ročno vnesti ime in pozdrave pošiljatelja. Če želite prihraniti čas in izboljšati delovno učinkovitost, lahko razmislite o samodejnem ustvarjanju imena in pozdravov dragega pošiljatelja v programu Outlook. V tem članku bom govoril o nekaterih uporabnih metodah za reševanje te naloge v programu Outlook.

Samodejno ustvarite ime in pozdrave dragega pošiljatelja, ko odgovorite na sporočilo s kodo VBA

Samodejno ustvarite ime in pozdrave dragega pošiljatelja, ko odgovorite na sporočilo s programom Kutools for Outlook


Samodejno ustvarite ime in pozdrave dragega pošiljatelja, ko odgovorite na sporočilo s kodo VBA

Naslednja koda VBA vam lahko pomaga, da pri odgovoru na e-poštno sporočilo samodejno vstavite ime in pozdrave dragega pošiljatelja. Naredite to:

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. v Microsoft Visual Basic za aplikacije okno, dvokliknite Ta OutlookSession Iz Projekt1 (VbaProject.OTM) , da odprete način, nato pa v prazen modul kopirajte in prilepite naslednjo kodo.

Koda VBA: pri odgovoru samodejno vstavite ime in pozdrave dragega pošiljatelja:

Public WithEvents GExplorer As Outlook.Explorer
Public WithEvents GMailItem As Outlook.MailItem
Private Sub Application_Startup()
    Set GExplorer = Outlook.Application.ActiveExplorer
End Sub
Private Sub GExplorer_SelectionChange()
    Dim xItem As Object
    On Error Resume Next
    Set xItem = GExplorer.Selection.Item(1)
    If xItem.Class <> olMail Then Exit Sub
    Set GMailItem = xItem
End Sub
Private Sub GMailItem_Reply(ByVal Response As Object, Cancel As Boolean)
    AutoAddGreetingToReply Response
End Sub
Private Sub GMailItem_ReplyAll(ByVal Response As Object, Cancel As Boolean)
    AutoAddGreetingToReply Response
End Sub
Sub AutoAddGreetingToReply(Item As Object)
    Dim xGreetStr As String
    Dim xReplyMail As MailItem
    Dim xSenderName As String
    Dim xRecipient As Recipient
    On Error Resume Next
    If Item.Class <> olMail Then Exit Sub
    Set xReplyMail = Item
    For Each xRecipient In xReplyMail.Recipients
        If xSenderName = "" Then
            xSenderName = xRecipient.Name
        Else
            xSenderName = xSenderName & "," & xRecipient.Name
        End If
    Next xRecipient
    Select Case Time
           Case 0.3 To 0.5
                xGreetStr = " Good morning!"
           Case 0.5 To 0.75
                xGreetStr = " Good afternoon!"
           Case Else
                xGreetStr = " Good evening!"
    End Select
    With xReplyMail
        .Display
        .HTMLBody = "<HTML><Body>Dear " & xSenderName & ",</HTML></Body>" & xGreetStr & .HTMLBody
    End With
End Sub

doc auto dragi ime pošiljatelja 1

3. Nato zaprite Outlook in ga znova zaženite, da začne učinkovati kodo, in ko odgovorite na e-poštno sporočilo, se ime in pozdravi dragega pošiljatelja samodejno vstavijo v telo, si oglejte posnetek zaslona:

doc auto dragi ime pošiljatelja 2


Samodejno ustvarite ime in pozdrave dragega pošiljatelja, ko odgovorite na sporočilo s programom Kutools for Outlook

Če imate Kutools za Outlook, Z njegovim Dodajte odgovor ob odgovoru funkcija bo pri odgovarjanju Outlook samodejno vstavil ime pošiljatelja.

Kutools za Outlook : z več kot 100 priročnimi dodatki za Outlook, ki jih lahko brezplačno preizkusite v 60 dneh. 

Po namestitvi Kutools za Outlook, prosimo, naredite tako:

1. Kliknite Kutools > možnosti, glej posnetek zaslona:

doc auto dragi ime pošiljatelja 3

2. v možnosti v pogovornem oknu pod Odgovori tab, preveri Dodajte odgovor ob odgovoru in nato po potrebi vnesite pozdrave, glejte posnetek zaslona:

doc auto dragi ime pošiljatelja 4

3. Nato kliknite OK če želite dokončati to nastavitev, se bodo odslej pozdravi pri odgovoru na sporočilo samodejno ustvarjali pred telesom sporočila, glejte posnetek zaslona:

doc auto dragi ime pošiljatelja 5

Kliknite za prenos Kutools za Outlook in brezplačno preskusno različico zdaj!


Kutools za Outlook - prinaša 100 naprednih funkcij v Outlook in olajša delo!

  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po meri; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaži sporočilo, ko poskušate odgovoriti vsem če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v e-poštnem pogovoru; Odgovori na veliko e-poštnih sporočil v nekaj sekundah; Samodejno dodaj pozdrav ko odgovor; Dodaj datum v zadevo ...
  • Orodja za priloge: Upravljanje vseh prilog v vseh e-poštnih sporočilih, Samodejno loči, Stisni vse, Preimenuj vse, Shrani vse ... Hitro poročilo, Štejte izbrano pošto...
  • Zmogljiva neželena e-poštna sporočila po meri; Odstranite podvojene pošte in stike... Omogočajo vam pametnejše, hitrejše in boljše delovanje v Outlooku.
strelec kutools outlook kutools zavihek 1180x121
shot kutools outlook kutools plus jeziček 1180x121
 
Komentarji (2)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Dragi Team,

Če pa sem nastavil zgornjo konfiguracijo, če odgovarjam na e-poštno sporočilo, ki ima več prejemnikov v polju Za, pozdrav ni privzet. Kako to dosežem?
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, Wesley,
Da, kot ste rekli, če je v polju Za več prejemnikov, pozdrav privzeto ne bo vstavljen.
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije