Kaip automatiškai pasirinkti skirtingus parašus skirtingiems gavėjams „Outlook“ el. laiškuose

Daugelis vartotojų tikisi, kad „Outlook“ gali automatiškai pasirinkti skirtingus parašus skirtingiems el. laiškų gavėjams. Taigi, šis straipsnis išmokys tai realizuoti naudojant VBA.

Pagal numatytuosius nustatymus „Outlook“ leidžia tik automatiškai įterpti skirtingą parašą į naujus el. laiškus, atsakymus ir persiuntimus. Tačiau daugelis žmonių netgi tikisi, kad „Outlook“ gali automatiškai pasirinkti skirtingus parašus skirtingiems gavėjams. Deja, „Outlook“ nesuteikia tokios tiesioginės funkcijos. Taigi, jūs turite ieškoti kitų būdų, pavyzdžiui, bet kokių trečiųjų šalių priedų arba VBA kodo. Toliau mes jums pateiksime VBA kodo fragmentą, kuris gali padėti jums tai suprasti kaip vėjas.

Automatiškai pasirinkite skirtingus parašus skirtingiems gavėjams

1. Norėdami pradėti, turėtumėte paleisti „Outlook“ programą.
2. Tada geriau išjungti automatinio parašo įterpimo funkciją.

• Pirmiausia eikite į meniu „Failas“ ir pasirinkite „Parinktys“.
• Lange „Outlook parinktys“ pereikite prie skirtuko „Paštas“.
• Tada suraskite ir spustelėkite mygtuką „Parašai“.
• Tada iššokančiajame dialogo lange nustatykite „(nėra)“ ir „Nauji pranešimai“, ir „Atsakymai / persiuntimai“.
• Po to spustelėkite „Gerai“ seriją, kad išsaugotumėte pakeitimus.

3. Po to galite grįžti į pagrindinį „Outlook“ langą ir paspausti „Alt + F11“ klavišus.
4. Tada lange „Microsoft Visual Basic for Applications“ raskite ir atidarykite projektą „ThisOutlookSession“.
5. Tada nukopijuokite ir įklijuokite šį VBA kodą į šį projektą.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objRecipients As Outlook.Recipients
    Dim objRecipient As Outlook.recipient
    Dim strRecipientAddress As String
    Dim strSignatureFile As String
    Dim objFileSystem As Object
    Dim objTextStream As Object
    Dim strSignature As String
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       Set objRecipients = objMail.Recipients
    End If
 
    'Select different signature files based on recipients
    'You can change the conditions as per you actual needs
    If objRecipients.Count = 1 Then
       Set objRecipient = objRecipients.Item(1)
       strRecipientAddress = objRecipient.Address
       If strRecipientAddress = "mandy@datanumen.com" Then
          strSignatureFile = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Signatures\Test John Smith.htm"
       ElseIf strRecipientAddress = "anne@datanumen.com" Or strRecipientAddress = "tony@datanumen.com" Then
          strSignatureFile = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Signatures\Johnny.htm"
       ElseIf strRecipientAddress = "abby@datanumen.com" Then
          strSignatureFile = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Signatures\New John Smith.htm"
       End If
    Else
       strSignatureFile = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Signatures\John Smith.htm"
    End If
 
    'Read the specific signature file
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    Set objTextStream = objFileSystem.OpenTextFile(strSignatureFile)
    strSignature = objTextStream.ReadAll
 
    'Insert the signature to this email
    objMail.HTMLBody = objMail.HTMLBody & "<HTML><BODY><br>" & strSignature & "</br></HTML></BODY>"
End Sub

6. Po to turėtumėte pasirašyti šį kodą.
7. Vėliau pakeiskite „Outlook“ makrokomandos nustatymus, kad leistų pasirašytas makrokomandas.
8. Nuo šiol kiekvieną kartą spustelėjus mygtuką „Siųsti“, kad išsiųstumėte el. laišką, „Outlook“ identifikuos gavėją ir automatiškai įterps atitinkamą parašą el. laiško pabaigoje.

Gaunamuose el. laiškuose ieškokite paslėptų kenkėjiškų makrokomandų

Šiais laikais virusai tapo labai subrendę ir galingi. El. laiške jie visada juos užmaskuoja kaip nekenksmingus dalykus. Todėl dabar, kai ketinate naudoti makrokomandas programoje „Outlook“, turėtumėte būti budrūs nuo kenkėjiškų makrokomandų. Priešingu atveju jūsų PST duomenims kils pavojus. Jei PST bus sugadintas, stengsitės tai padaryti susigrąžinti PST duomenis. Tokiu atveju siūloma naudoti stiprią priemonę, pvz DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sql taisymas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com