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