Thiago Gema Postado Setembro 14, 2004 Denunciar Share Postado Setembro 14, 2004 Pessoal como faço para puxar os campos digitados no meu formulario, exemplo Request.Form , e inserir uma pagina como, "Sua mensagem foi enviada" nesse codigo abaixo ?Não estou conseguindo fazer o codigo puxar os campos da pagina do formulario.---------------------------------------------------------------------sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(sch & "sendusing") = 2 ' cdoSendUsingPort .Item(sch & "smtpserver") = "localhost" .update End With Set cdoMessage = CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = "remetente@seudominio.com.br" .To = "destinatario@seudominio.com.br" .Subject = "Assuntod o email" .TextBody = "Conteudo do email" .Send End With Set cdoMessage = Nothing Set cdoConfig = Nothing --------------------------------------------------------------------- Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 dark0 Postado Setembro 14, 2004 Denunciar Share Postado Setembro 14, 2004 Comentarios sobre CDOSYShttp://scriptbrasil.com.br/forum/index.php...ndpost&p=176014 Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Thiago Gema Postado Setembro 14, 2004 Autor Denunciar Share Postado Setembro 14, 2004 Não funcionou....Ele dá "Mensagem enviada" , mas não recebo nada. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest - Thiago - Postado Setembro 14, 2004 Denunciar Share Postado Setembro 14, 2004 Não consigo inserir mais campos e nem edita-los, por exemplo:.From = request.form("email")Só funciona se colocar o email direto, exemplo:.From = "email@dominio.com.br"<% sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(sch & "sendusing") = 2 ' cdoSendUsingPort .Item(sch & "smtpserver") = "localhost" .update End With Set cdoMessage = CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = "email@dominio.com" .To = "email@dominio.com" .Subject = request.form("assunto") .TextBody = request.form("mensagem") .Send End With if return <> 0 then response.write "Erro: " & return else Response.Redirect "index.asp" end if Set cdoMessage = Nothing Set cdoConfig = Nothing %> Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 dark0 Postado Setembro 14, 2004 Denunciar Share Postado Setembro 14, 2004 Mas, o comando: REQUEST.FORM("email") tem algum valor?Se ele estiver em branco, não vai funcionar não... Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest - Thiago - Postado Setembro 14, 2004 Denunciar Share Postado Setembro 14, 2004 Tem sim Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 dark0 Postado Setembro 14, 2004 Denunciar Share Postado Setembro 14, 2004 se você der um response.write nesta variavel, ele mostra o e-mail certo?Tenta usar o TRIM, junto com request, pra ver o que dáeu acho que seu request está com algum valor, que faz com que seja errado, para enviar o email. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest Guest Postado Setembro 14, 2004 Denunciar Share Postado Setembro 14, 2004 Desculpe, com o "TRIM" Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Thiago Gema
Pessoal como faço para puxar os campos digitados no meu formulario, exemplo Request.Form , e inserir uma pagina como, "Sua mensagem foi enviada" nesse codigo abaixo ?
Não estou conseguindo fazer o codigo puxar os campos da pagina do formulario.
---------------------------------------------------------------------
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(sch & "sendusing") = 2 ' cdoSendUsingPort
.Item(sch & "smtpserver") = "localhost"
.update
End With
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
Set .Configuration = cdoConfig
.From = "remetente@seudominio.com.br"
.To = "destinatario@seudominio.com.br"
.Subject = "Assuntod o email"
.TextBody = "Conteudo do email"
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
---------------------------------------------------------------------
Link para o comentário
Compartilhar em outros sites
7 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.