<span class="gmail_quote"></span>I have the below script to play around with contact lists in outlook. When it runs, I get a popup in outlook asking me if i want to gve the script access, I say yes, it seesm to run okay, but no new distribution list in my contact folder is created. I have very similar VBA code which runs just fine as a macro and creates the list, any ideas? Thanks! -Michael
<br><div style="direction: ltr;"><br>import win32com.client<br>import sys, os<br><br>myOlApp = win32com.client.Dispatch("Outlook.Application")<br><br>myNameSpace = myOlApp.GetNamespace("MAPI")<br>myDistList =
myOlApp.CreateItem(win32com.client.constants.olDistributionListItem
)<br>myTempItem = myOlApp.CreateItem(win32com.client.constants.olMailItem)<br>myRecipients = myTempItem.Recipients<br><br>myDistList.DLName = "Test"<br>myRecipients.Add("(Test Name) <a href="mailto:ghe@stimd.org" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">
ghe@stimd.org</a>")<br>myRecipients.ResolveAll<br>myDistList.AddMembers(myRecipients)<br> <br>myTempItem2 = myOlApp.CreateItem(win32com.client.constants.olMailItem)<br>myRecipients2 = myTempItem2.Recipients<br>myRecipients2.Add
("(Mr. Vlarg) <a href="mailto:vlarg@poop.org" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">vlarg@poop.org</a>")<br>myRecipients2.ResolveAll<br>myDistList.AddMembers(myRecipients2)<br>
<br>myTempItem3 = myOlApp.CreateItem(win32com.client.constants.olMailItem
)<br>myRecipients3 = myTempItem3.Recipients<br>myRecipients3.Add("<a href="mailto:ghe@stimd.org" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">ghe@stimd.org</a>")<br>myRecipients3.ResolveAll
<br>myDistList.RemoveMembers(myRecipients3)<br> <br>myDistList.Save
<br>myDistList.Display<br>
</div>