當前位置:遊戲中心平台 - 熱門遊戲 - out look怎麽批量導出電話本,變成vcf格式的,註意!是批量,壹個個的就不要說了

out look怎麽批量導出電話本,變成vcf格式的,註意!是批量,壹個個的就不要說了

第壹種方法:

步驟壹:打開Microsoft Outlook,點擊菜單→工具→宏→Visual Basic編輯器

步驟二:輸入壹段寫好的代碼(具體代碼最後面)

步驟三:點擊執行,這樣就可以把全部的聯系人導出至某個指定的文件夾(指定的文件夾地址是在附錄裏的代碼裏修改)

步驟四:使用vcfEncoding工具進行轉換,這樣就可以把全部的聯系人文件保存到本地指定文件夾裏了。(比如有500個聯系人,就相當於有500個文件,後綴名為.vcf)。

步驟五:如果是nokia手機,可以把全部的聯系人文件復制至手機卡的:\others\Contacts文件夾下→打開手機的名片夾,再點擊復制名片,即可。

(vcfEncoding上網找)

第二種方法:

步驟壹:打開Microsoft Outlook,點擊菜單→文件→導入導出文件

步驟二:導出文件,選擇excel表格式,保存到壹個指定的xls文件

步驟三:使用vcfeditor(另壹個工具,更方便),導入剛才保存的文件

步驟四:再使用分開聯系人保存。

步驟五:把全部文件復制至手機卡,如E:\others\Contacts文件夾下。

步驟六:打開手機的名片夾,點擊“復制名片”,即可。

(vcfeditor在網上搜,有很多)

註:如果是Nokia手機,在復制文件時,要切換連接模式為pc套件為大容量存儲,而在復制名片時,再切換回pc套件模式。(經本人多次使用,覺得方法二更好更方便)

方法壹代碼:

outlook中. 工具->宏, 創建壹個新的宏, 名稱任意, 輸入:

Sub ExportVcards()

Dim MyContacts As Outlook.MAPIFolder

Dim ContItem As Outlook.ContactItem

Dim FileName As String

Set MyContacts = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)

For Each ContItem In MyContacts.Items

FileName = "d:\Contacts\" & ContItem.FileAs & ".vcf"

ContItem.SaveAs FileName, olVCard

Next

End Sub

註意上面的”c:/Contacts”為輸出到的目的文件夾.

然後運行, 如果失敗, 請檢查”c:/Contacts”文件夾是否存在 (不存在則要先創建), 以及outlook中, 工具->安全性, 是否有權限運行宏.

  • 上一篇:imgutildll
  • 下一篇:如何註冊ICQ賬號?請詳細解答。
  • copyright 2024遊戲中心平台