M
ML
I have an application that among others will generate a new contact
list into a specific pst file with data coming from my db. I need to
get rid of the security message that I get buy invoking the
Recipients. I am not sure how to integrate Redemption to my code and
make it work. Please show me some samples that will use this method,
I need to overcome this item to complete my application.
This is a my code with one item to add that works fine except for the
security dialog. I use a brief method here, but my actual method will
crate many DL with many items on each.
'-----------------------------------------------------------------------
Dim LGPDistList As DistListItem
Dim myTempItem As MailItem
Dim myRecipients As Recipients
'-----------------------------------------------------------------------
'--gol is set as oulook application
'--MyItems is pointing to my contact item in my contact folder of my
pst
'-----------------------------------------------------------------------
Set LGPDistList = MyItems.Add(olDistributionListItem)
Set myTempItem = gol.CreateItem(olMailItem)
Set myRecipients = myTempItem.Recipients
LGPDistList.DLName = "Testing"
myRecipients.Add "A valid address here"
LGPDistList.AddMembers myRecipients
LGPDistList.Save
list into a specific pst file with data coming from my db. I need to
get rid of the security message that I get buy invoking the
Recipients. I am not sure how to integrate Redemption to my code and
make it work. Please show me some samples that will use this method,
I need to overcome this item to complete my application.
This is a my code with one item to add that works fine except for the
security dialog. I use a brief method here, but my actual method will
crate many DL with many items on each.
'-----------------------------------------------------------------------
Dim LGPDistList As DistListItem
Dim myTempItem As MailItem
Dim myRecipients As Recipients
'-----------------------------------------------------------------------
'--gol is set as oulook application
'--MyItems is pointing to my contact item in my contact folder of my
pst
'-----------------------------------------------------------------------
Set LGPDistList = MyItems.Add(olDistributionListItem)
Set myTempItem = gol.CreateItem(olMailItem)
Set myRecipients = myTempItem.Recipients
LGPDistList.DLName = "Testing"
myRecipients.Add "A valid address here"
LGPDistList.AddMembers myRecipients
LGPDistList.Save