aspmail / combobox

[menina 0]

Bom Dia,

 

tenho uma pagina de envio de email que possui um combo onde a pessoa escolhe para quem quer enviar o email, no scrip em asp que eu tenho de exemplo o destinatario é fixo"""" Mailer.AddRecipiente"""""""Nome","endereço de email". Gostaria de saber como fazer para buscar na pagina html que tem o combo box o email selecionado.....

 

Alguém pode me ajudar??

 

Obrigada

abaixo script em asp...

<%
' Cria o componente aspmail
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
' Nome do Remetente
Mailer.FromName = "Teste Email"
' E-mail do Rementente
Mailer.FromAddress= "email do meu dominio"
' Servidor de envio de e-mail
Mailer.RemoteHost = "localhost"
' Nome / Endereço de quem recebera o E-mail
Mailer.AddRecipient "Sandra", "sandra@meu dominio.com.br" """ COMO COLOCAR AQUI PARA BUSCAR AS INFORMAÇÕES DO COMBO BOX"""""""
' Assunto do E-mail
Mailer.Subject = "Teste Formulário de E-mail: ASPMAIL"
' Campo da mensagem

Mailer.BodyText = "Dados" & vbCrLf & vbCrLf & _
"Nome: "& Request.form("Nome") & vbCrLf & _
"Assunto: "& Request.form("Assunto") & vbCrLf & _
"E-Mail: "& Request.form("Email") & vbCrLf & _
"Mensagem: "& Request.form("Mensagem")

if Mailer.SendMail then
Response.Write "E-mail enviado"
else
Response.Write "Erro no envio do e-mail. Erro: " & Mailer.Response
end if

%>

[razs 0]

Ola,

 

Visto que estas a ir buscar os dados a um form basta fazeres o mesmo com o endereço, colocas o select dentro desse form e pronto

 

endereco = Request.form("endereco_de_email")

 

Mailer.AddRecipient = endereço

 

Penso que isto basta para funcionar.

Ve este exemplo:

sch = "http://schemas.microsoft.com/cdo/configuration/" 
Set cdoConfig = Server.CreateObject("CDO.Configuration") 

cdoConfig.Fields.Item(sch & "sendusing") = 2 
cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1 
cdoConfig.Fields.Item(sch & "smtpusessl") = False
cdoConfig.Fields.Item(sch & "smtpserverport") = 25
cdoConfig.Fields.Item(sch & "smtpserver")   = "localhost" 
cdoConfig.Fields.Item(sch & "sendusername") = "mail_de_envio@dominio.com"
cdoConfig.Fields.Item(sch & "sendpassword") = "minha_pass"
cdoConfig.fields.update 

Set cdoMessage = Server.CreateObject("CDO.Message") 
Set cdoMessage.Configuration = cdoConfig 

sto=request.form("sto")
sbcc=request.form("sbcc")
ssubject=request.form("ssubject")
html_body=request.form("html_body")

cdoMessage.From = "mail_de_envio@dominio.com"
cdoMessage.To = sTo
cdoMessage.Bcc = sBcc
cdoMessage.Subject = sSubject 
cdoMessage.CreateMHTMLBody html_body


x = cdoMessage.Send

[xanburzum 169]

apenas recupere o valor do campo com o request.form("nome do combo") e depois atribui ele na variável

Mailer.AddRecipient = endereço

 

vc pode também colocar um evento de OnChange no combo que assim que selecionar o destinátário já envia o email ou abre a página do mesmo