Enviado email com Anexo (CDONTS)
<html>
<head>
<title>Enviado email com Anexo</title>
</head>
<body>
<br>
Enviado um email com anexo....<br>
<br>
<%
nome_arquivo=\"caminho_fisico.asp\"
caminho_fisico=\"D:httpsiteangeloemail_anexocaminho_fisico.asp\"
Set mailer = Server.CreateObject(\"CDONTS.NewMail\")
mailer.BodyFormat = 0
mailer.MailFormat = 0
mailer.importance = importancia
mailer.from = \"teste@teste.com.br\"
mailer.to =\"destino@dest.com.br\"
mailer.subject = \"Email com anexo - feito em ASP\"
mailer.body = \"Segue anexo de teste\"
rem anexa o arquivo no email
rem mailer.AttachFile \"Caminho Inteiro do Arquivo\", \"Nome do Arquivo\", Codificação
mailer.AttachFile caminho_fisico, nome_arquivo, 0
mailer.Send
%>
<br>
email enviado.
<br>
<br>
</body>
</html>
|
|