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
- Uz start ar, jums vajadzētu palaist savu Outlook programmu.
- 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.
- Pēc tam varat atgriezties Outlook galvenajā logā un nospiest taustiņus “Alt + F11”.
- Tālāk logā “Microsoft Visual Basic for Applications” atrodiet un atveriet projektu “ThisOutlookSession”.
- 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 Kā virkne Dim strSignatureFile Kā virkne Dim objFileSystem Objektīva objekts String Ja TypeOf vienums ir MailItem, tad iestatiet objMail = Item Set objRecipients = objMail.Recipients End If 'Atlasiet dažādus paraksta failus, pamatojoties uz saņēmējiem' Jūs varat mainīt nosacījumus atbilstoši savām faktiskajām vajadzībām If objRecipients.Count = 1 Pēc tam Iestatiet objRecipient = objRecipients Vienums (1) strRecipientAddress = objRecipient.Address Ja strRecipientAddress = "mandy@datanumen.com "Tad strSignatureFile = CStr (Environ (" USERPROFILE ")) &" \ AppData \ Roaming \ Microsoft \ Signatures \ Test John Smith.htm "ElseIf strRecipientAddress =" anne@datanumen.com "Vai strRecipientAddress =" tony@datanumen.com "Tad strSignatureFile = CStr (Environ (" USERPROFILE ")) &" \ AppData \ Roaming \ Microsoft \ Signatures \ Johnny.htm "ElseIf strRecipientAddress =" abby@datanumen.com "Tad strSignatureFile = CStr (Environ (" USERPROFILE ")) &" \ AppData \ Roaming \ Microsoft \ Signatures \ New John Smith.htm "End if Else strSignatureFile = CStr (Environ (" USERPROFILE ")) &" \ AppData \ Viesabonēšana \ Microsoft \ Paraksti \ John Smith.htm "Beigt, ja" Izlasiet konkrēto paraksta failu Set objFileSystem = CreateObject ("Scripting.FileSystemObject") Iestatīt objTextStream = objFileSystem.OpenTextFile (strSignatureFile) strSignature = objTeadAtrakstsStream.Režisors šis e -pasts objMail.HTMLBody = objMail.HTMLBody & " "& strParaksts &" "Beigu apakš
- Pēc tam jums jāparaksta šis kods.
- Vēlāk mainiet Outlook makro iestatījumus, lai atļautu parakstītus makro.
- 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