როგორ სწრაფად შევქმნათ საკონტაქტო ჯგუფი ელფოსტის მიმღებთა სიიდან Outlook VBA-ით

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

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

შექმენით საკონტაქტო ჯგუფი ელ.ფოსტის მიმღებთა სიიდან

1. დასაწყისისთვის, Outlook-ში უნდა გადახვიდეთ „დეველოპერის“ ჩანართზე.
2. შემდეგ ამ ჩანართში შეგიძლიათ იპოვოთ და დააწკაპუნოთ ღილაკზე „Visual Basic“.
3. ამის შემდეგ გაიხსნება ახალი "Microsoft Visual Basic აპლიკაციებისთვის" ფანჯარა. ახლა თქვენ უნდა გახსნათ ახალი მოდული "ჩასმა" > "მოდული" დაწკაპუნებით.
4. შემდეგი, ახალი მოდულის ფანჯარაში, შეგიძლიათ დააკოპიროთ და ჩასვათ მასში შემდეგი კოდები.

Sub createcontactgroupforrecipients()
    Dim obApp As Application
    Dim olSel As Selection
    Dim obj As Object
    Dim oMail As MailItem
    Dim tempMail As MailItem
    Dim Recips As Recipients
    Dim ConGroup As DistListItem
    Dim strName As String
 
    Set obApp = Outlook.Application
    Set olSel = obApp.ActiveExplorer.Selection
 
    For Each obj In olSel
        If obj.Class = olMail Then
           Set oMail = obj
           Set tempMail = oMail.ReplyAll
           Set Recips = tempMail.Recipients
           Set ConGroup = obApp.CreateItem(olDistributionListItem)
           strName = InputBox("Specify a name for the new contact group:")
           With ConGroup
                .AddMembers Recips
                .DLName = strName
                'Use ".Save" to directly save the new contact group
                .Display
           End With
           tempMail.Close olDiscard
        End If
     Next
End Sub

5. მოგვიანებით შეგიძლიათ გახვიდეთ მიმდინარე „Visual Basic“ ფანჯრიდან და გააგრძელოთ ახალი მაკროს დამატება Quick Access Toolbar-ში. დააწკაპუნეთ ქვემოთ ისარს სწრაფი წვდომის ხელსაწყოთა ზოლში და აირჩიეთ „მეტი ბრძანებები“ მისი ჩამოსაშლელი სიიდან.
6. ამის შემდეგ, თქვენ მოხვდებით "Outlook Options" ფანჯარაში. ამ ეტაპზე, თქვენ უნდა გადადგათ შემდეგი ნაბიჯები:

• უპირველეს ყოვლისა, დააყენეთ „აირჩიეთ ბრძანებები“-დან „მაკროზე“.
• შემდეგ მოძებნეთ და გამოიტანეთ ადრე დამატებული მაკრო.
• შემდეგ დააჭირეთ ღილაკს "დამატება" ცენტრში.
• ბოლოს დააჭირეთ ღილაკს "OK".

7. ამის შემდეგ, შეგიძლიათ დაბრუნდეთ Outlook ფოსტის პანელში და სცადოთ.

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

აუცილებლობა Outlook მონაცემთა დაცვაში

იმის გამო, რომ Outlook დაუცველია, თქვენ უნდა მიიღოთ საკმარისი ზომები მათი Outlook მონაცემების დასაცავად. პირველ რიგში, თქვენ უნდა გააკეთოთ რეგულარული Outlook მონაცემთა სარეზერვო ასლი. გარდა ამისა, თქვენ უნდა იცოდეთ როგორ გაარკვიოთ და გაუშვათ ჩაშენებული სარემონტო ინსტრუმენტი, Scanpst.exe. ბოლო, მაგრამ ყველაზე მნიშვნელოვანი აუცილებლობა არის ვარსკვლავური გარეგანი დაზიანებული Outlook მონაცემთა შეკეთების ინსტრუმენტი, როგორიცაა DataNumen Outlook Repair, რომელიც დაგეხმარებათ, თუ სარეზერვო და Scanpst.exe ორივე ვერ მოხერხდა.

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

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