EMAIL SELECIONANDO DESTINATARIO
pessoal, programo em vb, não manjo de asp, mas tenho umas paginas em dream e flash, preciso de um form q envie email, porém selecione o destinatario em um combo por ex....alguma ajuda ?
Segue abaixo um exemplo, vc pode adaptar ele para sua necessidade, creio que possa te ajudar
<html>
<head>
<title>Teste CDOSYS - Locaweb</title>
</head>
<body>
<!-- Repare que no campo Action, estamos preenchedo com [Ô]?envia=sim[Ô], esta será -->
<!-- a condição utilizada para realizar o envio dos e-mails -->
<form name=[Ô]contato[Ô] action=[Ô]?envia=sim[Ô] method=[Ô]post[Ô]>
<table border=[Ô]0[Ô] cellpadding=[Ô]0[Ô] cellspacing=[Ô]0[Ô]>
<tr>
<td width=[Ô]86[Ô]>Nome:</td>
<td><input name=[Ô]nome[Ô] type=[Ô]text[Ô] size=[Ô]50[Ô] value=[Ô]Teste de envio CDOSYS[Ô]></td>
</tr>
<tr>
<td width=[Ô]86[Ô]>E-mail:</td>
<td><input name=[Ô]emailVisitante[Ô] type=[Ô]text[Ô] size=[Ô]50[Ô] maxlength=[Ô]60[Ô]></td>
</tr>
<tr>
<td width=[Ô]86[Ô]>Assunto:</td>
<td><input name=[Ô]assunto[Ô] type=[Ô]text[Ô] size=[Ô]23[Ô] maxlength=[Ô]60[Ô] value=[Ô]Teste de envio CDOSYS[Ô]>
Telefone: <input name=[Ô]telefone[Ô] type=[Ô]text[Ô] size=[Ô]12[Ô] maxlength=[Ô]14[Ô] value=[Ô](xx) XXXX-XXXX[Ô]></td>
</tr>
<tr>
<td width=[Ô]86[Ô]>Mensagem:</td>
<td><textarea name=[Ô]mensagem[Ô] rows=[Ô]5[Ô] cols=[Ô]42[Ô]></textarea></td>
</tr>
<tr><td width=[Ô]86[Ô]></td><td><input type=[Ô]submit[Ô] value=[Ô]Enviar Mensagem[Ô]> |
<input type=[Ô]reset[Ô] value=[Ô]Apagar Campos[Ô]></td></tr>
</table></form>
<a href=[Ô]http://www.w3schools.com/asp/asp_send_email.asp[Ô]>
Para mais informações sobre o funcionamento do CDOSYS, clique aqui</a><br />
<%
[ô]Aqui estamos recebendo a condição passada pelo formulário, fazendo
[ô]com que o Script em ASP só seja executado caso o formulário seja enviado
If Request.QueryString([Ô]envia[Ô]) = [Ô]sim[Ô] Then
[ô]Aqui configuramos o e-mail que será o Remetente do formulário, lembrando que
[ô]endereço de e-mail deve ser uma conta válida do seu próprio domÃnio.
emailFrom = [Ô][Ô]
[ô]E aqui configuramos o Destinatário do formulário
emailTo = [Ô][Ô]
[ô]Neste ponto capturamos o e-mail digitado no formulário
emailVisitante = request.form([Ô]emailVisitante[Ô])
[ô]Neste ponto capturamos o assunto para preencher no e-mail que será enviado
assunto = Request.Form([Ô]assunto[Ô])
REM Montando o corpo da mensagem com os dados preenchidos no formulário
corpoMensagem = [Ô]Nome: [Ô] & Request.Form([Ô]nome[Ô]) & [Ô]<br />[Ô]
corpoMensagem = corpoMensagem & [Ô]E-mail: [Ô] & Request.Form([Ô]emailVisitante[Ô]) & [Ô]<br />[Ô]
corpoMensagem = corpoMensagem & [Ô]Assunto: [Ô] & Request.Form([Ô]assunto[Ô]) & [Ô]<br />[Ô]
corpoMensagem = corpoMensagem & [Ô]Telefone: [Ô] & Request.Form([Ô]telefone[Ô]) & [Ô]<br />[Ô]
corpoMensagem = corpoMensagem & [Ô]Mensagem: [Ô] & Request.Form([Ô]mensagem[Ô])
[ô]As quebra-linhas utilizadas no campo [Ô]textarea[Ô] não são convertidas para HTML automaticamente,
[ô]fazendo com que tudo que o usuário digite neste campo fique alocado em uma única linha.
[ô]Neste ponto nós convertemos essas quebra-linhas em HTML
corpoMensagem = Replace(corpoMensagem, vbCrLf, [Ô]<br />[Ô])
Set objCDOSYSMail = Server.CreateObject([Ô]CDO.Message[Ô])
[ô]Cria o objeto para configuração do SMTP
Set objCDOSYSCon = Server.CreateObject ([Ô]CDO.Configuration[Ô])
[ô]SMTP
objCDOSYSCon.Fields([Ô]http://schemas.microsoft.com/cdo/configuration/smtpserver[Ô]) = [Ô]localhost[Ô]
[ô]Porta do SMTP
objCDOSYSCon.Fields([Ô]http://schemas.microsoft.com/cdo/configuration/smtpserverport[Ô]) = 25
[ô]Porta do CDO
objCDOSYSCon.Fields([Ô]http://schemas.microsoft.com/cdo/configuration/sendusing[Ô]) = 2
[ô]Timeout
objCDOSYSCon.Fields([Ô]http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout[Ô]) = 30
objCDOSYSCon.Fields.update
Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = emailFrom & [Ô] <[Ô] & emailFrom & [Ô]>[Ô]
objCDOSYSMail.To = emailTo
[ô]O campo ReplyTo pode ser preenchido com o e-mail do visitante do site evitando
[ô]assim a necessidade de preencher o campo From incorretamente com o e-mail do visitante
objCDOSYSMail.ReplyTo = emailVisitante
[ô]objCDOSYSMail.Cc = [Ô]comCopia@dominio[Ô]
[ô]objCDOSYSMail.Bcc = [Ô]comCopiaOculta@dominio[Ô]
objCDOSYSMail.Subject = assunto
[ô]Configura e preeche o corpo da mensagem
objCDOSYSMail.HtmlBody = corpoMensagem
[ô]Envia o e-mail
objCDOSYSMail.Send
[ô]DestruÃmos os objetos utilizados
set objCDOSYSMail = nothing
set objCDOSYSCon = nothing
response.write [Ô]<h1>Mensagem enviada com sucesso!!</h1>[Ô]
response.write [Ô]Mensagem enviada de: [Ô]&emailFrom&[Ô]<br />[Ô]
response.write [Ô]Mensagem enviada para: [Ô]&emailTo&[Ô]<br />[Ô]
response.write [Ô]Resposta do e-mail será enviada para: [Ô]&emailVisitante&[Ô]<br />[Ô]
response.write [Ô]<p>Conteúdo do e-mail enviado: <br />[Ô]&corpoMensagem&[Ô]</p>[Ô]
response.write [Ô]<a href=javascript:history.go(-1) target=_self>Voltar</a>[Ô]
End if
%>
</body>
</html>
<html>
<head>
<title>Teste CDOSYS - Locaweb</title>
</head>
<body>
<!-- Repare que no campo Action, estamos preenchedo com [Ô]?envia=sim[Ô], esta será -->
<!-- a condição utilizada para realizar o envio dos e-mails -->
<form name=[Ô]contato[Ô] action=[Ô]?envia=sim[Ô] method=[Ô]post[Ô]>
<table border=[Ô]0[Ô] cellpadding=[Ô]0[Ô] cellspacing=[Ô]0[Ô]>
<tr>
<td width=[Ô]86[Ô]>Nome:</td>
<td><input name=[Ô]nome[Ô] type=[Ô]text[Ô] size=[Ô]50[Ô] value=[Ô]Teste de envio CDOSYS[Ô]></td>
</tr>
<tr>
<td width=[Ô]86[Ô]>E-mail:</td>
<td><input name=[Ô]emailVisitante[Ô] type=[Ô]text[Ô] size=[Ô]50[Ô] maxlength=[Ô]60[Ô]></td>
</tr>
<tr>
<td width=[Ô]86[Ô]>Assunto:</td>
<td><input name=[Ô]assunto[Ô] type=[Ô]text[Ô] size=[Ô]23[Ô] maxlength=[Ô]60[Ô] value=[Ô]Teste de envio CDOSYS[Ô]>
Telefone: <input name=[Ô]telefone[Ô] type=[Ô]text[Ô] size=[Ô]12[Ô] maxlength=[Ô]14[Ô] value=[Ô](xx) XXXX-XXXX[Ô]></td>
</tr>
<tr>
<td width=[Ô]86[Ô]>Mensagem:</td>
<td><textarea name=[Ô]mensagem[Ô] rows=[Ô]5[Ô] cols=[Ô]42[Ô]></textarea></td>
</tr>
<tr><td width=[Ô]86[Ô]></td><td><input type=[Ô]submit[Ô] value=[Ô]Enviar Mensagem[Ô]> |
<input type=[Ô]reset[Ô] value=[Ô]Apagar Campos[Ô]></td></tr>
</table></form>
<a href=[Ô]http://www.w3schools.com/asp/asp_send_email.asp[Ô]>
Para mais informações sobre o funcionamento do CDOSYS, clique aqui</a><br />
<%
[ô]Aqui estamos recebendo a condição passada pelo formulário, fazendo
[ô]com que o Script em ASP só seja executado caso o formulário seja enviado
If Request.QueryString([Ô]envia[Ô]) = [Ô]sim[Ô] Then
[ô]Aqui configuramos o e-mail que será o Remetente do formulário, lembrando que
[ô]endereço de e-mail deve ser uma conta válida do seu próprio domÃnio.
emailFrom = [Ô][Ô]
[ô]E aqui configuramos o Destinatário do formulário
emailTo = [Ô][Ô]
[ô]Neste ponto capturamos o e-mail digitado no formulário
emailVisitante = request.form([Ô]emailVisitante[Ô])
[ô]Neste ponto capturamos o assunto para preencher no e-mail que será enviado
assunto = Request.Form([Ô]assunto[Ô])
REM Montando o corpo da mensagem com os dados preenchidos no formulário
corpoMensagem = [Ô]Nome: [Ô] & Request.Form([Ô]nome[Ô]) & [Ô]<br />[Ô]
corpoMensagem = corpoMensagem & [Ô]E-mail: [Ô] & Request.Form([Ô]emailVisitante[Ô]) & [Ô]<br />[Ô]
corpoMensagem = corpoMensagem & [Ô]Assunto: [Ô] & Request.Form([Ô]assunto[Ô]) & [Ô]<br />[Ô]
corpoMensagem = corpoMensagem & [Ô]Telefone: [Ô] & Request.Form([Ô]telefone[Ô]) & [Ô]<br />[Ô]
corpoMensagem = corpoMensagem & [Ô]Mensagem: [Ô] & Request.Form([Ô]mensagem[Ô])
[ô]As quebra-linhas utilizadas no campo [Ô]textarea[Ô] não são convertidas para HTML automaticamente,
[ô]fazendo com que tudo que o usuário digite neste campo fique alocado em uma única linha.
[ô]Neste ponto nós convertemos essas quebra-linhas em HTML
corpoMensagem = Replace(corpoMensagem, vbCrLf, [Ô]<br />[Ô])
Set objCDOSYSMail = Server.CreateObject([Ô]CDO.Message[Ô])
[ô]Cria o objeto para configuração do SMTP
Set objCDOSYSCon = Server.CreateObject ([Ô]CDO.Configuration[Ô])
[ô]SMTP
objCDOSYSCon.Fields([Ô]http://schemas.microsoft.com/cdo/configuration/smtpserver[Ô]) = [Ô]localhost[Ô]
[ô]Porta do SMTP
objCDOSYSCon.Fields([Ô]http://schemas.microsoft.com/cdo/configuration/smtpserverport[Ô]) = 25
[ô]Porta do CDO
objCDOSYSCon.Fields([Ô]http://schemas.microsoft.com/cdo/configuration/sendusing[Ô]) = 2
[ô]Timeout
objCDOSYSCon.Fields([Ô]http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout[Ô]) = 30
objCDOSYSCon.Fields.update
Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = emailFrom & [Ô] <[Ô] & emailFrom & [Ô]>[Ô]
objCDOSYSMail.To = emailTo
[ô]O campo ReplyTo pode ser preenchido com o e-mail do visitante do site evitando
[ô]assim a necessidade de preencher o campo From incorretamente com o e-mail do visitante
objCDOSYSMail.ReplyTo = emailVisitante
[ô]objCDOSYSMail.Cc = [Ô]comCopia@dominio[Ô]
[ô]objCDOSYSMail.Bcc = [Ô]comCopiaOculta@dominio[Ô]
objCDOSYSMail.Subject = assunto
[ô]Configura e preeche o corpo da mensagem
objCDOSYSMail.HtmlBody = corpoMensagem
[ô]Envia o e-mail
objCDOSYSMail.Send
[ô]DestruÃmos os objetos utilizados
set objCDOSYSMail = nothing
set objCDOSYSCon = nothing
response.write [Ô]<h1>Mensagem enviada com sucesso!!</h1>[Ô]
response.write [Ô]Mensagem enviada de: [Ô]&emailFrom&[Ô]<br />[Ô]
response.write [Ô]Mensagem enviada para: [Ô]&emailTo&[Ô]<br />[Ô]
response.write [Ô]Resposta do e-mail será enviada para: [Ô]&emailVisitante&[Ô]<br />[Ô]
response.write [Ô]<p>Conteúdo do e-mail enviado: <br />[Ô]&corpoMensagem&[Ô]</p>[Ô]
response.write [Ô]<a href=javascript:history.go(-1) target=_self>Voltar</a>[Ô]
End if
%>
</body>
</html>
FUNÇÃO ASSIM EU JA TENHO, PRECISO COM SELEÇÃO DE DESTINATARIO, NÃO ESTOU CONSEGUINDO MONTAR O COMBO E ENVIAR PARA O EMAIL SELECIONADO NO COMBO....
seu combo esta puxando a lista de onde? banco de dados?
seria, preenchido manualmente mesmo,,coisa simples. tipo adminstração, fiscal, etc -- ou outra opção q de pra selecionar pra qual email da empresa a pagina vai enviar...
vamos lá, vamos ver se entendi, pra montar um select do combo
<select name=[Ô]xpto[Ô] id=[Ô]xpto[Ô]>
<option value=[Ô]0[Ô]>---</option>
<option value=[Ô]1[Ô]>Administração</option>
<option value=[Ô]2[Ô]>Fiscal</option>
<option value=[Ô]3[Ô]>Opção 3</option>
<option value=[Ô]4[Ô]>Opção 4</option>
<option value=[Ô]5[Ô]>Opção N</option>
</select>
pra recuperar o valor escolhido em uma outra página que dará o ok se o email foi enviado ou não
emailAoEnviar = request.Form([Ô]xpto[Ô])
creio que seja isso, qualquer coisa estamos ai
<select name=[Ô]xpto[Ô] id=[Ô]xpto[Ô]>
<option value=[Ô]0[Ô]>---</option>
<option value=[Ô]1[Ô]>Administração</option>
<option value=[Ô]2[Ô]>Fiscal</option>
<option value=[Ô]3[Ô]>Opção 3</option>
<option value=[Ô]4[Ô]>Opção 4</option>
<option value=[Ô]5[Ô]>Opção N</option>
</select>
pra recuperar o valor escolhido em uma outra página que dará o ok se o email foi enviado ou não
emailAoEnviar = request.Form([Ô]xpto[Ô])
creio que seja isso, qualquer coisa estamos ai
Tópico encerrado , respostas não são mais permitidas