Te envio un codigo que utilizo para hacer lo que tu comentas.
Para la parte del cuerpo (body) lo que hago es me compongo la pagina aparte y luego la incorporo añadiendole las comillas.
Con un bucle segun tus usuarios y la instruccion MAIL.ADDRESS "
[email protected]"
iras añadiendo los destinatarios
(tendras tantas lineas MAIL.ADDRESS... como destinatarios)
Espero te sirva.....
<%
cText="<STYLE>" & chr(13) & chr(10)
cText=cText & ".indexr { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; font-weight: bold; color: #CC0000; text-decoration: none}" & chr(13) & chr(10)
cText=cText & ".texto { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; color: #000000}" & chr(13) & chr(10)
cText=cText & ".titulo { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 18px; font-weight: normal; color: #003366}" & chr(13) & chr(10)
cText=cText & "</STYLE>" & chr(13) & chr(10)
cText=cText & "<body bgcolor=""#FFFFFF"" text=""#000000"" leftmargin=""0"" topmargin=""0"" marginwidth=""0"" marginheight=""0"">" & chr(13) & chr(10)
cText=cText & "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"" height=""100""> " & chr(13) & chr(10)
cText=cText & "<tr> <td class=""texto"">Estimado/a " & Session("cUsuario") & "</td></tr>" & chr(13) & chr(10)
cText=cText & "<tr><td> </td></tr> " & chr(13) & chr(10)
cText=cText & "<tr><td class=""texto""> Aqui pones lo que quieras................</td></tr> " & chr(13) & chr(10)
cText=cText & "<tr><td class=""texto"" height=""51"">......Agradecemos el tiempo y la confianza dedicados.......</td></tr> " & chr(13) & chr(10)
cText=cText & "<tr><td class=""indexr"">.............</td></tr> " & chr(13) & chr(10)
cText=cText & "<tr><td > </td></tr> " & chr(13) & chr(10)
cText=cText & "<tr><td ><hr></td></tr> " & chr(13) & chr(10)
cText=cText & "<tr><td class=""texto"">Desarrollos ..............</td></tr> " & chr(13) & chr(10)
cText=cText & "</table>"
Set Mail=Server.CreateObject("Persits.MailSender")
Mail.Host="correo.SERVIDOR.com"
Mail.Port=25
Mail.From="
[email protected]"
Mail.FromName = "Nombre que quieres que aparezca"
Mail.Subject=" El subject del correo"
Mail.IsHtml=True
Mail.Body=cText
' Tus destinatarios
Mail.AddAddress aQuien
'
Mail.AddBcc "
[email protected]"
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error: " & Err.Description
End if
%>