Patarimas: kitos kalbos yra "Google" išverstos. Galite aplankyti English šios nuorodos versija.
Prisijungti
x
or
x
x
Registruotis
x

or

Kaip automatiškai keisti parašą pagal "Outlook" gavėjus?

Pagal numatytuosius nustatymus "Outlook" turi įmontuotą funkciją, leidžiančią vartotojams automatiškai keisti parašą siunčiant el. Laiškus per skirtingas el. Pašto paskyras. Tačiau be to, čia aš parodysiu būdą, kaip automatiškai keisti parašą, pagrįstą skirtingais gavėjais lauke To lauke "Outlook".

Keisti parašą, kurį gavėjai gauna automatiškai, naudodami VBA kodą


Visada atsakykite el. Paštu su numatytąją el. Pašto paskyrą "Outlook":

Jei norite visada atsakyti el. Paštu su numatytąją el. Pašto paskyrą "Outlook", Visada atsakykite į numatytąją sąskaitą pasirinkimas Kutools for Outlook padarys tau malonę. Žr. Ekrano kopiją:

Kutools for Outlook: su daugiau nei 40 patogiais "Outlook" papildinimais, galite nemokamai išbandyti be apribojimų per 45 dienas. Atsisiųskite ir nemokamai bandykite dabar!


Keisti parašą, kurį gavėjai gauna automatiškai, naudodami VBA kodą

Jei norite siųsti skirtingus parašus atitinkamiems gavėjams siunčiant el. Laiškus "Outlook", atlikite toliau nurodytus veiksmus.

1. Pirma, jums reikia išjungti automatiškai pridedamą parašo funkciją "Outlook". Prašome spragtelėti filė > Nustatymai atidaryti Outlook parinktys langas.

2. Viduje Outlook parinktys langas pasirinkite paštas kairiojoje srityje, tada spustelėkite mygtuką Parašai mygtukas Sukurti pranešimus skyrius. Žr. Ekrano kopiją:

3. Viduje Parašai ir raštinės reikmenys Dialogo lange eikite į Pasirinkite numatytąjį parašą skyriuje po El. Pašto parašas skirtuko lape pasirinkite el. pašto paskyrą Elektroninio pašto paskyra išskleidžiamajame sąraše ir tada pasirinkite (Nėra) nuo Nauji pranešimai ir Atsakymai / į priekį išskleidžiamieji sąrašai. Pakartokite šiuos veiksmus, kol nustatysite visas el. Pašto paskyras (Nėra). Tada spustelėkite mygtuką OK mygtuką.

pastabos: Taip pat galite sukurti reikalingus parašus Parašai ir raštinės reikmenys dialogo langas.

4. Spustelėkite OK mygtukas, kai jis grąžina Outlook parinktys langas.

5. Paspauskite Kitas + F11 raktus atidaryti "Microsoft Visual Basic for Applications" langas.

6. Viduje "Microsoft Visual Basic for Applications" langas, dukart spustelėkite ThisOutlookSession kairiojoje srityje atidarykite langą "Kodas", o kopiją žemiau VBA kodo į langą. Žr. Ekrano kopiją:

VBA kodas: automatiškai keičia parašą, pagrįstą "Outlook" gavėjais

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updated by ExtendOffice 20180814
Dim xMailItem As MailItem
Dim xRecipients As Recipients
Dim xRecipient As Recipient
Dim xRcpAddress As String
Dim xSignatureFile, xSignaturePath As String
Dim xFSO As Scripting.FileSystemObject
Dim xTextStream As Scripting.TextStream
Dim xSignature As String
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
If Item.Class = olMail Then
    Set xMailItem = Item
    Set xRecipients = xMailItem.Recipients
End If
xSignaturePath = CreateObject("WScript.Shell").SpecialFolders(5) + "\Microsoft\Signatures\"
If xRecipients.Count = 1 Then
    Set xRecipient = xRecipients.Item(1)
    xRcpAddress = xRecipient.Address
    Select Case xRcpAddress
        Case "Email Address 1"
            xSignatureFile = xSignaturePath & "aaa.htm"
        Case "Email Address 2", "Email Address 3"
            xSignatureFile = xSignaturePath & "bbb.htm"
        Case "Email Address 4"
            xSignatureFile = xSignaturePath & "ccc.htm"
    End Select
End If
Set xTextStream = xFSO.OpenTextFile(xSignatureFile)
xSignature = xTextStream.ReadAll
xMailItem.HTMLBody = xMailItem.HTMLBody & "<HTML><BODY><br>" & xSignature & "</br></HTML></BODY>"
End Sub

pastabos:

1. Į VBA kodą prašome pakeisti "Elektroninio pašto adresas 1 / 2 / 3 / 4"Su tam tikrais gavėjų el. Pašto adresais.

2. "aaa.htm"bbb.htm"Ir"ccc.htm"yra nurodytas parašas, kurį išsiųsite atitinkamiems gavėjams.

3. Šiuo atveju parašas "aaa"Bus išsiųstas"El. Pašto adresas 1", parašas "BBB"Bus išsiųstas"El. Pašto adresas 2"Ir"El. Pašto adresas 3"ir "El. Pašto adresas 4"Gaus el. Laišką, įterptą pasirašant"ccc" Prašome jas pakeisti pagal savo poreikius.

7. Tada spustelėkite Įrankiai > Nuorodos eiti į Nuorodos-projektas dialogo langas. Dialogo lange patikrinkite Microsoft skriptų vykdymo laikas parinktį, tada spustelėkite OK mygtukas, žiūrėkite ekrano kopiją:

8. Paspauskite Kitas + Q raktus uždaryti "Microsoft Visual Basic for Applications" langas.

Nuo šiol, sukūrus el. Laišką ir paspaudus mygtuką Siųsti, atitinkamas parašas bus automatiškai įterptas el. Pašto įstaigos pabaigoje, atsižvelgiant į gavėjo el. Pašto adresą laukelyje Kam.

Jei norite įterpti laiko žymę kaip parašą į el. Laiško kūną sukūrę / atsakydami / persiųsdami naują el. Laišką "Outlook", galėsite įjungti Pridėti datos parašą, kai kuriate naują, atsakymą ir persiunčia el. Laišką pasirinkimas Kutools for Outlook tai pasiekti. Žr. Ekrano kopiją:

Kutools for Outlook: su daugiau nei 40 patogiais "Outlook" papildinimais, galite nemokamai išbandyti be apribojimų per 45 dienas. Atsisiųskite ir nemokamai bandykite dabar!



Kutools for Outlook

Daugiau nei 100 papildomos funkcijos „Outlook 2010“, „2013“, „2016“, „2019“ ir „365“

ekrano fotografavimas „kutools“, skirtas „201812“ banerio perspektyvai

Daugiau funkcijų | Nemokamas atsisiuntimas | Tik šimtai funkcijų - $ 39.00

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Devansh · 10 days ago
    How would this behave if there are multiple recipients?