Corpo da mensagem e Como determinar para qual e-mail vai a mensagem?

[logan_pa 0]

Olá Galera tenho duas dúvidas.

 

Primeira dúvida:

Como determinar para qual e-mail vai a mensagem?

 

Eu pensei em fazer algo assim mais não funcionou:

<select name="departamento" id="departamento">		  <option value="e-mailum@user.com.br">Um</option>		 <option value="e-maildois@user.com.br">Dois</option>		 <option value="e-mailtres@user.com.br">Tres</option>		 <option value="e-mailquatro@user.com.br">Quatro</option>

 

 

<%	Dim sTemp		Set Mail = Server.CreateObject("Persits.MailSender")	Mail.IsHTML = true  'Servidor de SMTP	Mail.Host = "exc2"	Mail.From = Request.Form("email") 'E-mail do remetente	Mail.FromName = Request.Form("nome") 'Remetente	Mail.AddAddress "e-mail@user.com.br", "Titulo do Email"  'Destinatário	Mail.Subject = "Titulo do Email" 'Assunto da mensagem	' Corpo do Email	sTemp = "<big>Mensagem enviada por:</big><br><br>"	sTemp = sTemp & "<b>Departamento: </b>" & request.form("departamento") & "<br><br>"	sTemp = sTemp & "<b>Nome: </b>" & request.form("nome") & "<br><br>"	sTemp = sTemp & "<b>E-mail: </b>" & request.form("email") & "<br><br>"	sTemp = sTemp & "<b>Tipo de inscrição: </b>" & request.form("assunto") & "<br><br>"	sTemp = sTemp & "<b>Mensagem: </b>" & request.form("mensagem") & "<br><br>"		Mail.Body = sTemp		On Error Resume Next	Mail.Send	If Err <> 0 Then	 	Response.Write "Algum erro ocorreu. Tente novamente.<br> " & Err.Description	else  		Response.Redirect("confirmacao.htm")	end if		%> <%Set Mail = Nothing%>

Segunda dúvida:

Utilizando o mesmo script acima, como faço para formatar a fonte, tamanho cor?...

 

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[logan_pa 0]

Não funcionou...