> Is it possible to make this work for an email mail merge?
>
>
> --
> Melissa
>
>
> "Doug Robbins - Word MVP" wrote:
>
>> You could possibly make use of the information in the article at:
>>
>>
http://cornell.veplan.net/article.aspx?&a=3815>>
>> but it will not do the whole thing for you. You would then have to split
>> up
>> the document that is produced into the part for each manager so that they
>> could be individually emailed.
>>
>> Alterntively, if you create a Catalog (on in Word XP and later, it's
>> called
>> Directory) type mailmerge main document with the mergefields in the cells
>> of
>> a one row table in the mailmerge main document with the keyfield
>> (Manager's
>> Name)in the first cell in the row and then execute that merge to a new
>> document and then run the following macro, it will create separate tables
>> with the records for each Manager in them. With a bit of further
>> development, you may be able to get it to do what you want. Most of what
>> you would need for the modification is contained in the article "Mail
>> Merge
>> to E-mail with Attachments" at:
>>
>>
http://word.mvps.org/FAQs/MailMerge/MergeWithAttachments.htm>>
>> ' Macro to create multiple items per condition in separate tables from a
>> directory type mailmerge
>> Dim source As Document, target As Document, scat As Range, tcat As Range
>> Dim data As Range, stab As Table, ttab As Table
>> Dim i As Long, j As Long, k As Long, n As Long
>> Set source = ActiveDocument
>> Set target = Documents.Add
>> Set stab = source.Tables(1)
>> k = stab.Columns.Count
>> Set ttab = target.Tables.Add(Range:=Selection.Range, numrows:=1,
>> numcolumns:=k - 1)
>> Set scat = stab.Cell(1, 1).Range
>> scat.End = scat.End - 1
>> ttab.Cell(1, 1).Range = scat
>> j = ttab.Rows.Count
>> For i = 1 To stab.Rows.Count
>> Set tcat = ttab.Cell(j, 1).Range
>> tcat.End = tcat.End - 1
>> Set scat = stab.Cell(i, 1).Range
>> scat.End = scat.End - 1
>> If scat <> tcat Then
>> ttab.Rows.Add
>> j = ttab.Rows.Count
>> ttab.Cell(j, 1).Range = scat
>> ttab.Cell(j, 1).Range.Paragraphs(1).PageBreakBefore = True
>> ttab.Rows.Add
>> ttab.Cell(j + 1, 1).Range.Paragraphs(1).PageBreakBefore = False
>> For n = 2 To k
>> Set data = stab.Cell(i, n).Range
>> data.End = data.End - 1
>> ttab.Cell(ttab.Rows.Count, n - 1).Range = data
>> Next n
>> Else
>> ttab.Rows.Add
>> For n = 2 To k
>> Set data = stab.Cell(i, n).Range
>> data.End = data.End - 1
>> ttab.Cell(ttab.Rows.Count, n - 1).Range = data
>> Next n
>> End If
>> Next i
>>
>>
>> --
>> 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
>>
>> "Danielle_P" <Danielle_P[ at ]discussions.microsoft.com> wrote in message
>> news:55C0A03C-6324-4B1B-AB8D-102337EED5EF[ at ]microsoft.com...
>> > Hello all:
>> >
>> > I am spending way too much time on this one.
>> >
>> > I am pulling a report in Excel. This report shows individual records
>> > for
>> > many employees. The issue is that I want to send this data to the
>> > employee's
>> > manager in one message instead of 100 individual emails. I am doing
>> > this
>> > for
>> > 200 + managers on their 5000+ employees.
>> >
>> > I do have a common Excel column that lists the manager's name and email
>> > address. Can I batch on this field to send all of the data in one
>> > email?
>> >
>> > I can't tell you how much I would appreciate any advice anyone has for
>> > me.
>> >
>> > Thank you so much
>> >
>>
>>
>>