R
Ray
Hi
I posted this in a access group and then later read a response to another
question that made me realise I should have posted here. Sorry about the
double post.
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
I posted this in a access group and then later read a response to another
question that made me realise I should have posted here. Sorry about the
double post.
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