Kā automātiski izvēlēties dažādus parakstus dažādiem adresātiem jūsu Outlook e -pastos

Daudzi lietotāji cer, ka Outlook var automātiski atlasīt dažādus parakstus dažādiem adresātiem e -pasta ziņojumos. Tādējādi šis raksts iemācīs to realizēt, izmantojot VBA.

Pēc noklusējuma Outlook tikai ļauj automātiski ievietot atšķirīgo parakstu jaunos e -pasta ziņojumos, atbildēs un pārsūtījumos. Tomēr daudzi cilvēki pat cer, ka Outlook var automātiski atlasīt dažādus parakstus dažādiem adresātiem. Diemžēl Outlook nenodrošina tik tiešu funkciju. Tādējādi jums ir jāmeklē citi veidi, piemēram, jebkuri trešo pušu pievienojumprogrammas vai VBA kods. Turpmāk mēs jums atklāsim VBA koda gabalu, kas var palīdzēt jums to saprast kā brīze.

Automātiski atlasiet dažādus parakstus dažādiem adresātiem

1. Lai sāktu, jums vajadzētu palaist savu Outlook programmu.
2. Tad labāk atspējojiet paraksta automātiskās ievietošanas funkciju.

• Pirmkārt, dodieties uz izvēlni “Fails” un atlasiet “Opcijas”.
• Logā “Outlook opcijas” pārslēdzieties uz cilni “Pasts”.
• Pēc tam atrodiet un noklikšķiniet uz pogas “Paraksti”.
• Tālāk uznirstošajā dialoglodziņā iestatiet “(nav)” gan “Jaunie ziņojumi”, gan “Atbildes/pārsūtīšana”.
• Pēc tam noklikšķiniet uz virknes “Labi”, lai saglabātu izmaiņas.

3. Pēc tam varat atgriezties Outlook galvenajā logā un nospiest taustiņus “Alt + F11”.
4. Tālāk logā “Microsoft Visual Basic for Applications” atrodiet un atveriet projektu “ThisOutlookSession”.
5. Pēc tam nokopējiet un ielīmējiet šo VBA kodu šajā 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. Pēc tam jums jāparaksta šis kods.
7. Vēlāk mainiet Outlook makro iestatījumus, lai atļautu parakstītus makro.
8. Turpmāk katru reizi, kad noklikšķināsit uz pogas Sūtīt, lai nosūtītu e -pastu, Outlook identificēs adresātu un automātiski ievietos atbilstošo parakstu e -pasta pamatteksta beigās.

Ienākošajos e -pastos meklējiet slēptos ļaunprātīgos makro

Mūsdienās vīrusi ir kļuvuši ļoti nobrieduši un spēcīgi. E -pastā tās vienmēr tiek maskētas kā nekaitīgas lietas. Tāpēc tagad, kad plānojat izmantot makro programmā Outlook, jums vajadzētu paaugstināt modrību pret ļaunprātīgajiem makro. Pretējā gadījumā jūsu PST dati tiks pakļauti riskam. Ja PST kļūst bojāts, jūs centīsities darīt visu iespējamo atgūt PST dati. Šajā gadījumā ieteicams izmantot spēcīgu rīku, piemēram, DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp sql labot un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar