|
|
|
|
|
|
|
|
Dicas
|
|
|
ASP - Active Server Page (Miscelâneas)
|
|
 |
Título da Dica: Enviar email com o componente SmartMail
|
 |
|
|
|
Postada em 24/3/2004 por Martini
<%
Dim Destino, Nome, Email, Comentario, Erro, rst, SQL, Mensagem
Destino = trim(Request("Destino"))
Nome = trim(Request("Nome"))
Email = trim(Request("Email"))
Comentario = trim(Request("Comentario"))
if Destino = "" then
Erro = 1 'destino não pode ser em branco
Response.Redirect("Fale_Conosco_Erro.asp?Erro="&Erro)
elseif Nome = "" then
Erro = 2 'nome não pode ser em branco
Response.Redirect("Fale_Conosco_Erro.asp?Erro="&Erro)
elseif Email = "" or instr(Email, "@") = 0 then
Erro = 3 'email não pode ser em branco ou inválido
Response.Redirect("Fale_Conosco_Erro.asp?Erro="&Erro)
elseif Comentario = "" then
Erro = 4 'comentario não pode ser em branco
Response.Redirect("Fale_Conosco_Erro.asp?Erro="&Erro)
end if
Comentario = Comentario & vbcrlf & vbcrlf & "Nome: " & Nome & vbcrlf & "E-mail: " & Email
' Comentario = Comentario & vbcrlf & vbcrlf & "Nome: " & Nome & vbcrlf & "E-mail: " & Email & vbcrlf & vbcrlf & "Para deixar de ser assimante do CSNes " & "http://www.meusite.com.br/Excluir_Email.asp?Email=meuemail@meudominio.com.br"
On error resume next
Set Email = Server.CreateObject("aspSmartMail.SmartMail")
'Mail Server
'***********
Email.Server = "meuservidordeemail.com.br"
'From
'****
Email.SenderName = "Meu Nome"
Email.SenderAddress = "Meu email"
'To
'**
if Destino = "Compras" then
Email.Recipients.Add "meuemail@medominio.com.br", "Dpto Compras"
elseif Destino = "Desenvolvimento" then
Email.Recipients.Add "meuemail@medominio.com.br", "Dpto Desenvolvimento"
elseif Destino = "Diretoria" then
Email.Recipients.Add "meuemail@medominio.com.br", "Diretoria"
Email.Recipients.Add "leandro@centersul.inf.br", "Diretoria"
elseif Destino = "Suporte" then
Email.Recipients.Add "meuemail@medominio.com.br", "Dpto Suporte Técnico"
elseif Destino = "Vendas" then
Email.Recipients.Add "meuemail@medominio.com.br", "Dpto Vendas"
end if
'Message
'*******
Email.Subject = "Fale Conosco"
Email.Body = Comentario
'Send the message
'****************
Email.SendMail
if Err <> 0 then
Erro = 5
Response.Redirect("Fale_Conosco_Erro.asp?Erro="&Erro)
else
Response.Redirect("Fale_Conosco_Ok.asp")
end if
%>
|
|
|
|
|
