Ինչպես ինքնաբերաբար ընտրել տարբեր ստորագրություններ տարբեր ստացողների համար ձեր Outlook նամակներում

Շատ օգտատերեր հույս ունեն, որ Outlook-ը կարող է ավտոմատ կերպով ընտրել տարբեր ստորագրություններ տարբեր հասցեատերերի համար նամակներում: Այսպիսով, այս հոդվածը կսովորեցնի, թե ինչպես դա իրականացնել VBA-ի միջոցով:

Լռելյայնորեն, Outlook-ը թույլ է տալիս միայն ավտոմատ կերպով տեղադրել տարբեր ստորագրություններ նոր էլ. նամակների, պատասխանների և փոխանցման մեջ: Այնուամենայնիվ, շատերը նույնիսկ հույս ունեն, որ Outlook-ը կարող է ավտոմատ կերպով ընտրել տարբեր ստորագրություններ տարբեր հասցեատերերի համար: Ցավոք, Outlook-ը նման ուղղակի հնարավորություն չի տալիս: Այսպիսով, դուք պետք է փնտրեք այլ ուղիներ, ինչպիսիք են ցանկացած երրորդ կողմի հավելումներ կամ VBA կոդ: Այժմ, հաջորդիվ, մենք ձեզ կներկայացնենք VBA կոդի մի կտոր, որը կարող է օգնել ձեզ գիտակցել այն, ինչպես քամու պես:

Ավտոմատ ընտրեք տարբեր ստորագրություններ տարբեր ստացողների համար

1. Սկսելու համար դուք պետք է գործարկեք ձեր Outlook ծրագիրը։
2. Հետո ավելի լավ է անջատեք ստորագրության ավտոմատ տեղադրման գործառույթը:

• Նախ, գնացեք «Ֆայլ» ընտրացանկը և ընտրեք «Ընտրանքներ»:
• «Outlook Ընտրանքներ» պատուհանում անցեք «Փոստ» ներդիրին:
• Այնուհետև գտեք և սեղմեք «Ստորագրություններ» կոճակը:
• Հաջորդը բացվող երկխոսության վանդակում դրեք «(ոչ մեկը)» և «Նոր հաղորդագրություններ» և «Պատասխաններ/Առաջարկներ»:
• Դրանից հետո սեղմեք մի շարք «OK»՝ փոփոխությունները պահպանելու համար:

3. Դրանից հետո կարող եք վերադառնալ Outlook-ի հիմնական պատուհան և սեղմել «Alt + F11» ստեղները:
4. Հաջորդը, «Microsoft Visual Basic հավելվածների համար» պատուհանում գտեք և բացեք «ThisOutlookSession» նախագիծը:
5. Հետևաբար, պատճենեք և տեղադրեք հետևյալ VBA կոդը այս նախագծում:

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. Դրանից հետո դուք պետք է ստորագրեք այս կոդը:
7. Ավելի ուշ փոխեք ձեր Outlook մակրո պարամետրերը ՝ ստորագրված մակրոները թույլ տալու համար:
8. Այսուհետ, ամեն անգամ, երբ սեղմում եք «Ուղարկել» կոճակը՝ նամակ ուղարկելու համար, Outlook-ը կբացահայտի ստացողին և ավտոմատ կերպով կտեղադրի համապատասխան ստորագրությունը էլփոստի մարմնի վերջում:

Նայեք թաքնված վնասակար մակրոներին մուտքային նամակներում

Մեր օրերում վիրուսները դարձել են շատ հասուն և հզոր։ Նրանք միշտ քողարկում են դրանք որպես անմեղ բաներ էլ. փոստում: Հետևաբար, այժմ, երբ դուք մտադիր եք օգտագործել մակրոները Outlook-ում, դուք պետք է բարձրացնեք ձեր զգոնությունը վնասակար մակրոների դեմ: Հակառակ դեպքում, ձեր PST տվյալները կպահվեն ռիսկի տակ: Եթե ​​PST-ը կոռումպացված է, դուք ամեն ինչ կփորձեք դա անել վերականգնել PST- ն տվյալները։ Այս դեպքում առաջարկվում է կիրառել այնպիսի հզոր գործիք, ինչպիսին է DataNumen Outlook Repair.

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում sql ֆիքս և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com