Padoms. Citas valodas ir Google tulkotas. Jūs varat apmeklēt English šīs saites versiju.
Pieslēgties
x
or
x
x
Reģistrēties
x

or

Kā automātiski mainīt parakstu, pamatojoties uz adresātiem programmā Outlook?

Pēc noklusējuma programmā Outlook ir iebūvēta funkcija, kas ļauj lietotājiem automātiski mainīt parakstu, nosūtot e-pastus, izmantojot dažādus e-pasta kontus. Bet pēc tam šeit es parādīšu veidu, kā automātiski mainīt parakstu, pamatojoties uz dažādiem adresātiem Outlook laukā.

Mainīt parakstu, pamatojoties uz adresātiem, automātiski ar VBA kodu


Vienmēr atbildiet e-pastu ar noklusējuma e-pasta kontu programmā Outlook:

Ja jūs vēlaties vienmēr atbildēt uz e - pastu ar noklusēto e - pasta kontu savā Outlook, Vienmēr atbildiet ar noklusējuma kontu iespēja Kutools for Outlook dos jums labu. Skatīt ekrānuzņēmumu:

Kutools for Outlook: ar vairāk nekā 40 ērtiem Outlook pievienojumprogrammām, bez maksas var izmēģināt bez ierobežojumiem 45 dienās. Lejupielādēt un bezmaksas izmēģinājuma versija tūlīt!


Mainīt parakstu, pamatojoties uz adresātiem, automātiski ar VBA kodu

Lūdzu, ievērojiet tālāk norādītās darbības, lai nosūtītu e-pastus programmā Outlook, lai attiecīgajiem saņēmējiem lietotu dažādus parakstus.

1. Pirmkārt, jums ir jāatspējo automātiski pievienotā paraksta funkcija programmā Outlook. Lūdzu, noklikšķiniet fileja > opcijas lai atvērtu Outlook opcijas logs.

2. Iekš Outlook opcijas logu, izvēlieties pasts kreisajā rūtī un pēc tam noklikšķiniet uz Paraksti pogu Sastādīt ziņojumus sadaļa. Skatīt ekrānuzņēmumu:

3. Iekš Paraksti un kancelejas preces dialoglodziņš, dodieties uz Izvēlieties noklusējuma parakstu sadaļā E-pasta paraksts cilni, izvēlieties e-pasta kontu E-pasta konts nolaižamo sarakstu un pēc tam izvēlieties (Nav) no Jaunas ziņas un Atbildes / uz priekšu nolaižamajos sarakstos. Atkārtojiet šīs darbības, kamēr visi e-pasta konti ir iestatīti uz (Nav). Pēc tam noklikšķiniet uz OK poga.

Piezīmes: Jūs varat arī izveidot nepieciešamos parakstus šajā Paraksti un kancelejas preces dialoglodziņš.

4. Noklikšķiniet OK pogu, kad tas atgriežas Outlook opcijas logs.

5. Nospiediet cits + F11 taustiņi, lai atvērtu Microsoft Visual Basic for Applications logs.

6. Iekš Microsoft Visual Basic for Applications logu, veiciet dubultklikšķi ThisOutlookSession kreisajā rūtī, lai atvērtu kodu logu, un kopiju zem VBA koda logā. Skatīt ekrānuzņēmumu:

VBA kods: automātiski mainīt parakstu, pamatojoties uz saņēmējiem programmā Outlook

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

Piezīmes:

1. VBA kodā, lūdzu, nomainiet "E-pasta adrese 1 / 2 / 3 / 4"Ar dažām saņēmēju e-pasta adresēm.

2. "aaa.htm""bbb.htm"Un"ccc.htm"ir norādītais paraksts, kuru jūs nosūtīsit attiecīgajiem adresātiem.

3. Šajā gadījumā paraksts "aaa"Tiks nosūtīts uz"E-pasta adrese 1", Paraksts"bbb"Tiks nosūtīts uz"E-pasta adrese 2"Un"E-pasta adrese 3", un "E-pasta adrese 4"Saņems e-pastu, kas iegults ar parakstu"ccc" Lūdzu, mainiet tos atkarībā no jūsu vajadzībām.

7. Pēc tam noklikšķiniet uz darbarīki > Atsauces doties uz Atsauces-projekts dialoglodziņš. Dialogā, lūdzu, pārbaudiet Microsoft skriptu izpildes laiks un pēc tam noklikšķiniet uz OK poga, skatiet ekrānuzņēmumu:

8. Nospiediet cits + Q taustiņi, lai aizvērtu Microsoft Visual Basic for Applications logs.

No šī brīža, izveidojot e-pastu un nospiežot pogu Nosūtīt, atbilstošais paraksts tiks automātiski ievietots e-pasta iestādes galā, pamatojoties uz saņēmēja e-pasta adresi laukā Kam.

Ja vēlaties, lai e-pasta iestādē tiktu ievietots laikspiedols kā paraksts, izveidojot / atbildot / pārsūtot jaunu e-pastu, varat iespējot Pievienojiet datuma parakstu, kad izveidojat jaunu, atbildes un nosūtīt e-pastu iespēja Kutools for Outlook to sasniegt. Skatīt ekrānuzņēmumu:

Kutools for Outlook: ar vairāk nekā 40 ērtiem Outlook pievienojumprogrammām, bez maksas var izmēģināt bez ierobežojumiem 45 dienās. Lejupielādēt un bezmaksas izmēģinājuma versija tūlīt!



Kutools for Outlook

Vairāk nekā 100 papildu funkcijas Outlook 2010, 2013, 2016, 2019 un 365

ekrāns nošāva kutools, kas paredzēts maziem banneri 201812

Vairāk funkciju | Bezmaksas lejupielāde | Tikai $ 39.00 simtiem funkciju

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.

Be the first to comment.