CDO.Message : Enviado E-Mail

17/03/2008

Agência OFF, desenvolvimento de soluções web para as Agências Digitais

Enviado E-Mail com CDO.Message

Arquivo: Default.html

><html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Enviar E-Mail</title>
</head>
<body>
<table width="279" border="0" cellspacing="2" cellpadding="0">
<form method="post" name="Formulario" action="Enviar.asp">
<tr>
<td width="87">Nome:</td>
<td width="186"><input type="text" name="Nome"></td>
</tr>
<tr>
<td>E-Mail:</td>
<td><input type="text" name="EMail"></td>
</tr>
<tr>
<td valign="top">Mensagem:</td>
<td valign="top"><textarea name="Mensagem" rows="4"></textarea></td>
</tr>
<tr>
<td>&nbsp;</td>
<td><input type="submit" name="button" value="Enviar Mensagem"></td>
</tr>
</form>
</table>
</body>
</html>

Arquivo: Enviar.asp

<%
Dim Sch : Sch = "www.schemas.microsoft.com/cdo/configuration/"
Dim TedkConfig, TedkMessage, Erro, Sucesso, Msg_HTML
Set TedkConfig = Server.CreateObject("CDO.Configuration")

' Dodos principais de envio, coloque os dados de seu dominio aqui!
With (TedkConfig)
.Fields.Item(Sch & "sendusing") = 2
.Fields.Item(Sch & "smtpauthenticate") = 1
.Fields.Item(Sch & "smtpserver") = "smtp.dominio.com.br"
.Fields.Item(Sch & "sendusername") = "contato=dominio.com.br"
.Fields.Item(Sch & "sendpassword") = "contatosenha" 'Não hã necessidade de senha, só para autenticação 2.
.Fields.Update
End With

Set TedkMessage = Server.CreateObject("CDO.Message")
Set TedkMessage.Configuration = TedkConfig

With (TedkMessage)
.From = """"&Request.Form("Nome")&""" <"&Request.Form("EMail")&">" ' Quem envio a mensagem, com nome e e-mail
.To = "contato@dominio.com.br" ' Quem Vai receber a mensagem
.BCC = "administrador@dominio.com.br" ' Caso queira uma cópia oculta
.Subject = "Mensagem enviada de Exemplo" ' Assunto da Mensagem
.ReplyTo = Request.Form("EMail") ' Retorna mensagem de erro para o e-mail do rementente
End With

' Enviado o Corpo da Mensagem
Msg_HTML = "<table width='279′ border='0′ cellspacing='2′ cellpadding='0′><tr>"
Msg_HTML = Msg_HTML & "<td width='87′>Nome:</td><td width='186′>"&Request.Form("Nome")&"</td>"
Msg_HTML = Msg_HTML & "</tr><tr><td>E-Mail:</td><td>"&Request.Form("EMail")&"</td></tr><tr><td valign='top'>Mensagem:</td>"
Msg_HTML = Msg_HTML & "<td valign='top'>"&Request.Form("Mensagem")&"</td></tr></table>"

TedkMessage.HTMLBody = Msg_HTML

' Caso a mensagem seja diferente de vazio envia como Texto
If Msg_HTML <> "" Then
TedkMessage.AutoGenerateTextBody = False
TedkMessage.TextBody = Msg_HTML
End If

Erro = ""
Sucesso = False
On Error Resume Next ' Forçando a não aparecer a linha do erro

TedkMessage.Send

' Finalizando os Recordset's
Set TedkMessage = Nothing
Set TedkConfig = Nothing

' Verificando algum erro existente e colocando na página
If Err <> 0 Then : Erro = Err.Description : Else : Sucesso = True : End If

' Mensagem de Resposta
Response.Write("<script>alert('Mensagem Enviada com Sucesso');location='Default.html'</script>")
%>

Qualquer dúvida é só comentar:

Díca: Acesse também http://www.webly.com.br/

Agência OFF, desenvolvimento de soluções web para as Agências Digitais


por Ted k' |
16 Comentários |
ASP

16 Respostas para CDO.Message : Enviado E-Mail

  1. Jonathan Xavier 07/04/2008 at 10:23 AM | Permalink |

    Bom dia, cara ñ entendi onde eu coloco as minhas configurações nesse código, como eu faço o uso desse script ?

  2. Ted k' 07/04/2008 at 4:01 PM | Permalink |

    Em TedkConfig.Fields.Item(Sch & “smtpserver”) você coloca seu servidor SMTP

    Em TedkConfig.Fields.Item(Sch & “sendusername”) coloque um e-mail válido do seu dominio, não precisa colocar senha

    em TedkMessage.From vc coloca seu e-mail

    Em TedkMessage.To coloque o e-mail de destino

    nas variáveis MsgHtml coloque o corpo da mensagem e pronto!!!

    qualquer coisa fala æ!!

  3. Jonathan Xavier 16/04/2008 at 4:02 PM | Permalink |

    Ok preciso instalar alguma dll, ou algo do tipo para rodar esse script ???

  4. Ted k' 18/04/2008 at 9:59 AM | Permalink |

    Não esse componente é nativo do Windows, é só configurar no IIS

  5. João 12/09/2008 at 12:04 AM | Permalink |

    Se eu for colocar ele no Server, como jah ta,

    Todos os PCS que forem acessar meu site precisarao ter o IIS configurado?

  6. João 12/09/2008 at 12:10 AM | Permalink |

    da UMA olhada aqui velho, acho q n ta funcionando, sera que fiz algo errado?
    http://joaofortes.webng.com/data/default.html

    e o asp:

    http://joaofortes.webng.com/data/enviar.asp

  7. Ted k' 12/09/2008 at 9:01 AM | Permalink |

    Respondendo a dúvida “5″:
    O Servidor (FTP) se encarrega de fazer o envio

    Respondendo a dúvida “6″:
    Não consegui visualizar o erro, mais caso ele não consiga enviar é porque o seu SMTP pode está errado ou inativo

  8. João 13/09/2008 at 3:08 AM | Permalink |

    acho que eu consegui agora. pelo menos da a msg de email enviado. Valeu pela ajuda!
    ABraços

  9. Ted k' 15/09/2008 at 8:59 AM | Permalink |

    Blz, qualquer coisa vc manda æ!

  10. João 24/09/2008 at 11:32 PM | Permalink |

    Cara, eu não to recebendo o email, e ele me manda tudo certo, pelo menos diz que manda… o que que pode ser?

  11. Ted k' 25/09/2008 at 8:23 AM | Permalink |

    Essas duas linhas aqui:
    .Fields.Item(Sch & “smtpserver”) = “smtp.dominio.com.br”
    .Fields.Item(Sch & “sendusername”) = “contato=dominio.com.br”
    te que conter valores válidos, verifique com sua hospedagem qual é o seu SMTP de envio e coloque um E-mail válido ai tbm, e esse sinal de igualdade (=), não está errado, é assim mesmo, nas variáveis .BCC e .To, tem que ser e-mails válidos

  12. Erick 13/08/2009 at 11:34 AM | Permalink |

    Olá Ted K´, eu entendi a lógica do Script em HTML, só estou com uma dúvida! Não estou sabendo linkar o botão de enviar com o e-mail de destino. Você poderia me ajudar?
    Não tenho muito conhecimento, sou curioso ^^! E fiz uma página, só que estou tentando implantar algumas coisas!
    Se poder me ajudar eu agradeço, vlw abração!!!

  13. Ted k' 13/08/2009 at 11:38 AM | Permalink |

    vc tem que colocar um SMTP valido e o email corretamente, não há necessidade de colocar uma senha, só se for autenticado, mais poste como vc está fazendo assim te ajudo melhor!

  14. Erick 13/08/2009 at 1:32 PM | Permalink |

    Eu tou querendo montar uma página que meus clientes possam enviar mensagens, e que essa mensagem chegue no e-mail da empresa! Você vai perceber que eu coloquei uns códigos para personalisar a barra de rolagem! Mais creio que não influi muito! Não sei se estou fazendo corretamente então aí segue meu script.

    FUNDO

    body {
    scrollbar-arrow-color: #000000;
    scrollbar-base-color: #666666;
    scrollbar-dark-shadow-color: #666666;
    scrollbar-track-color: #9C9C9C;
    scrollbar-face-color: #666666;
    scrollbar-shadow-color: #666666;
    scrollbar-highlight-color: #666666;
    scrollbar-3d-light-color: #000000;
    }

    Contato &nbsp

    Nome:

    E-Mail:

    Mensagem:

     

  15. Erick 13/08/2009 at 2:10 PM | Permalink |

    Desculpe, acho que não saiu o script todo! Vou tentar de outra forma!

  16. Ted k' 13/08/2009 at 3:23 PM | Permalink |

    Melhor vc postar no forum:

    aqui:
    forum.imasters.com.br

Deixe seu Comentário