ENVIAR E-MAIL COM COPIA PARA OUTRO DESTINATARIO

USUARIO.EXCLUIDOS 26/04/2007 12:13:43
#213855
Boa Tarde pessoal !

Preciso implementar uma alteração neste código para que envie uma copia do e-mail para outro destinatario (Para o administrador) que quer controlar se os vendedores estao mesmo enviando e-mails para os clientes.

Estou usando o código:


<%
	dim nomeremetente, email, nomedestinatario, emaildestinatario, assunto, mensagem, site, resultado

	 nomeremetente = request.Form("nomeremetente")
	 email = "vendas@empresa.com.br"
	 nomedestinatario = request.Form("nomedestinatario")
	 emaildestinatario = request.Form("emaildestinatario")
	 mensagem = request.Form("mensagem")
	 site= "http://www.empresa.com.br/produto.asp"

	Set objmail = Server.CreateObject("CDONTS.NewMail")
	objmail.from = nomeremetente & "<" & email & ">"
	objmail.to = nomedestinatario & "<" & emaildestinatario & ">"
	objmail.subject = "Produto da Empresa"
	objmail.BodyFormat = 1 ' formato texto, se quiser em html trocar para 0
	objmail.MailFormat = 1 ' formato texto, se quiser em html trocar para 0
	objmail.body = mensagem & "  " & site

	on error resume next
	objmail.send

	if err then
		resultado = "Problemas no envio: " & err.description
	else
		resultado = "Enviado com sucesso"
	end if

	set objmail = Nothing
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<%=resultado%>
</body>
</html>



Se alguem puder me ajudar agradeço.

Claudiney
USUARIO.EXCLUIDOS 26/04/2007 19:52:53
#213937 Resposta escolhida
Dineysil,

Se não me engano, basta vc colocar a seguinte instrução:

objmail.cc = nomedestinatario & "<" & emaildestinatario & ">"
USUARIO.EXCLUIDOS 27/04/2007 08:01:25
#213961
acho que ta faltando uma virgula
objmail.cc = nomedestinatario & ",<" & emaildestinatario & ">"
Tópico encerrado , respostas não são mais permitidas
Voltar