View Single Post
  #6   Report Post  
Posted to microsoft.public.word.mailmerge.fields
Doug Robbins - Word MVP Doug Robbins - Word MVP is offline
external usenet poster
 
Posts: 8,832
Default "Mail Merge to E-mail with Attachments" skipping files?

If it works for some of them and not for all of them, then there must be a
problem with the path\filenames for the records that do not get the files
attached.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"Kaffee" wrote in message
...
Hi Doug,

I got the same problem with Marcus, I have about 7xx emails but only the
first 150 email is with attachments and the others do not have any
attachment. But within the 150 emails with attachment, part of them with
the
correct names merged into the email.

I am sure the path of the attachments are correct since I just do the copy
and paste to all the records.

Please help.
"Doug Robbins - Word MVP" wrote:

Marcus,

Are you sure that the path\filenames of all of the attachments are one
hundred percent correct? 99.9999% is not good enough. Just one space in
the wrong place or one space too many in a path\filename with spaces will
cause the attachment to be ignored.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"marcus" wrote in message
...
Hi Doug,
The table of attachments was created using a directory mail merge, with
email in the first column, a pdf file in the second and a word document
in
the third column. When it didn't work the first time around I swapped
some
of the files around ie word file with a pdf and that has made no
difference.
The file is saved in a doc file.

I have also checked that the code is cycling through the table by
adding a
MsgBox to read out the file name currently being handled and both files
get
picket up but only the last one gets included in the mail.

For i = 2 To Maillist.Tables(1).Columns.Count
Set Datarange = Maillist.Tables(1).Cell(j, i).Range
' Line added below
MsgBox "Datarange is " & Datarange.Text
Datarange.End = Datarange.End - 1
oItem.Attachments.Add Trim(Datarange.Text), olByValue, 2
Next i

I am a bit stumped!

Thanks for your help.