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

nonostilly

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

dsd999

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

多谢斑竹！！

sy790825

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

dsd999

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

具体是什么问题？

sy790825

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

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

谢谢！

sy790825

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

dsd999

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

我的是outlook2003

第一种没试过。