Build Fax List for SBS Exchange 2003

[TZeus]

I have Small Business Exch. 2003 and I am trying to find the easiest way to add 2000 offices in order to fax these offices. Would I add them in outlook? In Exchange? I'm planning on using the fax feature under Server Managment. ot sure where to start. I appreciate all the help necessary.
Thank you,
Tzeus

 

[markdmac]

You would want to add them as contacts into Exchange.

With 2000 of them, you will want to script the creation of them.

If you need help with the scripting just let me know.

I hope you find this post helpful.

Regards,

Mark

 

[TZeus]

Mark, the scripting assistance would help tremendously. I would really appreciate teh help. Where would I add these contacts in exchange?
Tzeus

 

[markdmac]

They actually get added in AD and get mail enabled. Kind of like adding users except they are just a contact. You could create a seperate OU for them even if you wanted to.

I have the basic code written already from a similar prokect. Give me a few days to find the time to port it to read from an Excel spreadsheet. let me know all of the information you want to track on these contacts so I am sure to include it in the script. Example: Company Name, Phone, Fax, email, address etc. Also let me know where in your AD you want them. OK if you want to change company name. Just give me something like:

LDAP://OU=Contacts,CN=Users,DC=Company,DC=com

I hope you find this post helpful.

Regards,

Mark

 

[TZeus]

Mark, by AD, do you mean active directory? I'm fairly new to this so I appolgize for sounding like a rookie but I am somewhat. As for now, I would probably on want Company Name, Fax number. I'll work on exporting the data to an excel spreadsheet.
Thanks,
Tzeus

 

[markdmac]

Yes, AD=Active Directory.

If these are company contacts, why not capture all info such as address too? Also phone number so someone faxing could confirm receipt if they needed or call if there is a problem faxing?

I hope you find this post helpful.

Regards,

Mark

 

[TZeus]

Very good ok..I'll work on that...Thanks a bunch,
Tzeus

 

[markdmac]

OK, here you go. This script is untested. So please give it a try with data for just one or two contacts to start and make sure they will work for you for your faxing purposes.

Please report back on your success.

Note: you MUST edit the LDAP path for your network! Be sure to create the OU you specify before running the script.

'==========================================================================
'
' NAME: CreateContactFromExcel.vbs
'
' AUTHOR: Mark D. MacLachlan , The Spider's Parlor
' URL: [URL unfurl="true"]http://www.thespidersparlor.com[/URL]
' DATE  : 5/25/2005
'
' COMMENT: Creates contacts from an Excel Spreadsheet.
'          Create speadsheet with the following headings
'
' Column A Company
' Column B Email
' Column C Phone
' Column D Fax
' Column E Street
' Column F Street2
' Column G City
' Column H State
' Column I Zip

'==========================================================================

set x = getobject(,"excel.application")
r = 2

do until len(x.cells(r, 1).value) = 0

    company    = x.cells(r, 1).value
	email	   = x.cells(r, 2).value
	phone      = x.cells(r, 3).value
    fax        = x.cells(r, 4).value
    street     = x.cells(r, 5).value
    suite      = x.cells(r, 6).value
    city       = x.cells(r, 7).value
    state      = x.cells(r, 8).value
    zip    =cstr(x.cells(r, 9).value)

	if len(email) = 0 then  
       email = " " 
    end if

	if len(phone) = 0 then  
       phone = " " 
    end if

    if len(extension) = 0 then 
       extension = " " 
    end if

    if len(fax) = 0 then 
       extension = " " 
    end if
    
    if len(street) = 0 then 
       street = " " 
    end if

    if len(suite) = 0 then 
       suite = " " 
    end if

    if len(city) = 0 then 
       city = " " 
    end if

    if len(state) = 0 then 
       state = " " 
    end if

    if len(zip) = 0 then 
       zip = " " 
    end if
  


Set ContactLocation = GetObject("LDAP://OU=FaxList,CN=Users,DC=CompanyName,DC=com")
Set objUser = ContactLocation.Create("Contact", "cn="&contactemail)
objUser.Put "Description", company
objUser.Put "Mail", & email
objUser.Put "mailNickname", & email
objUser.Put "proxyAddresses", "SMTP:" & email
objUser.Put "mAPIRecipient", "FALSE"
objUser.Put "targetAddress", "SMTP:" & email
objUser.Put "msExchALObjectVersion", "25"
objUser.Put "msExchHideFromAddressLists", "FALSE"
objUser.Put "company", company
objUser.Put "facsimileTelephoneNumber", fax
objUser.Put "l", city
objUser.Put "postalCode", zip
objUser.Put "st", state
objUser.Put "streetAddress", street & vbCrLf & Suite
objUser.Put "telephoneNumber", phone & "Ext. "& extension
objUser.SetInfo

r = r+1

Loop

I hope you find this post helpful.

Regards,

Mark