p enviar email com CDOSYS

[baladaclick 0]

Galera seguinte. este código esta funcionando perfeitinho. só quer uma dica. eu quero fazer o sistema enviar um email de confirmação de cadastro p usuario que acabou de se cadastrar. mas não sei como pegar o email que ele digitou e colocar no codigo de destinatário. quem puder ajudar, valeu

 

 

<%
Dim email

nome = request.Form("nome_cadastro")
email = request.Form("email_cadastro")
telefone = request.Form("telefone_cadastro")
cpf = request.form("cpf_cadastro")
rg = request.form("rg_cadastro")


'## Configuração do cabeçalho da mensagem
sDestinatario = [b]"aqui quero o email do usuario que acabou de se cadastrar"[/b]
sRemetente = "email@teste.com.br" 'O endereço de e-mail deve ser uma conta válida do seu próprio domínio.
sResponder = "email@teste.com.br"
sAssunto = "Mensagem automática - DualSense"
sMensagem = "Esta é uma mensagem de confirmação de seu cadastro na promoção Caça ao DualSense, logo abaixo contém os dados pessoais que foram enviados" & vbCrLf & vbCrLf & "Nome: " & request.Form("nome_cadastro") & vbCrLf & "E-mail: " & request.Form("email_cadastro") & vbCrLf & "Fone: " & request.Form("telefone_cadastro") & vbCrLf & "Pergunta: " & request.form("pergunta_cadastro")& vbCrLf & vbCrLf & "Não responda esta mensagem"

' Cria o objeto CDOSYS
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 

'Atualiza a configuração do CDOSYS para envio do e-mail
Set objCDOSYSMail.Configuration = objCDOSYSCon 

' #### CONFIGURAÇÕES DO CABEÇALHO DA MENSAGEM ####
'Configura o remetente(FROM) 
objCDOSYSMail.From = sRemetente 

'Configura o destinatário(TO) 
objCDOSYSMail.To = sDestinatario

'Configura o Reply-To(Responder Para) 
objCDOSYSMail.ReplyTo = sResponder 

'Configura o assunto(SUBJECT) 
objCDOSYSMail.Subject = sAssunto 

'Configura o conteúdo da mensagem 
'Para enviar mensagens no formato HTML, altere o TextBody para HtmlBody 
objCDOSYSMail.TextBody = sMensagem 



' ### ENVIA O E-MAIL ###
objCDOSYSMail.Send 

' ### DESTRÓI OS OBJETOS ### 
Set objCDOSYSMail = Nothing 
Set objCDOSYSCon = Nothing 
response.Redirect("area_usuario.asp")
%>

[Ted k' 126]

via form mesmo, request.form("email_que_esta_no_formulario")

[baladaclick 0]

ted mesmo assim nao ta dando certo. mas acho q sei pq. ele antes de chegar neste codigo CDO, eu passo aintes pelo codigo que cadastra esse usuario no banco de dados e os dados nao estao chegando até esse code. vou mandar p você ver se pode me ajudar

 

<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
' *** Redirect if username exists
MM_flag = "MM_insert"
If (CStr(Request(MM_flag)) <> "") Then
  Dim MM_rsKey
  Dim MM_rsKey_cmd
  
  MM_dupKeyRedirect = "cpf_existente.asp"
  MM_dupKeyUsernameValue = CStr(Request.Form("cpf_cadastro"))
  Set MM_rsKey_cmd = Server.CreateObject ("ADODB.Command")
  MM_rsKey_cmd.ActiveConnection = MM_conn_STRING
  MM_rsKey_cmd.CommandText = "SELECT cpf_cadastro FROM tb_cadastro WHERE cpf_cadastro = ?"
  MM_rsKey_cmd.Prepared = true
  MM_rsKey_cmd.Parameters.Append MM_rsKey_cmd.CreateParameter("param1", 200, 1, 255, MM_dupKeyUsernameValue) ' adVarChar
  Set MM_rsKey = MM_rsKey_cmd.Execute
  If Not MM_rsKey.EOF Or Not MM_rsKey.BOF Then 
	' the username was found - can not add the requested username
	MM_qsChar = "?"
	If (InStr(1, MM_dupKeyRedirect, "?") >= 1) Then MM_qsChar = "&"
	MM_dupKeyRedirect = MM_dupKeyRedirect & MM_qsChar & "requsername=" & MM_dupKeyUsernameValue
	Response.Redirect(MM_dupKeyRedirect)
  End If
  MM_rsKey.Close
End If
%>
<%
' IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
  If condition = "" Then
	MM_IIf = ifFalse
  Else
	MM_IIf = ifTrue
  End If
End Function
%>
<%
If (CStr(Request("MM_insert")) = "form1") Then
  If (Not MM_abortEdit) Then
	' execute the insert
	Dim MM_editCmd

	Set MM_editCmd = Server.CreateObject ("ADODB.Command")
	MM_editCmd.ActiveConnection = MM_conn_STRING
	MM_editCmd.CommandText = "INSERT INTO tb_cadastro (nome_cadastro, cidade_cadastro, email_cadastro, telefone_cadastro, cpf_cadastro, rg_cadastro, senha_cadastro, regulamento_cadastro) VALUES (?, ?, ?, ?, ?, ?, ?, ?)" 
	MM_editCmd.Prepared = true
	MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 255, Request.Form("nome_cadastro")) ' adVarWChar
	MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 255, Request.Form("cidade_cadastro")) ' adVarWChar
	MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 255, Request.Form("email_cadastro")) ' adVarWChar
	MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 255, Request.Form("telefone_cadastro")) ' adVarWChar
	MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 202, 1, 255, Request.Form("cpf_cadastro")) ' adVarWChar
	MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 202, 1, 255, Request.Form("rg_cadastro")) ' adVarWChar
	MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 202, 1, 255, Request.Form("senha_cadastro")) ' adVarWChar
	MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 202, 1, 255, Request.Form("regulamento")) ' adVarWChar
	MM_editCmd.Execute
	MM_editCmd.ActiveConnection.Close

	' append the query string to the redirect URL
	Dim MM_editRedirectUrl
	MM_editRedirectUrl = "envia_cadastro.asp"
	If (Request.QueryString <> "") Then
	  If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
		MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
	  Else
		MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
	  End If
	End If
	Response.Redirect(MM_editRedirectUrl)
  End If
End If

os dados ainda passam por este codigo e nao ta chegando até o cdo. note que eu faço com que ele redirecione para o codigo do cdo. mas nao da certo