Monet käyttäjät toivovat, että Outlook voi automaattisesti valita eri allekirjoitukset eri vastaanottajille sähköposteissa. Siten tämä artikkeli opettaa kuinka toteuttaa se VBA: n kautta.
Oletuksena Outlook sallii vain lisätä vaihtelevan allekirjoituksen automaattisesti uusiin sähköposteihin, vastauksiin ja edelleenlähetyksiin. Monet ihmiset kuitenkin toivovat jopa, että Outlook voi automaattisesti valita eri allekirjoitukset eri vastaanottajille. Valitettavasti Outlook ei tarjoa niin suoraa ominaisuutta. Siksi sinun on etsittävä muita tapoja, kuten minkä tahansa kolmannen osapuolen lisäosat tai VBA-koodi. Seuraavassa paljastamme sinulle osan VBA-koodista, mikä voi auttaa sinua ymmärtämään sen kuin tuulta.

Valitse automaattisesti eri allekirjoitukset eri vastaanottajille
- Kohteeseen starKäynnistä Outlook-ohjelma.
- Sitten sinun on parempi poistaa automaattisen lisäyksen allekirjoitusominaisuus käytöstä.
- Ensinnäkin, siirry "File" -valikkoon ja valitse "Options".
- Vaihda Outlook-asetukset-ikkunassa Mail-välilehteen.
- Etsi ja napsauta ”Allekirjoitukset” -painiketta.
- Aseta seuraavaksi ponnahdusikkunassa ”(ei mitään)” sekä ”Uudet viestit” - ja “Vastaukset / välitykset” -kohtiin.
- Sen jälkeen napsauta “OK” -sarjaa tallentaaksesi muutokset.
- Sen jälkeen voit palata Outlookin pääikkunaan ja painaa “Alt + F11” -näppäimiä.
- Etsi ja avaa seuraavaksi Microsoft Visual Basic for Applications -ikkunassa ThisOutlookSession-projekti.
- Kopioi ja liitä seuraava VBA-koodi tähän projektiin.
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
- Sen jälkeen sinun tulee allekirjoittaa tämä koodi.
- Muuta myöhemmin Outlook-makroasetuksia sallimaan allekirjoitetut makrot.
- Tästä lähtien joka kerta kun napsautat Lähetä-painiketta lähettääksesi sähköpostia, Outlook tunnistaa vastaanottajan ja lisää vastaavan allekirjoituksen sähköpostirungon loppuun.
Etsi saapuvien sähköpostien piilotettuja haitallisia makroja
Nykyään viruksista on tullut hyvin kypsiä ja voimakkaita. He peittävät heidät aina vaarattomiksi asioiksi sähköpostissa. Siksi nyt, kun aiot käyttää makroja Outlookissa, sinun on lisättävä valppautta haitallisia makroja vastaan. Muussa tapauksessa PST-tietosi pysyvät vaarassa. Jos PST vioittuu, yrität parhaasi mukaan palauttaa PST tiedot. Tässä tapauksessa on suositeltavaa käyttää voimakasta työkalua, kuten DataNumen Outlook Repair.
Tekijän esittely:
Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien sql-korjaus ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com

