Hello all,

I hope you can assist.

I found a snipet of code on microsoft.public.access to send email from
Access, using
Redemption to get around the Outlook security warnings.  All works
well, except for attaching a file.  Or rather, I *thought* the file
wasn't getting attached.

Further testing indicates that the file does indeed get attached, but
when I preview the email to be sent, the attachment does not get
displayed.  I am using Outlook 2002, and send all my mails in text
format.

Can anyone point me in the right direction to display the attachment?
I know I can tell by the size of the email if there is an attachment,
but my users need to be able to tell which file is being attached.

Thanks

++++

I select the file to attach via a dialogue box, which loads the full
path of the file to attach in txtPath.

Here's my variation on the code, could anyone explain why it won't
attach the files?  And what I need to do to fix it?

Private Sub cmdAEGScience_Click()

 Dim safemail As Variant
 Dim myOlApp
 Dim MyItem
 Dim myRecipient
 Dim myBody
 Dim myfolder
 Dim mynamespace
 Dim myAttachments
 Dim Utils
 Dim strSendTo As String
 Dim strCC As String
 Dim strAttachPath As String
 Dim strAttachPath2 As String
 Dim AEGs As String

AEGs = "bla bla bla"

 strSendTo = Me.cmbPaperCoord
 strCC = Me.txtAddy & "@domain.com"
 strAttachPath = Me.txtPath
 'strAttachPath2 = "FullPathToFile"

 Set myOlApp = CreateObject("Outlook.Application")
 Set MyItem = myOlApp.CreateItem(0)
 Set safemail = CreateObject("Redemption.SafeMailItem")
 Set safemail.Item = MyItem
 Set mynamespace = myOlApp.GetNamespace("MAPI")
 'mynamespace.Logon "myProfile", "myPassword", True, True ' Choose a
Profile
 Set myfolder = mynamespace.GetDefaultFolder(5)
 With safemail
 .Recipients.Add (strSendTo) ' Send To
 .CC = strCC ' Carbon Copy
 .Attachments.Add (strAttachPath) ' Attachment 1
 '.Attachments.Add (strAttachPath2) ' Attachment 2
 .Subject = "AEG - " & Me.txtStuLName & " - " & Me.txtStuID ' Email
Subject Text here
 .Body = AEGs ' Text for Email Body
 '.Importance = olImportanceHigh  ' High importance
 '.ReadReceiptRequested = True
 .OriginatorDeliveryReportRequested = True
 .Display
 '.Send
 End With

 Set Utils = CreateObject("Redemption.MAPIUtils")
 Utils.DeliverNow

 Set myOlApp = Nothing
 Set safemail = Nothing
 Set Utils = Nothing
 'MsgBox "Mail Sent", vbInformation, "Mail Sent..."

End Sub