Outlook VBA ашиглан олон харилцагчийг нэг VCard файл руу хэрхэн хурдан экспортлох вэ

Outlook шийдлүүд Есдүгээр сарын 29, 2025

Хэрэв таны Outlook дээр олон харилцагч байгаа бөгөөд тэдгээрийг тусдаа файлын оронд нэг vCard файл руу экспортлохыг хүсвэл энэ нийтлэлд танилцуулсан ухаалаг аргыг ашиглаж болно.

Жишээлбэл, та хэдэн зуун харилцагчийг өөр хэн нэгэн рүү илгээх хэрэгтэй. Та тэдгээрийг тусдаа vCard файл болгон илгээхийн оронд тэдгээрийг нэг vCard файл болгон нэгтгэж, дараа нь илгээх хүсэлтэй байж магадгүй юм. Үнэндээ миний өмнөх нийтлэл - "Хэрхэн олон Outlook харилцагчдыг нэг VCard файл болгон экспортлох вэ” гэсэн аргыг нэвтрүүлсэн. Гэсэн хэдий ч, энэ арга нь таныг Gmail хаягтай байх, Gmail-ийн "Импорт, экспорт" функцийг ашиглахыг шаарддаг. Товчхондоо энэ нь нэлээд төвөгтэй юм. Тиймээс бид танд илүү хялбар аргыг танилцуулах болно.

Олон харилцагчдыг нэг vCard файл руу хурдан экспортлох

Эхлээд Outlook програмаа ажиллуулна уу.
Дараа нь VBA засварлагч руу нэвтрэхийн тулд "Alt + F11" товчийг дарна уу.
Дараа нь шинэ цонхонд 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

Үүний дараа энэ макрог " Quick Access Toolbar-д нэмнэ үү "Таны Outlook дээр VBA кодыг хэрхэн ажиллуулах вэ".
Эцсийн эцэст та яг одоо энэ макро туршиж үзэх боломжтой.

Эхлээд экспортлохыг хүссэн харилцагчдаа сонгоно уу.
Дараа нь Quick Access Toolbar дээрх макро товчийг дарна уу.
Дараа нь та тушаал хүлээх цонхыг харах бөгөөд энэ нь бүх харилцагчдыг нэг болгон нэгтгэсэн болохыг харуулж байна.
Одоо та Windows Explorer дээрх "E:\Temp Contacts" хавтас руу орж болно.
Энэ локал хавтсанд та сонгосон бүх харилцагчдыг агуулсан "MergedContact" нэртэй vCard файлыг олох болно.

Гэмтлийн дараа Outlook өгөгдлөө засаарай

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

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

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