邮件服务器-邮件系统-邮件技术论坛(BBS)

标题: 批量创建联系人 [打印本页]

作者: leanneliang 时间: 2009-8-19 16:12
标题: 批量创建联系人
我用dsadd contact 方式批量添加联系人（exchange 2003),但是创建完成之后还需要手动一个一个的选择右键---exchange 任务，建立邮件地址。我有1000多个联系人，有没有什么批量处理的脚本可以做的。
格式如下：
dsadd contact -display username@snapon.com cn=username@snapon.com,ou=10.parents09,dc=doaminmane,dc=local -email username@snapon.com -desc "Seo Hwa, Nam"
这样做只是将联系人加入到系统中，没有创建smtp地址，不能正常发送邮件，
您有什么好的办法没有？

作者: 想Fei的猪 时间: 2009-8-20 09:54
有VBS可以实现,下面贴上脚本:
Set objOU = GetObject("LDAP://OU=Test,DC=The9,DC=com")
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False
Set objWorkbook = objExcel.Workbooks.Open("D:\MailAdress.xls")
Set objWorksheet = objWorkbook.Worksheets(1)
objWorksheet.Activate
Const xlCellTypeLastCell = 11
Set objRange = objWorksheet.UsedRange
objRange.SpecialCells(xlCellTypeLastCell).Activate
intLastRow = objExcel.ActiveCell.Row
For i = 1 To intLastRow
ContactName = Trim(objWorksheet.Cells(i, 1))
MailAdress = Trim(objWorksheet.Cells(i, 2))
objName = split(MailAdress,"@")
Name = objName(0)
Set objContact = objOU.Create("contact", "cn=" & ContactName )
objContact.Put "sn", ContactName
objContact.Put "displayName", ContactName
objContact.Put "mail", MailAdress
objContact.Put "mailNickname", ContactName
objContact.Put "targetAddress", "SMTP:" & MailAdress
objContact.SetInfo
Next
objWorkbook.close
objExcel.quit

具体做法:
1.在D盘根目录建立Excel表格MailAdress.xls
2.表格里每行第一个单元格输入联系人的名称,如:Just;第二行输入mail地址, 如:just@test.com
3.修改脚本:
a.脚本第一行的LDAP后的信息请更改成自己的OU
b.脚本第四行是建立Excel表格的路径,根据自己情况更改
4.保存脚本为vbs后缀,双击运行.
5.如果是Exchange 2007,还需要加东西...

作者: tarian 时间: 2009-8-20 10:23
有空试一下。高人来了，呵呵

作者: 想Fei的猪 时间: 2009-8-20 10:47

谢谢Tarian啊!

作者: leanneliang 时间: 2009-8-20 13:29
非常感谢，我会试的结果告诉大家

作者: 钉子 时间: 2009-8-20 23:11
全选联系人然后右键Exchange任务即可.

作者: leanneliang 时间: 2009-8-30 16:42
是不是必须在exchange 服务器上运行，我服务器上没有安装excel,提示不能创建对象。

钉子说的，全选联系人，右键exchange属性，没有创建邮箱选项，只有删除邮箱。

作者: 想Fei的猪 时间: 2009-8-31 10:02
只要是域内的计算机，只要有权限的帐户来运行就可以了。
钉子哥的方法，估计是因为你的联系人已经有Exchange信息了吧，你先删除然后再创建看行不行。

作者: leanneliang 时间: 2009-9-18 09:52
非常感谢大家的帮忙已测试过了，非常方便 excel表格里的记录不能有重复的，否则就执行不下去了。

作者: david.wang666 时间: 2009-12-3 18:45
好东西，纯支持

作者: leanneliang 时间: 2009-12-9 13:16
想问下想Fei 的猪，如果我想加更多的字段，如Description,telphone等信息，
有没有联系人的属性和脚本里字段对应关系，我尝试做了，没有成功。

作者: liboqiuyu 时间: 2009-12-9 16:35
还有,密码是什么呢?这样添加过去

欢迎光临邮件服务器-邮件系统-邮件技术论坛(BBS) (http://news.5dmail.net/bbs/)