Hi Peter
See my site for examples
http://www.rondebruin.nl/sendmail.htm
Look also on the Outlook tips page
--
Regards Ron de Bruin
http://www.rondebruin.nl
"periro16" wrote in message
...
Code:
--------------------
.....
Email = ""
For Each cell In Sheets("Sheet1").Range("B1:B3")
Next cell
Email = WorksheetFunction.Substitute(Email, vbNewLine, "%0D%0A")
......
--------------------
WHen I run the code, I am not getting the email addresses put into the
'To' field in outlook. I dont know why its not picking up the email
addresses starting from B1 up to B3?? 
I am using a forloop
in the program so it runs three times
Many thnx
Peter
--
periro16
------------------------------------------------------------------------
periro16's Profile: http://www.excelforum.com/member.php...o&userid=26345
View this thread: http://www.excelforum.com/showthread...hreadid=396485