[Doug Robbins - Word MVP]

Modify the code in the macro as follows:

With oItem
.Subject = mysubject
.Body = ActiveDocument.Content
Set Datarange = Maillist.Tables(1).Cell(Counter, 1).Range
Datarange.End = Datarange.End - 1
.To = Datarange
Set Datarange = Maillist.Tables(1).Cell(Counter, 2).Range
Datarange.End = Datarange.End - 1
.CC = Datarange
For i = 3 To Maillist.Tables(1).Columns.Count
Set Datarange = Maillist.Tables(1).Cell(Counter, i).Range
Datarange.End = Datarange.End - 1
.Attachments.Add Trim(Datarange.Text), olByValue, 1
Next i
.Send
End With


--
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

"Twisty1980" wrote in message
...
Hello,

I have read previous threads and have successfully implemented the email
with attachments VBA code.

However I want to extend this to include the CC operator.

My directory contains the following headings: Email | CC | Attachment1
|....

I need the code to also include the corresponding line value in the CC
column.

Any help you can give would be great.