როგორ ავტომატურად შეარჩიოთ სხვადასხვა ხელმოწერები სხვადასხვა მიმღებებისთვის თქვენს Outlook ელ.წერილებში

ბევრი მომხმარებელი იმედოვნებს, რომ Outlook-ს შეუძლია ავტომატურად შეარჩიოს სხვადასხვა ხელმოწერები სხვადასხვა მიმღებისთვის ელფოსტაში. ამრიგად, ეს სტატია გასწავლით თუ როგორ უნდა გააცნობიეროთ იგი VBA-ს საშუალებით.

ნაგულისხმევად, Outlook მხოლოდ საშუალებას გაძლევთ ავტომატურად ჩასვათ განსხვავებული ხელმოწერა ახალ წერილებში, პასუხებში და გაგზავნაში. თუმცა, ბევრს იმედი აქვს, რომ Outlook-ს შეუძლია ავტომატურად შეარჩიოს სხვადასხვა ხელმოწერები სხვადასხვა მიმღებისთვის. სამწუხაროდ, Outlook არ იძლევა ასეთ პირდაპირ ფუნქციას. ამრიგად, თქვენ უნდა მოძებნოთ სხვა გზები, როგორიცაა მესამე მხარის დანამატი ან VBA კოდი. ახლა, შემდეგში, ჩვენ წარმოგიდგენთ VBA კოდის ნაწილს, რომელიც დაგეხმარებათ გააცნობიეროთ ის, როგორც ნიავი.

ავტომატური არჩევა სხვადასხვა ხელმოწერები სხვადასხვა მიმღებებისთვის

1. დასაწყებად, თქვენ უნდა გაუშვათ თქვენი Outlook პროგრამა.
2. მაშინ უმჯობესია გამორთოთ ხელმოწერის ავტომატური ჩასმის ფუნქცია.

• პირველ რიგში, გადადით მენიუში "ფაილი" და აირჩიეთ "ოფციები".
• "Outlook Options" ფანჯარაში გადადით "ფოსტა" ჩანართზე.
• შემდეგ იპოვნეთ და დააჭირეთ ღილაკს "ხელმოწერები".
• შემდეგ ამომხტარ დიალოგურ ფანჯარაში დააყენეთ „(არცერთი)“ როგორც „ახალი შეტყობინებები“ ასევე „პასუხები/გადაგზავნა“.
• ამის შემდეგ დააჭირეთ ღილაკს "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.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის sql შესწორება და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად