problem coding an attachment to an e-mail

[Ray]

Hi

I have been trying to modify some code I picked up from
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dno2k3ta/html/odc_ac_olauto.asp

I am uing Office 2003

I have modified most of it to run referencing my form but the attachment
section doesn't work properly. I hope someone can help me

The original code section is as follows

' Add attachments to the message.
If Not IsMissing(AttachmentPath) Then
Set objOutlookAttach = .Attachments.Add(AttachmentPath)
End If

When I first tested the code as the web article suggested it worked fine but
now that I have modified it to read from my form it doesn't work

' Add attachments to the message.
If Not IsNull([fsfrSupportersMessage].[Form]![fAttachment]) Then
Set objOutlookAttach =
..Attachments.Add([fsfrSupportersMessage].[Form]![fAttachment])
End If

No matter what I try objOutlookAttach always show as being
"objOutlookAttach = Nothing" Yet when I point at
([fsfrSupportersMessage].[Form]![fAttachment]) the correct path is reported.

The error message reads "438 Object doesn't support this property or method"

Please I am confused and can't seem to see my way forward on this one. Any
help would be very much appreciated.

Ray

 

[visdev1]

For testing purposes, i would leave the original code alone and change the
value of the existing variables with my data.


AttachmentPath = [fsfrSupportersMessage].[Form]![fAttachment]
' or u could try this:
AttachmentPath = me.fAttachment
' now test to see if the data is valid
stop
If Not IsMissing(AttachmentPath) Then
Set objOutlookAttach = .Attachments.Add(AttachmentPath)
End If