Outlook холбоо барих бүлгийн бүх гишүүдийг Excel рүү экспортлох 2 арга

Заримдаа та тодорхой Outlook харилцах бүлгийн гишүүдийг экспортлохыг хүсч болно. Тиймээс энэ нийтлэлд бүлгийн гишүүдийг Excel рүү задлах 2 аргыг танд хэлэх болно.

Outlook нь тодорхой харилцагчийн хавтасны бүх харилцагчдыг экспортлох боломжийг олгодог үндсэн функцийг санал болгодог. Гэсэн хэдий ч энэ нь холбоо барих бүлгүүдийн гишүүдийг задлах нь бүү хэл холбоо барих бүлгүүдийг экспортлохыг зөвшөөрдөггүй. Тиймээс, хэрэв та сонгосон холбоо барих бүлгийн гишүүдийг гаргаж авахыг хүсч байвал илүү их хүчин чармайлт гаргах хэрэгтэй. Эндээс та лавлаж болох хоёр зөвлөгөө байна.

Арга 1: Хадгалах замаар бүлгийн гишүүдийг задлах

1. Хамгийн эхэнд Outlook програмыг ажиллуул.
2. Дараа нь гишүүдийг нь задлах шаардлагатай холбоо барих бүлгээ олоод сонгоно уу.
3. Дараа нь та "Файл" цэс рүү очоод "Хадгалах" дээр дарна уу.
4. Дараа нь гарч ирэх "Хадгалах" харилцах цонхноос хадгалах фолдерыг сонгоод "Хадгалах төрөл" жагсаалтаас "Зөвхөн Текст"-ийг сонгоно уу.
5. Тэгээд "Хадгалах" дээр дарна уу.
6. Үүний дараа Excel програмыг нээж, шинэ excel файл үүсгэнэ үү.
7. Дараа нь та "Файл" руу эргэж, "Нээх" товчийг дарна уу.
8. Дараагийн "Нээлттэй" харилцах цонхонд та эхлээд харилцагчийн бүлгээ хадгалсан хавтсандаа хандах хэрэгтэй.
9. Дараа нь "Файлын нэр" мөрөнд байгаа хоёр дахь нүдийг товшоод доош унах жагсаалтаас "Бүх файлууд" -ыг сонгоно уу.
10. Үүний дараа холбоо барих бүлгийн текст файлыг сонгоод "Нээх" дээр дарна уу.
11. "Текст импортлох шидтэн" харилцах цонхонд "Хязгаарлагдмал" сонгогдсон эсэхийг шалгаад "Дуусгах" товчийг дарна уу.
12. Эцэст нь та дараах дэлгэцийн агшин шиг гишүүдийг авах болно.

Арга 2: Бүлгийн гишүүдийг Outlook VBA-ээр гаргаж авна уу

1. Эхний ээлжинд Outlook дээрх “Alt + F11” товчлууруудыг дарна уу.
2. Дараа нь VBA засварлагч цонхонд шинэ модулийг нээнэ үү.
3. Дараа нь дараахь VBA кодуудыг хуулна уу.

Sub ExtractContactGroupMembersToExcel()
    Dim objContactGroup As Outlook.DistListItem
    Dim objMember As Outlook.recipient
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkBook As Excel.Workbook
    Dim objExcelWorkSheet As Excel.Worksheet
    Dim i As Integer
    Dim nRow As Integer
    Dim strPath As String
    Dim strFilename As String
 
    Select Case Application.ActiveWindow.Class
           Case olExplorer
                Set objContactGroup = Application.ActiveExplorer.Selection(1)
           Case olInspector
                Set objContactGroup = Application.ActiveInspector.CurrentItem
    End Select
 
    If TypeOf objContactGroup Is DistListItem Then
       'Create a new Excel workbook
       Set objExcelApp = CreateObject("Excel.Application")
       Set objExcelWorkBook = objExcelApp.Workbooks.Add
       Set objExcelWorkSheet = objExcelWorkBook.Worksheets(1)
 
       'Set the two column headers
       objExcelWorkSheet.Cells(1, 1) = "Contact Name"
       objExcelWorkSheet.Cells(1, 2) = "Email Address"

       nRow = 2
 
       'Extract the contact group members' names and email addresses
       For i = 1 To objContactGroup.MemberCount
           Set objMember = objContactGroup.GetMember(i)
           objExcelWorkSheet.Cells(nRow, 1) = objMember.Name
           objExcelWorkSheet.Cells(nRow, 2) = objMember.Address
           nRow = nRow + 1
       Next
 
       'AutoFit the columns in the new Excel worksheet
       objExcelWorkSheet.Columns("A:B").AutoFit
 
       'Change the strPath to your actual case
       strPath = "C:\Contact Groups\"
       strFilename = strPath & objContactGroup.DLName & ".xlsx"
 
       'Save the Excel workbook
       objExcelWorkBook.Close True, strFilename
 
       'Notify you of the export complete
       MsgBox ("Export Complete!")
    End If
End Sub

4. Үүний дараа та ердийнхөөрөө Quick Access Toolbar (QAT) руу макро нэмж болно.
5. Дараа нь та холбоо барих бүлгийг сонгоод QAT дахь макро товчийг дарж болно.
6. Экспорт хийсний дараа та "Экспорт хийж дууслаа" гэсэн мессеж хүлээн авах болно.
7. Эцсийн эцэст та Excel файлыг VBA кодуудад урьдчилан тодорхойлсон хавтсаас олох боломжтой. Үүнийг нээвэл та доорх зураг шиг бүлгийн гишүүдийг харж болно.

Өмнөх PST өгөгдлөө буцааж аваарай

Outlook гацах магадлалтай тул таны PST өгөгдөл ямар ч шинж тэмдэггүйгээр эвдэрч болзошгүй. Тиймээс та PST файлуудаа тогтмол нөөцлөх хэрэгтэй. Мөн та ийм хүчтэй хэрэгсэл бэлтгэсэн нь дээр DataNumen Outlook RepairАль болох Outlook програмыг засах өгөгдөл цаг тухайд нь.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. sql засах програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com