急 outlook导入csv联系人的vba脚本代码

nonostilly · 发表于 2010-12-21 13:45

客户突然提出了在域中推个脚本导入csv联系人的需求。本人对vba是外行！
暂时没google到在outlook导入csv联系人的vba脚本代码，急求！
谢谢！

dsd999 · 发表于 2010-12-21 14:39

Sub ImportProjectCSVToOutlook()
Dim objApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim objContacts As MAPIFolder
Dim objContact As Outlook.ContactItem
Dim fso As Scripting.FileSystemObject
Dim objStream As Scripting.TextStream
Dim strFileName As String
Dim strLine As String
Dim arr() As String

strFileName = _
   InputBox("File to import:", "Import to Outlook")
If strFileName <> "" Then
      Set fso = CreateObject("Scripting.FileSystemObject")
      If fso.FileExists(strFileName) Then
         Set objStream = fso.OpenTextFile(strFileName, ForReading)
         Set objApp = CreateObject("Outlook.Application")
         Set objNS = objApp.GetNamespace("MAPI")
         Set objContacts = objNS.GetDefaultFolder(olFolderContacts)
         Do Until objStream.AtEndOfStream
            strLine = objStream.ReadLine
            arr = Split(strLine, ",")
            Set objItem = objContacts.Items.add("IPM.Contact.Project")
            With objItem
                  .FullName = arr(0)
                  .UserProperties("Project") = arr(1)
                  .Save
            End With
         Loop
         objStream.Close
      End If
End If

Set objNS = Nothing
Set objContacts = Nothing
Set objContact = Nothing
Set objApp = Nothing
Set objStream = Nothing
Set fso = Nothing
End Sub

nonostilly · 发表于 2010-12-21 16:12

多谢斑竹！！

sy790825 · 发表于 2010-12-29 20:51

上面代码是直接保存vbs文件运行，还是outlook中编辑宏来运行，我尝试着二种方式都提示代码有问题，希望能给予答复

dsd999 · 发表于 2010-12-30 11:19

原帖由 sy790825 于 2010-12-29 20:51 发表
上面代码是直接保存vbs文件运行，还是outlook中编辑宏来运行，我尝试着二种方式都提示代码有问题，希望能给予答复

具体是什么问题？

sy790825 · 发表于 2010-12-30 17:13

我把上述代码直接保存为1.vbs文件，用cscritp 1.vbs来运行，系统总是提示D:\OutlookAddressImport.vbs(2, 14) Microsoft VBScript 编译器错误: 语句未结束

第二句的内容为 Dim objApp As Outlook.Application
是不是缺少对象的引用？
和Microsoft word 11.0 Object Library 有关么？
如果是，如何加入引用呢？

谢谢！

sy790825 · 发表于 2010-12-30 17:14

备注下我的环境是win2003+office2007 ，是不是只有office2003才能适用？

dsd999 · 发表于 2010-12-31 09:02

试过在outlook里编辑宏运行没问题。

我的是outlook2003

第一种没试过。

		自动登录	找回密码
密码			免费注册

[求助] 急 outlook导入csv联系人的vba脚本代码

请教 dsd999