Mange brukere håper at Outlook automatisk kan velge de forskjellige signaturene for forskjellige mottakere i e-postene. Derfor vil denne artikkelen lære hvordan du kan realisere det via VBA.
Som standard lar Outlook deg bare automatisk sette inn den varierende signaturen i nye e-poster, svar og videresendinger. Imidlertid håper mange til og med at Outlook automatisk kan velge de forskjellige signaturene for forskjellige mottakere. Dessverre gir ikke Outlook en slik direkte funksjon. Derfor må du søke andre måter, for eksempel tredjeparts tillegg eller VBA-kode. Nå, i det følgende, vil vi avsløre et stykke VBA-kode for deg, som kan hjelpe deg å realisere det som en lek.

Velg automatisk forskjellige signaturer for forskjellige mottakere
- Til å begynne med bør du starte Outlook-programmet ditt.
- Da bør du deaktivere funksjonen for automatisk innsetting av signatur.
- Gå først til "Fil"-menyen og velg "Alternativer".
- I "Outlook-alternativer"-vinduet bytter du til fanen "Mail".
- Finn deretter og klikk på "Signaturer" -knappen.
- Neste i popup-dialogboksen, sett "(ingen)" i både "Nye meldinger" og "Svar/videresendinger".
- Etter det klikker du på en rekke "OK" for å lagre endringene.
- Etter det kan du gå tilbake til hovedvinduet i Outlook og trykke "Alt + F11" -tastene.
- Deretter, i "Microsoft Visual Basic for Applications"-vinduet, finn og åpne "ThisOutlookSession" -prosjektet.
- Deretter kopierer og limer du inn følgende VBA-kode i dette prosjektet.
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
- Etter det bør du signere denne koden.
- Endre senere Outlook-makroinnstillingene for å tillate signerte makroer.
- Fra nå av, hver gang du klikker på "Send"-knappen for å sende en e-post, vil Outlook identifisere mottakeren og automatisk sette inn den tilsvarende signaturen på slutten av e-postteksten.
Se opp for skjulte ondsinnede makroer i innkommende e-poster
I dag har virus blitt veldig modne og kraftige. De skjuler dem alltid som ufarlige ting i e-posten. Derfor, nå som du har tenkt å bruke makroer i Outlook, bør du øke årvåkenhet mot de ondsinnede makroene. Ellers vil PST-dataene dine bli holdt i fare. Hvis PST blir korrupt, vil du prøve ditt beste gjenopprette PST data. I dette tilfellet foreslås det å bruke et kraftig verktøy, for eksempel DataNumen Outlook Repair.
Forfatterintroduksjon:
Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert sql fikse og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med

