Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Ola amigos,
Estou testando uma rotina que montei para enviar emails para clientes. Porém, quando eu mando para meu email do hotmail da tudo certo, e quando mando para meus dois emails do terra ele não exibe a imagem. Alguem sabe o que pode ser??
Segue código fonte
<html>
<head><title>Envio de Emails clientes</title></head>
<body><!--#include file="conect.inc" -->
<%
sql = "select * from acad
set rs = cn.execute(sql)
do while not rs.eof
email = rs("email")
mensagem = "<html><head><title>SIA</title></head><body><img src=www.neonetweb.com.br/academias/FOLDER_SISTEMA.jpg></body></html>"
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
objCDOSYSCon.Fields("[http://schemas.microsoft.com/cdo/configuration/smtpserver"](http://schemas.microsoft.com/cdo/configuration/smtpserver)) = "localhost"
objCDOSYSCon.Fields("[http://schemas.microsoft.com/cdo/configuration/smtpserverport"](http://schemas.microsoft.com/cdo/configuration/smtpserverport)) = 25
objCDOSYSCon.Fields("[http://schemas.microsoft.com/cdo/configuration/sendusing"](http://schemas.microsoft.com/cdo/configuration/sendusing)) = 2
objCDOSYSCon.Fields("[http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"](http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout)) = 30
objCDOSYSCon.Fields.update
Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = "contato@neonetweb.com.br"
objCDOSYSMail.To = email
objCDOSYSMail.Subject = "Sistema para Academias"
objCDOSYSMail.HtmlBody = mensagem
If objCDOSYSMail.Send Then
response.write(email)
response.write(" erro ")
response.write("<br>")
sql2 = "update acad set enviado = 'S', status = 'Erro'"
cn.execute(sql2)
Else
response.write(email)
response.write(" ok ")
response.write("<br>")
sql2 = "update acad set enviado = 'S', status = 'Ok'"
cn.execute(sql2)
End If
'destrói os objetos
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
rs.movenext
loop
%>
</body>
</html>Carregando comentários...