როგორ გავაფართოვოთ ყველა საკონტაქტო ჯგუფი ჯგუფურად "To" ველში Outlook ელფოსტის შედგენისას

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

ჩვეულებრივ, კონტაქტის ჯგუფის გასაფართოებლად ველში „To“ შეგიძლიათ დააჭიროთ „+“ ხატულას ჯგუფის სახელის წინ. თუმცა, ამ გზით, თუ "To" ველში ბევრი საკონტაქტო ჯგუფია და თუ გსურთ მათი გაფართოება, ეს ცოტა დამღლელია. ამრიგად, აქ ჩვენ გაგიზიარებთ გზას, რათა სწრაფად გააფართოვოთ ყველა ჯგუფი ველში "To" უბრალოდ დაწკაპუნებით.

ჯგუფური გაფართოება ყველა საკონტაქტო ჯგუფის ველში "To".

1. პირველ რიგში, გაუშვით თქვენი Outlook პროგრამა.
2. შემდეგ Outlook-ის მთავარ ფანჯარაში დააჭირეთ ღილაკს "Alt + F11".
3. შემდეგ თქვენ მოხვდებით VBA რედაქტორის ეკრანზე, რომელშიც უნდა შეხვიდეთ გამოუყენებელ მოდულზე ან უბრალოდ ჩასვათ ახალი.
4. ამის შემდეგ, დააკოპირეთ შემდეგი VBA კოდი ამ მოდულში.

Sub ExpandAllContactGroupsInToField()
    Dim objMail As Outlook.MailItem
    Dim objRecipients As Outlook.Recipients
    Dim bContactGroupFound As Boolean
    Dim i As Long
 
    'Get the current mail
    Set objMail = ActiveInspector.CurrentItem
    bContactGroupFound = True
 
    Do While bContactGroupFound = True
       Set objRecipients = objMail.Recipients
       bContactGroupFound = False
 
       'Expand all contact groups in "To" field
       For i = objRecipients.Count To 1 Step -1
           If objRecipients(i).Type = olTo Then
              If objRecipients(i).AddressEntry.DisplayType <> olUser Then
                 For n = 1 To objRecipients(i).AddressEntry.Members.Count
                     If objRecipients(i).AddressEntry.Members.Item(n).DisplayType = olUser Then
                        objMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Address)
                     Else
                        objMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Name)
                        bContactGroupFound = True
                     End If
                 Next
                 objRecipients(i).Delete
              End If
          End If
      Next i
      objRecipients.ResolveAll
    Loop
End Sub

5. ამის შემდეგ, თქვენ შეგიძლიათ გახვიდეთ მიმდინარე ფანჯრიდან მხოლოდ ზედა მარჯვენა კუთხეში ჯვრის ხატზე დაჭერით.
6. მოგვიანებით თქვენ უნდა დაამატოთ ეს VBA პროექტი შეტყობინებების ფანჯარაში სწრაფი წვდომის ინსტრუმენტთა პანელში.

• პირველ რიგში, შექმენით ახალი ფოსტა.
• შემდეგ დააჭირეთ ქვედა ისარს ზედა მარცხენა კუთხეში.
• შემდეგ აირჩიეთ "მეტი ბრძანებები".
• ახალ დიალოგურ ფანჯარაში შეგიძლიათ გადადგათ ქვემოთ მოცემულ სურათზე ნაჩვენები ნაბიჯები სწრაფი წვდომის ხელსაწყოთა ზოლში მაკროს დამატების დასასრულებლად.

7. საბოლოოდ, შეგიძლიათ გადაიღოთ კადრი:

• დასაწყისისთვის, შექმენით და დაწერეთ ახალი ელ.წერილი, როგორც ყოველთვის.
• შემდეგ დაამატეთ რამდენიმე საკონტაქტო ჯგუფი "To" ველში.
• ამის შემდეგ შეგიძლიათ დააჭიროთ მაკრო ღილაკს სწრაფი წვდომის ინსტრუმენტთა პანელში.
• ერთდროულად გაფართოვდება ყველა საკონტაქტო ჯგუფი, როგორც შემდეგი სურათი:

გადაარჩინე შენი Outlook მონაცემები დროულად

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

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

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