Como vi varios Posts sobre como enviar e-mail.. abaixo segue a parte mais complicada que é justamente a que envia.. só criar um formularios com os dados e mandar os Dados para este formulario abaixo... tem alguns comentarios.. mas... caso tenha alguma duvida Poste ai..
Abaixo um exemplo completo com CDONS, para quem quiser, este envia um e-mail com figuras, mas pode tirar se quiser.
Boa Sorte
<%
Dim myMail
Set myMail = CreateObject("CDONTS.NewMail")
HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" & NL
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<meta http-equiv=""Content-Type"""
HTML = HTML & "content=""text/html; charset=iso-8859-1"">"
HTML = HTML & "<title>Exemplo de envio de email HTML com figura</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor=""#FFFFFF"">"
HTML = HTML & "<p><font size=""6"" face=""Arial Black""><strong>Exemplo de envio CDONTS "
HTML = HTML & "<img src=CDO.gif>"
HTML = HTML & "</strong></font></p>"
HTML = HTML & "<p>CDONTS permite o envio de forma simples e rápida."
HTML = HTML & "Este exemplo mostra como o conteúdo pode ser enviado em HTML"
HTML = HTML & "que permite o envio de figuras no corpo da mensagem.</p>"
Pergunta
jissa
Como vi varios Posts sobre como enviar e-mail.. abaixo segue a parte mais complicada que é justamente a que envia.. só criar um formularios com os dados e mandar os Dados para este formulario abaixo... tem alguns comentarios.. mas... caso tenha alguma duvida Poste ai..
Abaixo um exemplo completo com CDONS, para quem quiser, este envia um e-mail com figuras, mas pode tirar se quiser.
Boa Sorte
<%
Dim myMail
Set myMail = CreateObject("CDONTS.NewMail")
HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" & NL
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<meta http-equiv=""Content-Type"""
HTML = HTML & "content=""text/html; charset=iso-8859-1"">"
HTML = HTML & "<title>Exemplo de envio de email HTML com figura</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor=""#FFFFFF"">"
HTML = HTML & "<p><font size=""6"" face=""Arial Black""><strong>Exemplo de envio CDONTS "
HTML = HTML & "<img src=CDO.gif>"
HTML = HTML & "</strong></font></p>"
HTML = HTML & "<p>CDONTS permite o envio de forma simples e rápida."
HTML = HTML & "Este exemplo mostra como o conteúdo pode ser enviado em HTML"
HTML = HTML & "que permite o envio de figuras no corpo da mensagem.</p>"
HTML = HTML & "</body>"
HTML = HTML & "</html>"
myMail.AttachURL "D:\caminhoParaFigura\figura.gif", "figura.gif"
myMail.From = "eul@server.com.br" ' Remetente
myMail.To = "alguém@server.com.br" ' Destinatário
myMail.Subject = "Mensagem a enviar" ' Assunto do e-mail
myMail.BodyFormat = 0
myMail.MailFormat = 0
myMail.Body = HTML ' Corpo da mensagem definido na variável HTML
myMail.Send
Set myMail = Nothing
%>
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.