如何使用 Powershell 将多个 vCard VCF 联系人文件导入 Outlook？

Question

我创建 vcf 的脚本是：

    # Création d'un fichier.vcf

New-Item C:\TEST$($LastName)_$($Name).vcf -type file -force -value "
BEGIN:VCARD
VERSION:2.1
N;LANGUAGE=fr;CHARSET=utf-8:$($Agence) 
FN;CHARSET=utf-8:$($LastName), $($Name)
ORG;CHARSET=utf-8:$($Company)
TITLE;CHARSET=utf-8:$($Title)
TEL;WORK;VOICE:$($WorkNum)
TEL;WORK;VOICE:$($WorkNum2)
TEL;CELL;VOICE:$($MobNum)
LABEL;WORK;PREF;CHARSET=utf-8;ENCODING=QUOTED-PRINTABLE:$($WorkAdress)
X-MS-OL-DEFAULT-POSTAL-ADDRESS:1
EMAIL;CHARSET=utf-8;PREF;INTERNET:$($Email)
X-MS-IMADDRESS;CHARSET=utf-8:$($Email) 
PHOTO;TYPE=JPEG;ENCODING=BASE64:$($encodedImage)

X-MS-OL-DESIGN;CHARSET=utf-8:<card xmlns='http://schemas.microsoft.com/office/outlook/12/electronicbusinesscards' ver='1.0' layout='left' bgcolor='ffffff'><img xmlns='' align='fit' area='16' use='cardpicture'/><fld xmlns='' prop='name' align='left' dir='ltr' style='b' color='000000' size='10'/><fld xmlns='' prop='org' align='left' dir='ltr' color='000000' size='8'/><fld xmlns='' prop='blank' size='8'/><fld xmlns=' prop='telwork' align='left' dir='ltr' color='d48d2a' size='8'><label align='right' color='626262'>Bureau</label></fld><fld xmlns='' prop='telhome' align='left' dir='ltr' color='d48d2a' size='8'><label align='right' color='626262'>Domicile</label></fld><fld xmlns='' prop='email' align='left' dir='ltr' color='d48d2a' size='8'/><fld xmlns='' prop='addrwork' align='left' dir='ltr' color='000000' size='8'/><fld xmlns='' prop='im' align='left' dir='ltr' color='000000' size='8'><label align='right' color='626262'>Mess. instant.</label></fld><fld xmlns='' prop='blank' size='8'/><fld xmlns='' prop='blank' size='8'/><fld xmlns='' prop='blank' size='8'/><fld xmlns='' prop='blank' size='8'/><fld xmlns=' prop='blank' size='8'/><fld xmlns='' prop='blank' size='8'/><fld xmlns='' prop='blank' size='8'/><fld xmlns='' prop='blank' size='8'/></card>
END:VCARD"`

Answer 1

几个选项：

我。 Outlook 对象模型 - 调用可以保存或移动到任何文件夹的 Namespace.OpenSharedItem (it supports MSG, vCard, and iCal formats) and pass the VCF file name. Outlook will return an instance of the ContactItem 对象。

二．如果使用 Redemption (I am its author) is an option, it supports vCard format (among a dozen or so other formats, vCard included) by the Import method (exposed by the RDOMail and objects derived from it, such as RDOContactItem).

set Session = CreateObject("Redemption.RDOSession")
Session.MAPIOBJECT = Application.Session.MAPIOBJECT 'or you can use Logon, LogonHostedExchangeMailbox, etc.
set Contact = Session.GetDefaultFolder(olFolderContacts).Items.Add
Contact.Import "c:\Temp\test.vcf ", olVCard
Contact.Save

Answer 2

我没有找到问题的答案，所以我使用了其他技术。

首先，我创建了一个 Csv，然后使用此 Powershell 代码将其转换为 XL：

    # Creating and Adding the first line of the Csv
  $String = "FullName;CompanyName;Email1Address;Fileas;JobTitle;BusinessTelephoneNumber;Business2TelephoneNumber;MobileTelephoneNumber;BusinessAdress;PathImage"

  $PathCsv = "C:\TEST\Contacts.csv"
  $CsvExists = Test-Path $PathCsv 

 if($CsvExists -eq $True) {
     Clear-Content $PathCsv 
     Add-Content $PathCsv -value $String
 } else {
     New-Item $PathCsv -type file  -value $String   
 }

 For Each .... {

    # Storing Information in variables
  $Name = "..."
  $Last [...] 

    # Adding the information in the Csv
  $string2= "$($Name) $($LastName);$($Corp);$($Email);$($Agence);$($Title);$($NumWork);$($NumWork2);$($NumCell);$($WorkAdress);$($path)"

  Add-Content -path $PathCsv -value $string2


     # Converting Csv to Xls
  $PathXls = "C:\TEST\Contacts.xls"
  $XlsExists= Test-Path $PathXls
  $xl = new-object -comobject excel.application
  $xl.visible = $true
  $Workbook = $xl.workbooks.open($PathCsv) 
  $Worksheets = $Workbooks.worksheets

 if($XlsExists -eq $True) {
   Remove-Item $PathXls -force
 }  
  $Workbook.SaveAs($PathXls,1) 
  $Workbook.Saved = $True

 $xl.Quit()
 }

其次，我使用此 VBScript 创建了 Outlook 联系人：

  Sub creater()

      Dim strPath
      Dim num1 
      Dim num1toreplace 
      Dim num2 
      Dim num2toreplace 
      Dim num3 
      Dim num3toreplace 
      Dim Corp 

        Const olContactItem = 2

      Set objOutlook = CreateObject("Outlook.Application")
      Set objExcel = CreateObject("Excel.Application")
      Set objWorkbook = objExcel.Workbooks.Open("C:\TEST\Contacts.xls")


       x = 2

    Do Until objExcel.Cells(x, 1).Value = ""

      Set objContact = objOutlook.CreateItem(olContactItem)

      'Add FullName
       objContact.FullName = objExcel.Cells(x, 1).Value

      'Add CompanyName
       objContact.CompanyName = objExcel.Cells(x, 2).Value

      'Add Email1Address
       objContact.Email1Address = objExcel.Cells(x, 3).Value

      'Add Fileas
       objContact.Fileas = objExcel.Cells(x, 4).Value

      'Add JobTitle
       objContact.JobTitle = objExcel.Cells(x, 5).Value

      'Add BusinnesNum
       objContact.BusinessTelephoneNumber  = objExcel.Cells(x, 6).Value

      'Add BusinnesNum2
       objContact.Business2TelephoneNumber = objExcel.Cells(x, 7).Value

      'Add MobileNum
       objContact.MobileTelephoneNumber = objExcel.Cells(x, 8).Value

      'Add BusinessAddress
       objContact.BusinessAddress = objExcel.Cells(x, 9).Value

      'Add Picture
       strPath = objExcel.Cells(x, 10).Value
      If Not strPath = vbNullString Then
         objContact.AddPicture (strPath)
      End If


      objContact.Save

      x = x + 1
    Loop

      objExcel.Quit

 End Sub 
 creater()

如何使用 Powershell 将多个 vCard VCF 联系人文件导入 Outlook？

How to import multiple vCard VCF contact files into Outlook using Powershell?

powershell

outlook

vcf-vcard