[Resolvido] Enviar 1 Formulario Para Varios Emails

[aprendiz5 0]

tem mais codigo mais eu preciso fazer o seguinte que ester formulario com os campos sejam enviado ele envia pra um email so ja mas quero

que envie para 2 emails ou mais ao msm tempo !!

 

ja tentei criar outra variavel mais nao funciona ja tentei colocar ; e tbm nao funciona !!!

 

alguem tem uma Ideia ai pra me passar ?

 

 

mensagem = Replace(mensagem,chr(13),"<br>") 'Trocando o caractere 13 (ENTER) por quebra de linha
			mensagem = Replace(mensagem, vbCrLf, "<BR>")  ' Inserindo a quebra de linha
			mensagem = Replace(mensagem, " ", " ")	

  Function EnviaMail2(vbody, vToNome, vToEmail, vFromNome, vFromEmail, vAssunto)
	Dim objMessage
	Dim vResultado
	vResultado = 0
	Set objMessage = CreateObject("CDO.Message")
	'On Error Resume Next
	objMessage.Subject = vAssunto 
	objMessage.From = vFromNome & " <" & vFromEmail & ">"
	objMessage.To = vToNome & " <" & vToEmail & ">"
	objMessage.HTMLBody = vbody
	objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
	objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "server-1.netguestdns.com.br"
	objMessage.Configuration.Fields.Update
	objMessage.Send
	if err.number <> 0 then
	  vResultado = 0
	else
	  vResultado = 1
	end if
	set objMessage = nothing
	EnviaMail2 = vResultado
  End Function
	
  'Corpo da Mensagem
  strBody = "Olá"
  
  'Nome Destinatário
  strToNome = "Marketing"
  'Email Destinatário
  strToEmail = "marketing@proar.aero"
  
  'Nome do Rementente
  strFromNome = nome
  'Email do Rementente (conta cadastrada no smpt do cliente)
  strFromEmail = email
  
  'Assunto da mensagem
  strAssunto = "Avaliação"

  
  If EnviaMail2(strBody, strToNome, strToEmail, strFromNome, strFromEmail, strAssunto) = 1 then
	strResultSend = "Sua mensagem foi enviada com sucesso!"
  Else
	strResultSend = "Sua mensagem não foi enviada. Verifique os parâmetros"
  End if

  response.Write strResultSend
  response.End
 
%>

[DSerma 19]

Utilize o "CC"

 

objMessage.CC = "email1@lala.net"
objMessage.CC = "email2@lala.net"
objMessage.CC = "email3@lala.net"

Abraços..

[aprendiz5 0]

da uma ajudinha ond coloca isso ai !!

[DSerma 19]

Mais ajuda q isso.. ai é fod#

AiuhIUAiuAiuiuaAuhA

 

Já tentou em baixo do "objMessage.TO" ???

 

¬¬

[aprendiz5 0]

coloquei ja xD

 

o ruim eh q so chegou pra mim !! no mail to e os cc nao foram

[DSerma 19]

Como você colocou ??

[aprendiz5 0]

fiz um negocio ake deu certo vlws lek !

 

o f*** q ele envia 2 emaisl junto UASHaushAU COM AS MSM coisas

 

ele envia so q vai 2 pra cada email

 

funcionou vlws mlk @!!!!!