oSafeItem = CreateObject("Redemption.SafeMailItem") 
***** set subject & body *******
oSafeItem.save()
.
.
Then I have to do the following to get
the "safeItem" to "instantly" display
.
.
oMsg = oSafeItem.Item
oMsg.Attachments.Add((A1))   && maybe add an attachment
oMsg.save
oMsg.Display