Mnogi korisnici se nadaju da Outlook može automatski odabrati različite potpise za različite primaoce u e-porukama. Stoga će ovaj članak naučiti kako to realizirati putem VBA.
Outlook vam podrazumevano dozvoljava samo automatsko umetanje promenljivog potpisa u nove e-poruke, odgovore i prosleđivanje. Međutim, mnogi se ljudi čak nadaju da Outlook može automatski odabrati različite potpise za različite primaoce. Nažalost, Outlook ne pruža takvu direktnu funkciju. Stoga morate tražiti druge načine, kao što su dodaci treće strane ili VBA kod. Sada ćemo vam u nastavku otkriti dio VBA koda koji vam može pomoći da ga shvatite kao povjetarac.
Automatski odabir različitih potpisa za različite primaoce
- Za početak, trebali biste pokrenuti svoj Outlook program.
- Onda je bolje da onemogućite funkciju automatskog umetanja potpisa.
- Prvo idite na meni „Datoteka“ i izaberite „Opcije“.
- U prozoru „Opcije Outlooka“ prebacite se na karticu „Pošta“.
- Zatim pronađite i kliknite na dugme "Potpisi".
- Zatim u iskačućem dijaloškom okviru postavite “(ništa)” u oba polja “Nove poruke” i “Odgovori/prosljeđivanje”.
- Nakon toga, kliknite niz "OK" da biste spremili promjene.
- Nakon toga, možete se vratiti u glavni prozor programa Outlook i pritisnuti tipke “Alt + F11”.
- Zatim, u prozoru „Microsoft Visual Basic za aplikacije“, pronađite i otvorite projekat „ThisOutlookSession“.
- Nakon toga, kopirajte i zalijepite sljedeći VBA kod u ovaj projekat.
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
- Nakon toga, trebali biste potpisati ovaj kod.
- Kasnije promijenite postavke makroa za Outlook da biste dozvolili potpisane makroe.
- Od sada, svaki put kada kliknete na dugme „Pošalji“ da biste poslali e-poštu, Outlook će identifikovati primaoca i automatski umetnuti odgovarajući potpis na kraju tela e-pošte.
Pazite na skrivene zlonamjerne makroe u dolaznim porukama e-pošte
Danas su virusi postali veoma zreli i moćni. U e-mailovima ih uvijek maskiraju kao bezazlene stvari. Stoga, sada kada namjeravate koristiti makroe u Outlooku, trebali biste podići budnost protiv zlonamjernih makroa. U suprotnom, vaši PST podaci će biti u opasnosti. Ako se PST pokvari, potrudit ćete se oporaviti PST podaci. U ovom slučaju, predlaže se primjena moćnog alata, kao što je DataNumen Outlook Repair.
Uvod za autora:
Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql fix i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com