Outlook Contacts Import

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Outlook Contacts Import

Logged in as: Guest

arrSession:exec spGetSession 2,2,27671

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Outlook Contacts Import
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Outlook Contacts Import - 11/2/2005 8:38:44 AM

_lp

Posts: 1
Score: 0
Joined: 11/2/2005
Status: offline

Original message moved by Admin
Reason :
Hi everyone!

To make it short for you guys, i trying to make a script, that will take my outlook contacts,
and import them into my sql DB with filtering

I had some code working, but now that i did update Outlook to the latest version,... nothing...

............

... type="button" name="OutlookContact" id="OutlookContact" class="mybutton_grey_Med" value="Import Contact" onclick="vbscript:openList()">

<script language="vbscript">
sub openList()
  On Error Resume Next
  Set objABW = CreateObject("MsSvAbw.AddrBookWrapper")

  if not IsObject(objABW) then
     MsgBox("you dont have a Ms Outlook software")
     OpenABW = ""
  Else
      hr = objABW.AddressBook(L_SelectUsers_Text&"", 1, L_Add_Text&"", "", "", objContacts, Nothing, Nothing, True)
      if hr <> 0 then
          OpenABW = ""
      else
          OpenABW = ProcessABWCollection(objContacts)
      end if
  end if
  Set objABW = nothing
End Sub
</script>

Thanks anyone