|
|
|
|
|
|
|
|
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
|
|
|
|
|
