USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  ASP - Active Server Page    (Miscelâneas)

Título da Dica:  Enviando e-mail com o Dundas
Postada em 30/1/2004 por messohal            
function EnviaEmail(Para,De,corpo,Assunto,boHTML)
Set objMailer = Server.CreateObject("Dundas.Mailer")
  objMailer.SMTPRelayServers.Add("ipdoservidor_dundas")
  objMailer.SMTPRelayServers.item(0)
  objMailer.TOs.Add Para
  objMailer.FromAddress = De
  objMailer.TimeOutSend = 120
  objMailer.Subject = Assunto
   if boHTML = False or cstr(boHTML) = "False" then
    objMailer.Body = corpo
   elseif boHTML = True or cstr(boHTML) = "True" then
    objMailer.HTMLBody = Trim(corpo)
   End if
  objMailer.SendMail

set objMailer  = Nothing
end function
acao=request.QueryString("acao")
If acao="enviar" then  

  txtMsg=""
  txtMsg=txtMsg & "..:: CONTATO DO SITE WWW.SEUDOMINIO.COM.BR ::.." & vbcrlf & vbcrlf
  TxtMsg=TxtMsg & "Nome / Razão Social: " & request.Form("nome_razao") & vbcrlf & vbcrlf
  TxtMsg=TxtMsg & "E-mail             : " & request.Form("email_contato") & vbcrlf
  TxtMsg=TxtMsg & "Telefone           : " & request.Form("telefone") & vbcrlf
  TxtMsg=TxtMsg & "Comentários        : " & request.Form("obs") & vbcrlf
  EnviaEmail rs("email"),trim(lcase(request.form("email_contato"))),TxtMsg,"..:: Contato do Site - www.SEUDOMINIO.com.br ::..","False"  
End if
 


CyberWEB Network Ltda.    © Copyright 2000-2018   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página