Trying to add an outlook attachment to a table w attachment field

[Pack10]

I am trying to add an email attachment to an attachment type field in a table thru code. Does anyone have a routine that does this so I can see what I am doing wrong.
This is my code.

For Each Atmt In objMessage.Attachments
strFileName = Atmt.FileName
Set fldAttach = rstChild.Fields("FileData")
fldAttach.LoadFromFile strFileName
rstChild.Update

Next Atmt

 

[PHV]

What about this ?
...
strFileName = "C:\TEMP\" & Atmt.DisplayName
atmt.SaveAsFile strFileName
...

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Pack10]

Hi

How do I get it into the attachment field in a table.
I am building a split form for a supervisor and I want her to be able to click on the paper clip icon and see the attachments in the grid. The attachment field will look like a paper clip. When clicked the items saved in the field will display. I can't seem to get the files into the attachment field.
Any help would be great. Thanks