ნაგულისხმევად, თქვენ შეგიძლიათ ნახოთ მხოლოდ წევრების სახელები და ელფოსტის მისამართები საკონტაქტო ჯგუფში. თუ გსურთ მიიღოთ წევრების სხვა დეტალები, შეგიძლიათ გამოიყენოთ ამ სტატიაში წარმოდგენილი გზა.
როდესაც ორჯერ დააწკაპუნებთ საკონტაქტო ჯგუფზე მის გასახსნელად, მის ფანჯარაში შეგიძლიათ ნახოთ მხოლოდ ჯგუფის წევრების სახელები და ელფოსტის მისამართები. თქვენ არ შეგიძლიათ მიიღოთ წევრების სხვა დეტალები, როგორიცაა კომპანია, სამუშაოს დასახელება, ტელეფონის ნომერი ან ბიზნეს მისამართი და ა.შ. ზოგადად, ამ დეტალების მისაღებად, თქვენ ხელით უნდა იპოვოთ წევრების შესაბამისი კონტაქტები თქვენს კონტაქტების საქაღალდეში. ძალიან პრობლემურია. აქ ჩვენ გაჩვენებთ VBA კოდის ნაწილს, რომელსაც შეუძლია ამ დეტალების სწრაფად ექსპორტი Excel-ის სამუშაო წიგნში.
საკონტაქტო ჯგუფის ყველა წევრის დეტალების ექსპორტი Excel-ში
- დასაწყებად, გაუშვით თქვენი Outlook აპლიკაცია.
- შემდეგ თქვენ უნდა დააჭიროთ "Alt + F11" კლავიშების მალსახმობებს Outlook-ის მთავარ ფანჯარაში.
- შემდეგ ახალ ფანჯარაში „Microsoft Visual Basic აპლიკაციებისთვის“, თქვენ უნდა გახსნათ გამოუყენებელი მოდული ან პირდაპირ ჩადოთ ახალი მოდული.
- ამის შემდეგ, დააკოპირეთ და ჩასვით შემდეგი VBA კოდი ამ მოდულში.
Sub ExportMemberContactDetailsToExcel()
Dim objContactGroup As Outlook.DistListItem
Dim objGroupMember As Outlook.recipient
Dim objContacts As Outlook.Items
Dim objFoundContact As Outlook.ContactItem
Dim objExcelApp As Excel.Application
Dim objExcelWorkBook As Excel.Workbook
Dim objExcelWorkSheet As Excel.Worksheet
Dim i As Integer
Dim nRow As Integer
Dim strFilename As String
Set objContactGroup = Application.ActiveExplorer.Selection(1)
'Create a new Excel workbook
Set objExcelApp = CreateObject("Excel.Application")
Set objExcelWorkBook = objExcelApp.Workbooks.Add
Set objExcelWorkSheet = objExcelWorkBook.Worksheets(1)
'Set the seven column headers
With objExcelWorkSheet
.Cells(1, 1) = "Name"
.Cells(1, 2) = "Email Address"
.Cells(1, 3) = "Company"
.Cells(1, 4) = "Job Title"
.Cells(1, 5) = "Phone Number"
.Cells(1, 6) = "Mailing Address"
.Cells(1, 7) = "Birthday"
End With
Set objContacts = Application.Session.GetDefaultFolder(olFolderContacts).Items.Restrict("[Email1Address]>''")
nRow = 2
For i = 1 To objContactGroup.MemberCount
Set objGroupMember = objContactGroup.GetMember(i)
strFilter = "[Email1Address] = '" & objGroupMember.Address & "'"
Set objFoundContact = objContacts.Find(strFilter)
If Not (objFoundContact Is Nothing) Then
'Input the Contact Details
With objExcelWorkSheet
.Cells(nRow, 1) = objFoundContact.FullName
.Cells(nRow, 2) = objFoundContact.Email1Address
.Cells(nRow, 3) = objFoundContact.CompanyName
.Cells(nRow, 4) = objFoundContact.JobTitle
.Cells(nRow, 5) = objFoundContact.BusinessTelephoneNumber
.Cells(nRow, 6) = objFoundContact.MailingAddress
If objFoundContact.Birthday = #1/1/4501# Then
.Cells(nRow, 7) = ""
Else
.Cells(nRow, 7) = objFoundContact.Birthday
End If
End With
Else
With objExcelWorkSheet
.Cells(nRow, 1) = objGroupMember.Name
.Cells(nRow, 2) = objGroupMember.Address
End With
End If
nRow = nRow + 1
Next
'Fit the columns
objExcelWorkSheet.Columns("A:G").AutoFit
'Change the Path as per where you want to save the new Excel file
strFilename = "E:\" & objContactGroup.DLName & " Member Contact Details.xlsx"
'Save the Excel workbook
objExcelWorkBook.Close True, strFilename
MsgBox ("Complete!")
End Sub
- ამის შემდეგ, მოსახერხებელი შემოწმებისთვის, შეგიძლიათ დაამატოთ ახალი VBA პროექტი Quick Access Toolbar-ში ან ribbon-ში.
- მოგვიანებით დააყენეთ თქვენი Outlook მაკრო უსაფრთხოების დონე დაბალზე.
- საბოლოო ჯამში, შეგიძლიათ სცადოთ.
- პირველ რიგში აირჩიეთ საკონტაქტო ჯგუფი.
- შემდეგ დააჭირეთ მაკრო ღილაკს სწრაფი წვდომის ხელსაწყოთა ზოლში ან ლენტში.
- მაშინვე მაკრო იმუშავებს.
- როდესაც ის დასრულდება, თქვენ მიიღებთ მოთხოვნას "დასრულებულია!"
- ამის შემდეგ, შეგიძლიათ გადახვიდეთ წინასწარ განსაზღვრულ დანიშნულების ლოკალურ საქაღალდეში, რომელშიც შეგიძლიათ იპოვოთ ახალი Excel ფაილი.
- გახსენით, დაინახავთ ჯგუფის წევრების საკონტაქტო დეტალებს, როგორიცაა შემდეგი ეკრანის სურათი:
არ ინერვიულოთ Outlook-ის პრობლემების წინაშე
არავის არ სურს მიიღოს Outlook-ის რაიმე პრობლემა, არ აქვს მნიშვნელობა ამომხტარი შეცდომის შეტყობინებას ან კორუმპირებული Outlook მონაცემთა ფაილი. ამიტომ, მომხმარებლები პანიკას განიცდიან Outlook-ის საკითხებთან დაკავშირებით. თუ ამ შემთხვევაში სიმშვიდის შენარჩუნება გინდა, ორი საჭიროება უნდა გქონდეს ხელში. ერთი არის Outlook მონაცემთა სარეზერვო ასლები. მეორე არის ძლიერი Outlook გამოსწორების პროგრამული უზრუნველყოფა, როგორიცაა DataNumen Outlook Repair.
ავტორი შესავალი:
შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის sql აღდგენა და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად