<%
Dim Mail ' objeto mail
Dim FromName ' nome do remetente
Dim FromEmail ' endereço de E-mail do remetente
Dim ToEmail ' endereço do destinatario
Dim ToEmail2 ' endereço do destinatario
Dim ToEmail3 ' endereço do destinatario
Dim Subject, strBody ' corpo da mensagem
Dim FromFone ' telefone
Dim ThisPage ' o endereco do seu site
Dim RefPage ' a referencia URL
Dim Val_Input ' variável Booleana usada na validação
Dim meusmtp
Dim minhacontaautenticada
Dim minhasenhaparaenvio
'Abaixo seguem algumas definicoes de variaveis para o envio de seu formulario. Por favor preencha os campos abaixo.
meusmtp = "mail.serviteste.com.br" ' Informacoes so seu servidor SMTP
minhacontaautenticada = "serviteste@serviteste.com.br" ' conta de e-mail utilizada para enviar
minhasenhaparaenvio = "controle95KB" ' senha da conta de e-mail
emaildestino = "celsopierini@serviteste.com.br" ' e-mail que vai receber as mensagens do formulario
emaildestino2 = "lucianofirmino@serviteste.com.br" ' e-mail que vai receber as mensagens do formulario
emaildestino3 = "" ' e-mail que vai receber as mensagens do formulario
'Configura para enviar e-mail Com Cópia
'AspEmail.AddCC "nome1@dominio.com.br", "Nome"
'AspEmail.AddCC "nome2@dominio.com.br", "Nome"
'Fim da definição manual de parâmetros.
' Retorna o nome do arquivo de script e a url da pagina
ThisPage = Request.ServerVariables("SCRIPT_NAME")
RefPage = Request.ServerVariables("HTTP_REFERER")
strBody = Trim(Request.Form("Message"))
Subject = Trim(Request.Form("Subject"))
FromFone = Trim(Request.Form("FromFone"))
ToEmail = emaildestino
ToEmail2 = emaildestino2
ToEmail3 = emaildestino3
FromName = Trim(Request.Form("FromName"))
FromEmail = Trim(Request.Form("FromEmail"))
val_ent = True
val_ent = val_ent And FromName <> ""
val_ent = val_ent And val_email(FromEmail)
val_ent = val_ent And val_email(ToEmail)
val_ent = val_ent And val_email(ToEmail2)
Response.Charset="ISO-8859-1"
If val_ent Then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = meusmtp
Mail.Port = 587
Mail.Username = minhacontaautenticada
Mail.Password = minhasenhaparaenvio
Mail.From = FromEmail
Mail.FromName = FromName
Mail.AddAddress ToEmail
Mail.AddCC ToEmail2
Mail.AddBCC ToEmail3
Mail.Subject = Subject
Mail.Subject = Subject
Mail.Body = "Falando com Serviteste"& vbCrLf & _
"Nome:"& Request("FromName")& vbCrLf & _
"E-Mail:"& Request("FromEmail")& vbCrLf & _
"Telefone:"& Request("FromFone")& vbCrLf & _
"Assunto:"& Request("Subject")& vbCrLf & _
"Mensagem:"& Request("Message")
Mail.Send
mensagem_erro = ""
if err <> 0 then
mensagem_erro = "Ocorreu o erro: " & Err.description
end if
Mail.CharSet = "ISO 8859-1"
Set Mail = Nothing
on error goto 0
response.write "
Sua mensagem foi enviada com sucesso!"
Else
If "http://" & Request.ServerVariables("HTTP_HOST") & ThisPage = RefPage Then
Response.Write "Verifique os campos por favor!" & vbCrLf
End If
Forms_x ThisPage, FromName, FromEmail, FromFone, Subject, strBody
End If
Function val_email(strEmail)
Dim xVal
xVal = True
If Len(strEmail) <5 Then
xVal = False
Else
If Instr(1, strEmail, " ") <> 0 Then
xVal = False
Else
If InStr(1, strEmail, "@", 1) <2 Then
xVal = False
Else
If InStrRev(strEmail, ".") <_
InStr(1, strEmail, "@", 1) + 2 Then
xVal = False
End If
End If
End If
End If
val_email = xVal
End Function
Sub Forms_x (strPageName, FromName, FromEmail, FromFone, Subject, strBody) %> <% End Sub %>