<% 'Autoriza a página a ser visualizada sem protecao autorizacao = 1 if(Session("assinante") < 1) then response.redirect("acessorestritoassinantes.asp") end if %> <% 'Autoriza a página a ser visualizada sem protecao autorizacao = 1 %> <% if request.form("controle") = 1 then 'Criando o objeto Set CDOMail = Server.CreateObject("CDO.Message") 'Criando a instância Set CDOCon = Server.CreateObject ("CDO.Configuration") 'Host CDOCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.julianocarneiro.com.br" 'Porta CDOCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'Porta do CDO CDOCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'SMTP Autenticado = 1 CDOCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'Usuário CDOCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "eu@julianocarneiro.com.br" 'Senha CDOCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "leadership1012" 'Timeout (segundos) CDOCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 CDOCon.Fields.update Set CDOMail.Configuration = CDOCon 'Nome e email do Remetente CDOMail.From = "Juliano " 'Nome e email do Destinatário CDOMail.To = "Juliano " 'Assunto CDOMail.Subject = "Dúvida recebida pelo e-learning" 'Corpo de mensagem TextoHTML = "Dúvida recebida pelo e-learning
" TextoHTML = TextoHTML & "Nome:" & request.form("nome") & "
" TextoHTML = TextoHTML & "Email: " & request.form("email") & "
" TextoHTML = TextoHTML & "Assinante: " & Session("assinante") & "
" TextoHTML = TextoHTML & "Dúvidas:
" TextoHTML = TextoHTML & request.form("mensagem") CDOMail.HTMLBody = TextoHTML 'Para envio em HTML, altere TextBody para HtmlBody 'CDOMail.HtmlBody = "

Texto de seu email

" 'Enviando CDOMail.Send 'Finalizando Set CDOMail = Nothing Set CDOCon = Nothing 'Confirmando Sucesso = "Sua dúvida foi enviada. Em breve será respondida no e-mail cadastrado." '''''CDONTS DESABILITADO 'Set objmail = Server.CreateObject("CDONTS.NewMail") ' objmail.MailFormat = 0 ' objmail.BodyFormat = 0 ' objmail.from = request.QueryString("email") ' objmail.to = "eu@julianocarneiro.com.br" ' objmail.subject = "Contato enviado pelo Portal." ' objmail.body = request.querystring("nome") & " - " & request.querystring("mensagem") ' objmail.send ' sucesso = "Seu e-mail foi enviado com sucesso!
" ' response.write ("enviadonovamente.asp") end if %>
ações, bolsa de valores, investimentos, mercado financeiro, investimento, acoes, corretora, home-broker, home broker, homebroker, corretora, trading, trader, analise técnica, analise tecnica, análise técnica, curso, cursos, fórum, chat, gráficos, grafico, graficos, gráfico, forum, brasil, brazil, forex, metastock, educação, educacao, educaçao, educacão, artigo, artigos, mercado, dinheiro, finanças, economia, investimento

Este espaço é destinado para esclarecimento de dúvidas diretamente com Juliano Carneiro.

Envie sua dúvida preenchendo o formulário abaixo:

Nome:

E-mail:

Dúvida:
" readonly>
" readonly>

<%=sucesso%>
 

Caso encontre dificuldades na plataforma de e-learning, entre em contato.
E-mail: moderador@julianocarneiro.com.br