როგორ სწრაფად მოხდეს მრავალი კონტაქტის ექსპორტი ერთ 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. ამის შემდეგ, დაამატეთ ეს მაკრო სწრაფი წვდომის ინსტრუმენტთა პანელზე მითითებით ”როგორ გაუშვათ VBA კოდი თქვენს Outlook-ში".
5. საბოლოოდ, შეგიძლიათ სცადოთ ეს მაკრო ახლავე.

• დასაწყებად, აირჩიეთ კონტაქტები, რომელთა ექსპორტიც გსურთ.
• შემდეგ დააწკაპუნეთ მაკრო ღილაკზე სწრაფი წვდომის ხელსაწყოთა ზოლში.
• მოგვიანებით ნახავთ ბრძანების სტრიქონის ფანჯარას, რომელიც მიუთითებს, რომ ყველა კონტაქტი გაერთიანებულია ერთში.
• ახლა თქვენ შეგიძლიათ გადახვიდეთ "E:\Temp Contacts" საქაღალდეში თქვენს Windows Explorer-ში.
• ამ ლოკალურ საქაღალდეში იპოვით vCard ფაილს სახელად „MergedContact“, რომელიც შეიცავს ყველა შერჩეულ კონტაქტს.

შეაკეთეთ თქვენი Outlook მონაცემები ავარიის შემდეგ

ვინაიდან Outlook მგრძნობიარეა კორუფციის მიმართ, თქვენ კარგად უნდა იზრუნოთ თქვენს PST ფაილზე. მაგალითად, თქვენ უნდა გააგრძელოთ თქვენი Outlook-ის სწორად დახურვა. ასევე, რეკომენდებულია არასოდეს დააწკაპუნოთ უცნობ ბმულებზე ან ჩამოტვირთოთ ელ.წერილებში ჩაშენებული დანართები. უფრო მეტიც, თქვენ სჯობდა ხელში ჩაეგდოთ ძლიერი PST შეკეთება სასარგებლო, როგორიცაა DataNumen Outlook Repair. მასთან ერთად, მაშინაც კი, თუ თქვენი Outlook ფაილი დაზიანდება, თქვენ მაინც შეგიძლიათ მისი მარტივად შეკეთება.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის კორუმპირებული SQL Server და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად