How to add recipients in Redemption?

B

Bingo

Set oRdpRecipients = oRdpMail.Recipients
Set oRdpRecipient = oRdpRecipients.Add("Bingo")
oRdpRecipient.Resolve True
oRdpRecipient.Type = 1

Set oRdpRecipient = oRdpRecipients.Add("Bingo")
oRdpRecipient.Resolve True
oRdpRecipient.Type = 2


oRdpRecipient is nothing in the first place. If I move
the cursor to the second recipient, it is not nothing but
Recipient has no name. What did I do wrong? Thanks.
 
B

Bingo

I actually first get rid of the recipients and then add
the one I need. It seems if I do not get rid of the
recipients, I'm able to add more to it. But once I
delete all the recipients, I cannot add again. What's
wrong? Thanks.


lTotal = oRdpRecipients.Count
For lCnt = lTotal To 1 Step -1
oRdpRecipients.Remove lCnt
Next lCnt
 
D

Dmitry Streblechenko \(MVP\)

How do you create oRdpMail and set the Item property? What is the Outlook
version?

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
 
B

Bingo

Outlook 2000 on Win XP. But we'll need to support all
versions of Outlook.

Set oRdpMail = CreateObject("MyDLL.MySafeMailItem")
oRdpMail.Item = oMapiMail
 
B

Bingo

Dmitry,

Now I switched the steps a bit. I first added the
recipients I need and then deleted those original
recipients from the SafeMailItem's recipients
collection. Now I got a MS outlook message, saying that
some of the recipients are not valide. When I displayed
the message, both To and Cc are empty fields. Please let
me know what the right steps to do this in Redemption.
Thanks.
 
B

Bingo

I sent an email to (e-mail address removed). Let me know if
you have not received that. Thanks.
 
B

Bingo

I sent you another email with the steps of my code. I
still cannot add recipients to the SafeRecipients
collection after I first purge the collection. Thanks.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

How to work with Redemption SafeMailItem and Outlook MailItem? 2
How to use Redemption and Mapi GetSharedDefaultFolder together in VB? 3
Failed to resolve recipient in Redemption? 6
VBA-Table Word 2019 - Move a selected text, from a cell to the adjacent cell to its right, by pressing the ENTER key 0
Word macro that can call cells out of Excel for a find and replace 0
Page numbering with Merged Document and IF statements 1
Converting URLs in comments to Markdown-formatted links 2
Amending meeting cancels all future meetings 0

Top