วิธีส่งออกผู้ติดต่อหลายคนไปยังไฟล์ VCard หนึ่งไฟล์อย่างรวดเร็วด้วย Outlook VBA

หากคุณมีที่ติดต่อหลายรายการใน Outlook และต้องการส่งออกไปยังไฟล์ vCard ไฟล์เดียว แทนที่จะแยกไฟล์ คุณสามารถใช้วิธีการอันชาญฉลาดที่แนะนำในบทความนี้

ตัวอย่างเช่น คุณต้องส่งผู้ติดต่อหลายร้อยรายไปยังผู้อื่น แทนที่จะส่งเป็นไฟล์ vCard แยกกัน คุณอาจต้องการรวมเป็นไฟล์ vCard เดียวแล้วส่ง จริงๆ แล้ว บทความก่อนหน้านี้ของผม – “วิธีส่งออกที่ติดต่อ Outlook หลายรายการเป็นไฟล์ VCard ไฟล์เดียว” ได้แนะนำวิธีการ อย่างไรก็ตาม วิธีการดังกล่าวกำหนดให้คุณต้องมีบัญชี Gmail และใช้คุณสมบัติ "นำเข้าและส่งออก" ของ Gmail สรุปว่ามันค่อนข้างยุ่งยาก ดังนั้นที่นี่เราจะแนะนำวิธีการที่สะดวกกว่าให้กับคุณ

ส่งออกผู้ติดต่อหลายคนไปยังไฟล์ vCard ไฟล์เดียวได้อย่างรวดเร็ว

1. ก่อนอื่นเปิดแอปพลิเคชัน Outlook ของคุณ
2. จากนั้นแตะที่ปุ่ม“ Alt + F11” เพื่อเข้าถึงตัวแก้ไข VBA
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

4. หลังจากนั้น ให้เพิ่มแมโครนี้ไปยัง Quick Access Toolbar โดยอ้างอิงถึง “วิธีเรียกใช้รหัส VBA ใน Outlook ของคุณ"
5. ในที่สุดคุณสามารถลองใช้มาโครนี้ได้ในขณะนี้

• ขั้นแรก ให้เลือกรายชื่อผู้ติดต่อที่คุณต้องการส่งออก
• จากนั้นคลิกปุ่มมาโครในแถบเครื่องมือด่วน
• หลังจากนั้นคุณจะเห็นหน้าต่างพรอมต์คำสั่งซึ่งระบุว่าผู้ติดต่อทั้งหมดถูกรวมเข้าเป็นหนึ่งเดียว
• ตอนนี้ คุณสามารถไปที่โฟลเดอร์ “E:\Temp Contacts” ใน Windows Explorer ของคุณ
• ในโฟลเดอร์ในเครื่องนี้ คุณจะพบไฟล์ vCard ที่มีชื่อว่า “MergedContact” ซึ่งเป็นไฟล์ที่มีผู้ติดต่อที่เลือกไว้ทั้งหมด

ซ่อมแซมข้อมูล Outlook ของคุณหลังจากเกิดปัญหา

เนื่องจาก Outlook มีความอ่อนไหวต่อการเสียหาย คุณต้องดูแลไฟล์ PST ของคุณให้ดี ตัวอย่างเช่น คุณต้องปิด Outlook อย่างต่อเนื่องในลักษณะที่เหมาะสม นอกจากนี้ ขอแนะนำไม่ให้คลิกลิงก์ที่ไม่รู้จักหรือดาวน์โหลดไฟล์แนบที่ฝังอยู่ในอีเมล ยิ่งกว่านั้น คุณควรจับผู้ทรงพลังไว้ดีกว่า ซ่อม PST ยูทิลิตี้เช่น DataNumen Outlook Repair. ด้วยวิธีนี้ แม้ว่าไฟล์ Outlook ของคุณจะเสียหาย คุณก็ยังสามารถซ่อมแซมได้อย่างง่ายดาย

บทนำผู้เขียน:

Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ ทุจริต SQL Server และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.