add an inventory item to a word doc if there is a Y in column C

[fitful_thought]

Hi,

This code from ron de bruin sends an e-mail to each address in column B if
there is a Y in column C.

For Each cell In
Sheets("Sheet1").Columns("B").Cells.SpecialCells(xlCellTypeConstants)
If cell.Offset(0, 1).Value <> "" Then
If cell.Value Like "*@*" And cell.Offset(0, 1).Value = "y" Then
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.To = cell.Value
.Subject = Cells(1, 4)
.Body = "Dear " & cell.Offset(0, -1).Value & "," &
vbNewLine & vbNewLine & strbody
'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
.Display
'.Send 'Or use Display
End With
Set OutMail = Nothing
End If
End If
Next cell

If column B contained an inventory list, could the above code be amended to
add an inventory item to a word doc if there is a Y in column C?

Thanks in advance for any assistance.
DL

 

[keepITcool]

why do you post a procedure that is intended for email,
while you want to work with Word NOT Outlook?

search google on "excel export word"
and you should find a more appropriate example.

try for instance here:
http://www.erlandsendata.no/english/index.php?d=envbaolecontrolword



keepITcool

< email : keepitcool chello nl (with @ and .) >
< homepage: http://members.chello.nl/keepitcool >

 

[fitful_thought]

That's useful.

Thanks.

DL

why do you post a procedure that is intended for email,
while you want to work with Word NOT Outlook?

search google on "excel export word"
and you should find a more appropriate example.

try for instance here:
http://www.erlandsendata.no/english/index.php?d=envbaolecontrolword



keepITcool

< email : keepitcool chello nl (with @ and .) >
< homepage: http://members.chello.nl/keepitcool >