K
Klemens
I'm using redemption to assemble a new mail with a list of recipients
from a different source. My code looks like this,,,
oSaveMail.Item = moMailItem
Set oRecipient = oApptItem.Recipients(i)
' ignore resources etc
Set oSaveRecp = oSaveMail.Recipients.AddEx(strRecipient, , , olTo)
oSaveRecp.Resolve False
strRecipient = oRecipient.Address
'set mail "To" and resolve
oSaveMail.To = strRecipients
oSaveMail.Recipients.ResolveAll
'moMailItem.Recipients.ResolveAll
As a result the recipients in the "To" field are not underlined. But I
want the m to be. When I use the last line instead, it becomes
underlined but shows a security popup.
Any idea?
- Klemens
from a different source. My code looks like this,,,
oSaveMail.Item = moMailItem
Set oRecipient = oApptItem.Recipients(i)
' ignore resources etc
Set oSaveRecp = oSaveMail.Recipients.AddEx(strRecipient, , , olTo)
oSaveRecp.Resolve False
strRecipient = oRecipient.Address
'set mail "To" and resolve
oSaveMail.To = strRecipients
oSaveMail.Recipients.ResolveAll
'moMailItem.Recipients.ResolveAll
As a result the recipients in the "To" field are not underlined. But I
want the m to be. When I use the last line instead, it becomes
underlined but shows a security popup.
Any idea?
- Klemens