Bom eu fiz um có digo bem facil de envio de e-mail, mais eu gostaria que ele enviase o anexo designado, mais ele não vai.
Deem uma olhada ou testem ele, pois eu já testei mais ele só manda o e-mail mais o anexo não vai.
Estou aberto a sugestões.
<%
' Cria o componente aspmail
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
' Nome do Remetente
Mailer.FromName = "Empresa S/A"
' E-mail do Rementente
Mailer.FromAddress= "edsonscheffer@MSN.com"
' Servidor de envio de e-mail
Mailer.RemoteHost = "mail.terraempresas.com.br"
' Nome / Endereço de quem recebera o E-mail
Mailer.AddRecipient "Cliente", "edson@grandepoa.com.br"
' Assunto do E-mail
Mailer.Subject = "ASPMAIL !!!"
' Campo da mensagem
Mailer.BodyText = "Testando o ASPMAIL"
' Mandando anexo
Mailer.AddAttachment "c:\dir\teste.txt"
if Mailer.SendMail then
Response.Write "E-mail enviado"
else
Response.Write "Erro no envio do e-mail. Erro: " & Mailer.Response
end if
%>
Pergunta
EDSONET
Bom eu fiz um có digo bem facil de envio de e-mail, mais eu gostaria que ele enviase o anexo designado, mais ele não vai.
Deem uma olhada ou testem ele, pois eu já testei mais ele só manda o e-mail mais o anexo não vai.
Estou aberto a sugestões.
Link para o comentário
Compartilhar em outros sites
14 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.