Outlook VBA көмегімен бірнеше контактілерді бір VCard файлына қалай жылдам экспорттауға болады

Outlook шешімдері Қыркүйек 29, 2025
Қазір бөлісу:

Егер Outlook бағдарламасында бірнеше контактілер болса және оларды бөлек файлдардың орнына бір vCard файлына экспорттағыңыз келсе, сіз осы мақалада ұсынылған ақылды әдісті қолдана аласыз.

Мысалы, сіз басқа контактілерге жүздеген контактілерді жіберуіңіз керек. Оларды бөлек vCard файлдары ретінде жіберудің орнына, оларды бір vCard файлына біріктіріп, содан кейін жіберуге дайын болуыңыз мүмкін. Негізінде менің алдыңғы мақалам - «Бірнеше Outlook контактілерін жалғыз VCard файлы ретінде қалай экспорттауға болады»Әдісін енгізді. Алайда, бұл әдіс сізден Gmail тіркелгісін және Gmail -дің «Импорт және Экспорт» мүмкіндігін пайдалануды талап етеді. Бір сөзбен айтқанда, бұл өте ауыр. Сондықтан, біз сізге handier әдісін енгіземіз.Outlook VBA көмегімен бірнеше контактілерді бір VCard файлына жылдам экспорттау

Бірнеше контактіні бір vCard файлына жылдам экспорттау

  1. Алдымен Outlook бағдарламасын іске қосыңыз.
  2. VBA редакторына кіру үшін «Alt + F11» пернелерін түртіңіз.
  3. Әрі қарай, жаңа терезеде VBA кодын модульге салыңыз.
Sub ExportMultipleContactsIntoOneVCardFile()
    Dim objSelection As Outlook.Selection
    Dim strLocalDrive, strFolder As String
    Dim i As Long
    Dim objContact As Outlook.ContactItem
    Dim strVCardFile As String
 
    'Get all selected contacts
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    If Not objSelection Is Nothing Then
       'Save contacts in "E:\Temp Contacts\"
       strLocalDrive = "E:"
       strFolder = "Temp Contacts"
       MkDir (strLocalDrive & "\" & strFolder & "\")
 
       'Save all selected contacts as separate vCards
       For i = objSelection.Count To 1 Step -1
           If TypeName(objSelection(i)) = "ContactItem" Then
              Set objContact = objSelection(i)
 
              strVCardFile = strLocalDrive & "\" & strFolder & "\" & objContact.FullName & ".vcf"
              objContact.SaveAs strVCardFile, olVCard
           End If
       Next
 
       'Use cmd to merge all exported vCard files into one
       Shell "cmd.exe /K" & strLocalDrive & " & CD " & strFolder & " & copy *.vcf MergedContact.vcf"
    End If
End Sub

VBA коды - Бірнеше контактіні бір VCard файлына жылдам экспорттау

  1. Осыдан кейін, бұл макросты «Қол жеткізу тақтасына» сілтемесімен қосыңыз.Outlook бағдарламасында VBA кодын қалай іске қосуға болады«.
  2. Ақыр соңында, сіз дәл осы макросты пайдаланып көре аласыз.
  • Бастау үшін, экспорттағыңыз келетін контактілерді таңдаңыз.
  • Содан кейін жылдам қол жеткізу құралдар тақтасындағы макро батырманы басыңыз.Макросты таңдалған контактілерде іске қосыңыз
  • Кейінірек сіз барлық контактілер бір контактіге біріктірілгенін көрсететін пәрмен шақыру терезесін көресіз.Командалық шақыру
  • Енді сіз Windows Explorer шолғышындағы «E: \ Temp Contacts» қалтасына кіре аласыз.
  • Бұл жергілікті қалтада сіз «MergedContact» деп аталатын vCard файлын табасыз, ол барлық таңдалған контактілерді қамтиды.VCard файлы біріктірілді

Апаттан кейін Outlook деректеріңізді жөндеңіз

Outlook сыбайлас жемқорлыққа бейім болғандықтан, PST файлына жақсы қарау керек. Мысалы, сіз Outlook бағдарламасын дұрыс жабуды жалғастыруыңыз керек. Сонымен қатар, ешқашан белгісіз сілтемелерді баспау немесе электрондық поштаға салынған тіркемелерді жүктемеу ұсынылады. Сонымен қатар, сіз мықтыға қол жеткізгеніңіз жөн PST жөндеу сияқты утилита DataNumen Outlook Repair. Оның көмегімен, егер сіздің Outlook файлыңыз бүлінген болса да, сіз оны еш қиындықсыз жөндей аласыз.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. бүлінген SQL Server және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com

Қазір бөлісу:

Пікірлер жабылды.