Sergey,

this is my SendMail procedure. With lDirectSend = .F. the mail will be
displayed and send manually and everything works fine.
With lDirectSend = .T. which means no display no address I try will
be resolved. I have no idea about what is wrong?

Update: This seems to be a problem with the Redemption.SafeMailItem.
If I try the resolve with the original Outlook MailItem it will
work.

Thx for your help
Manfred

*----------------schnipp-------------------------------------------------
lParameters cAddress, cSubject, cBody, lDirectSend

This.oNamespace.Logon

local oMail, oMailItem, oRecipient
oMailItem = This.oOutlook.CreateItem(olMailItem)
oMail = createobject("Redemption.SafeMailItem")
oMail.Item = oMailItem

oRecipient = oMail.Recipients.Add(cAddress)

oMail.Subject = cSubject
oMail.Body = cBody
if lDirectSend
...if oRecipient.Resolve()
......oMail.Save
......oMail.Send
...else
......error "Outlook.SendMail: Address "+cAddress+;
........." can not be resolved!"
...endif
else
...oMail.Display(.T.) && modal display

...wait window "log off" nowait
...This.oNamespace.Logoff
endif
*---------------------schnapp-------------------------------