O JMail é um componente para envio de e-mails. Altere o campo seulogin para o login de seu domínio. Altere o nome nomedoarquivo para o nome do arquivo que deseja anexar, incluindo a extensão do mesmo.
No campo Nome, altere para o nome da pessoa/departamento que será configurado como responsável pelo envio.
Em Assunto, informe o assunto do e-mail a ser enviado. Em seu_nome@dominio.com.br, altere para o nome do e-mail de seu domínio. No campo nome@domínio.com.br, informe o endereço de e-mail de seu destinatário, no campo Mensagem, coloque o conteúdo da mensagem a ser enviada e no campo smtp.dominio.com.br, informe o nome do servidor de SMTP de seu domínio.
Código ASP:
<!-- Início ASP --->
<%@LANGUAGE="VBSCRIPT"%>
<html>
<body>
<%
set msg = Server.CreateOBject( "JMail.Message" )
'arquivo a ser anexado
attachment = "D:\web\seulogin\nomedoarquivo"
msg.AddAttachment (attachment)
msg.Logging = true
msg.silent = true
'nome do remetente
Name = "Nome"
'e-mail do remetente
SenderEmail = "seu_nome@dominio.com.br"
'campo de assunto do e-mail
Subject = "Assunto"
'e-mail do destinatário
Recipient = "nome@dominio.com.br"
'montagem do corpo do e-mail
Body = "Mensagem"
msg.From = SenderEmail
msg.FromName = Name
msg.AddRecipient Recipient
msg.Subject = Subject
msg.Body = Body
if not msg.Send( "smtp.domonio.com.br" ) then
Response.write "<pre>" & msg.log & "</pre>"
else
Response.write "Mensagem enviada com sucesso!!!"
end if
%>
</body>
</html>
<!-- Fim ASP --->
|
