2 Outlook контактілер тобының барлық мүшелерін Excel бағдарламасына экспорттау әдістері

Кейде белгілі бір 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