document.write('
');
document.write('\'*******************************************************************************
');
document.write('\' Distribution List Generator v0.1
');
document.write('\'
');
document.write('\' Jeremy Edmiston (JeremyEdmiston@PointLoma.edu)
');
document.write('\' Point Loma Nazarene University
');
document.write('\'
');
document.write('\' Modified 09/20/2006
');
document.write('\'*******************************************************************************
');
document.write('\'
');
document.write('\' Purpose: To create an Outlook Distribution List from a text file
');
document.write('\'
');
document.write('\' Usage: When executed, will browse for a file
');
document.write('\' Can be called with file path as parameter for auto-creation
');
document.write('\'
');
document.write('\' File: The file to be loaded must contain one name per row with the format:
');
document.write('\' [FirstName] [LastName] [EmailAddress]
');
document.write('\' or [Name] [EmailAddress]
');
document.write('\' or [EmailAddress]
');
document.write('\'
');
document.write('\' Warning: Outlook Security will prompt to allow access, this is by design
');
document.write('\'
');
document.write('\'*******************************************************************************
');
document.write('
');
document.write('On Error Resume Next
');
document.write('
');
document.write('\'Check for parameter
');
document.write('Set objArgs = WScript.Arguments
');
document.write('if objArgs.Count = 0 then
');
document.write(' Set oFileBrowser = CreateObject("UserAccounts.CommonDialog")
');
document.write(' oFileBrowser.ShowOpen
');
document.write(' oFile = oFileBrowser.FileName
');
document.write('else
');
document.write(' oFile = objArgs(0)
');
document.write('end if
');
document.write('
');
document.write('\'Instatiate Outlook
');
document.write('Set oApp = Wscript.CreateObject("Outlook.Application")
');
document.write('
');
document.write('\'Create the Distribution List Object
');
document.write('Set oDL = oApp.CreateItem(7)
');
document.write('
');
document.write('\'Create a mail item (DL do not allow direct access to members by design)
');
document.write('Set oMail = oApp.CreateItem(olMailItem)
');
document.write('Set oRecip = oMail.Recipients
');
document.write('
');
document.write('\'Open file and process records
');
document.write('Set objFSO = CreateObject("Scripting.FileSystemObject")
');
document.write('Set FS = objFSO.OpenTextFile(oFile,1)
');
document.write('i = 0
');
document.write('Do While FS.AtEndOfStream <> True
');
document.write(' strNextLine = FS.Readline
');
document.write(' oRecip.Add strNextLine
');
document.write(' i = i + 1
');
document.write('Loop
');
document.write('FS.Close
');
document.write('
');
document.write('\'Add members from the mail recipients
');
document.write('oDL.AddMembers oRecip
');
document.write('oDL.display()
');
document.write('
');
document.write('Wscript.Quit
');
document.write('
');
document.write('
');