Outlook Attachments NOT visible

[dlesandrini]

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 = "bo***@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
dl*********@hotmail.com

[dlesandrini]

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

change this ...

If Dir(strFile) <"" Then
.Attachments.Add strFile
End If

to this ...

If Dir(strFile) <"" Then
objOutlookMsg.Attachments.Add strFile
End If

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

Danny

"dlesandrini" <da******@comcast.netwrote in message
news:9_******************************@comcast.com. ..

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 = "bo***@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
dl*********@hotmail.com

[Tom van Stiphout]

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

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

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

change this ...

> If Dir(strFile) <"" Then
.Attachments.Add strFile
End If

to this ...

> If Dir(strFile) <"" Then
objOutlookMsg.Attachments.Add strFile
End If

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

Danny

"dlesandrini" <da******@comcast.netwrote in message
news:9_******************************@comcast.com ...

>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 = "bo***@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
dl*********@hotmail.com