Outlook Attachments NOT visible

Now that I have my rant about Google Search out of the way, I can ask
my question. Someone must have noticed this, but since I can't Google
the Access groups about it, I'll have to just ask:

I'm using Redemption to create a SafeItem, and Microsoft Outlook to
create a mail item. When an attachment is added, it does get sent to the
recipient, but the mail item, when first displayed, doesn't appear to
include
the attachment. It's there ... just not visible. Anyone seen this before?
Is
there a VISIBLE property to attachments?

Not sure if the problem is with Redemption or Outlook. I could test for
that by removing the SafeItem wrapper. I'll try that now.


Set SafeItem = CreateObject("Redemption.SafeMailItem")

' create the Outlook session
Set objOutlook = CreateObject("Outlook.Application")
Set objNS = objOutlook.GetNamespace("MAPI")
objNS.Logon

' create the Message
Set objOutlookMsg = objOutlook.CreateItem(cMailItem)
SafeItem.Item = objOutlookMsg
With SafeItem
.To = strRecipient
.Subject = strSubject
.Body = strBodyText
.ReplyRecipientNames = "bogus@qwest.net"
If Dir(strFile) <"" Then
.Attachments.Add strFile
End If
.Save
.Display

'.Importance = 2 'High =2 low = 1
'.ReadReceiptRequested = True
'.Send
End With

Danny Lesandrini
dlesandrini@hotmail.com

Ok, it was Redemption. If I change the code like this, it works ...

change this ...
to this ...Setting the Outlook mail object attachment doesn't appear to trigger
a security breach, but does add the attachment as visible.

Danny



"dlesandrini" <datafast@comcast.netwrote in message
news:9_ydnU14uKsVFw7bnZ2dnUVZ_gqdnZ2d@comcast.com. ..

On Tue, 10 Jul 2007 07:40:18 -0600, "dlesandrini"
<datafast@comcast.netwrote:

You may want to let Dmitri know about that.
-Tom.