<% '********************************************************************** ' '**** CRIAR ARQUIVO QUE IMPORTA OS CONTATOS DO SITE PARA O MYSQL ***** ' '********************************************************************** ' on error resume next set conn = Server.Createobject("ADODB.Connection") conn.open application("conexao"),"","" Nome = "Teste envio Email" email = "teste@malvis.com.br" Corpo = "Este é apenas um teste de envio de email pelo site, favor desconsiderar." ' TESTE ENVIO DE EMAIL' set mail = server.createobject("persits.mailsender") mail.host = vSmtp mail.Port = 587 mail.username = vUsername mail.password = vPassword mail.subject = "Contato - " & vNome mail.AddCC vEmail, vNome mail.from = vEmail mail.AddReplyTo email mail.fromname = nome mail.body = corpo mail.ishtml = true mail.send set mail = nothing %> Checklist Site

Título e Descrição:


<% if vTitle = "" then %> <%end if%>Titulo: <%=vTitle%>
<% if vDescription = "" then %> x <%end if%> Descrição: <%=vDescription%>
<% if vKeywords = "" then %> x <%end if%>Keywords: <%=vKeywords%>

Envio de email:


Domínio: <%=vDominio%>
SMTP: <%=vSmtp%>
Usuário: <%=vUsername%>
Senha: <%=vPassword%>
Email Destino: <%=vEmail%>
<% If Err.Number <> 0 Then Response.Write "x Envio de email com Falha: " & (Err.Description & " ") testeemail = "Erro: " & Err.Description else Response.Write "Envio de email OK ! x" testeemail = "Envio de email OK !" End If conn.execute("insert into checklist (site,smtp,usuario,senha,emaildestino,testeenviaemail,title,descricao,Keywords) values ('" & vDominio & "','" & vSmtp & "','" & vUsername & "','" & vPassword & "','" & vEmail & "','" & testeemail & "','" & vTitle & "','" & vDescription & "','" & vKeywords & "')") set conn = nothing %>

Topo Email: