Database Search

TechHome

Redemption

• Add Attachment to Journal Item
• Adding Contact Information into Outlook
• Compiled EXE Keeps Running Under Task Manager
• Copy Contacts Folder to Subfolder in Outlook
• Create a Folder under Personal Folders in Outlook
• Create Outlook Distribution List
• Creating Address Book XML File
• Current Contact Folder Items
• Delete Mail from Outlook using OLE
• Delete Outlook Contact
• Email Forwarder
• Embed an Image into an Outlook Email
• Empty Folder in Outlook
• Encrypt Message in Outlook
• Find Contacts in Outlook
• Find Folder with the String Mailbox
• Get Internet headers Field from Outlook Message
• Get Contact data form Contact Item Currently Selected in Outlook
• Get Contact Information In Outlook
• Get Internet headers Field from Outlook Message
• Get list of appointments
• Get member of Outlook Distribution List
• Get Outlook Contact information
• How to Send Mail from Outlook using OLE
• Identify Outlook Folder Type or Contents
• Import Excel Data into Outlook Contact Folder
• Launch Outlook and Make Visible
• List Subfolders
• Mark Messages as Read in Outlook using OLE
• ObjectEventAdd To Capture ItemSend Event
• OLE and OUTLOOK check mail
• OLE and OUTLOOK read mail other than inbox
• OLE and OUTLOOK read mail
• OLE MAPI Choose Folder
• OLE_Outlook- add Entry to Address book
• Outlook - Get Oldest Email Message
• Outlook constants
• Outlook Contacts to XML
• Outlook PST to MSG Export
• Outlook Quit Event
• Outlook Received Date
• Outlook Reply-To in OLE
• Outlook Sendmail OLE Example
• Outlook Version
• Read Open Active Outlook Message
• Recurse Outlook folders
• Redemption Causes WinBatch Studio to Crash
• Rename Personal Folder in Oulook
• Save file attachments in Outlook
• Save outlook attachments
• Send to Multiple Recipients
• Sort Email by Received Time
• TypeOf Equivalent
• Use Existing Instance Or Create a New One If Necessary
• Using OLE to resolve name in Outlook
• WinBatch and Redemption Issue
• Writing Appointments to Outlook

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Create Outlook Distribution List

#DefineFunction CreateDistributionList(distlist,file)
	objApp = ObjectOpen("Outlook.Application")
	objNameSpace = objApp.GetNamespace("MAPI")
	
	if !FileExist(file) then exit
	handle = FileOpen(file,"READ")
	
	;define constants
	olFolderContacts = 10
	olDistributionList = 69 
	olDistributionListItem = 7
	olContact = 40
	olMailItem = 0
	olContactItem = 2
	
	;delete contact list if already present
	objContactFolder = objNameSpace.GetDefaultFolder(olFolderContacts)
	
	objItems = objContactFolder.Items
	For ii = 1 to objItems.count
		objitem = objItems.item(ii)
	   If objitem.class == olDistributionList 
	      myDistListItem = objitem
			dlname = myDistListItem.DLName
	      If StrLower(myDistListItem.DLName) == StrLower(distlist)
	        myDistListItem.Delete() ; ensure starting with new DL
	      EndIf
	   EndIf
	Next
	
	ObjectClose(objContactFolder)
	ObjectClose(objItems)
	
	objContactFolder = objNameSpace.GetDefaultFolder(olFolderContacts)
	
	objDistList = objApp.CreateItem(olDistributionListItem)
	objDistList.DLName = distlist
	
	While @True
		line = FileRead(handle)
		if line == "*EOF*" then break
	   fname = ItemExtract(1,line,",")
		lname = ItemExtract(2,line,",")
		email = ItemExtract(3,line,",")
	   readfullname = StrCat(fname," ",lname)
	   AlreadyThere = @False
	
		objItems = objContactFolder.Items
		count = objItems.count
		For jj = 1 to count
			objItem = objItems.item(jj)
		   If objitem.class == olContact
				fullname = objitem.FullName
		      If StrLower(fullname) == StrLower(readfullname)
		        AlreadyThere = @True
		      EndIf
		   EndIf
			ObjectClose(objItem)
		Next
		
		If !AlreadyThere;Create the new Contact
	      objContact = objApp.CreateItem(olContactItem)
	      objContact.FullName = readfullname
	      objContact.Email1Address = email
	      objContact.Save()
			ObjectClose(objContact)
	   EndIf
	      
	   ;Create the Distribution List item
	   objDistList.DLName = distlist  ; Seems redundant but this line is needed
	   objMailItem = objApp.CreateItem(olMailItem)
	   objRecipients = objMailItem.Recipients
	   objRecipients.Add(email);A Contact with the following e-mail address must exist for the AddMembers method to work
	   objRecipients.ResolveAll
	   objDistList.AddMembers(objRecipients)
	   objDistList.Save() 
		ObjectClose(objRecipients)
	   ObjectClose(objMailItem)
		ObjectClose(objItems)
	EndWhile
	
	FileClose(Handle)
	
	ObjectClose(objDistList)
	ObjectClose(objContactFolder)
	ObjectClose(objNameSpace)
	ObjectClose(objApp)
	return 1
#EndFunction


distlistname = "TestDistlist"
file = "c:\temp\contacts.csv"
CreateDistributionList(distlistname,file)
Message("","Done")

Article ID:   W16091

File Created: 2004:03:30:15:42:48

Last Updated: 2004:03:30:15:42:48