Outlook Technologies

Outlook Forms

Looking for help with Outlook programming projects — VSTO, add-ins, VBA, custom Outlook forms, etc.? You′ve come to the right place!

NEW! >> Subscribe to this site via RSS. For more RSS options, see the complete list of feeds on our main news page.

Code level: intermediate Code area: Basic Outlook Printer Friendly Version
Title: Create a distribution list with Redemption
Description: This code sample uses Outlook Redemption to avoid security prompts when creating a personal distribution where a trusted Outlook 2003 Application object is not available.
Date: 30-Nov-2005 01:19
Code level: intermediate
Code area: Basic Outlook
Posted by: Sue Mosher
Body: Sub MakePrivateDL() Dim ol As Outlook.Application Dim ns As Outlook.NameSpace Dim myDL As Outlook.DistListItem Dim rDL As Redemption.SafeDistList Set ol = CreateObject("Outlook.Application") Set ns = ol.GetNamespace("MAPI") Set myDL = ol.CreateItem(olDistributionListItem) Set rDL = CreateObject("Redemption.SafeDistList") myDL.Save strEntryID = myDL.EntryID rDL.Item = myDL rDL.AddMemberEx "Someone", "someone@somewhere.com", "SMTP" rDL.AddMemberEx "Someone Else", "someone2@somewhere.com", "SMTP" rDL.Save Set rDL = Nothing Set myDL = Nothing Set myDL = ns.GetItemFromID(strEntryID) myDL.display Set myDL = Nothing Set rDL = Nothing End Sub
All 0comments

name email