[Resolvido] Habilitar anexo em CDONTS.NewMail

[marcosalmeida 0]

Foi resolvido desta forma

 

Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
objCDOSYSCon.Fields.update

Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = remetente
objCDOSYSMail.To = emails
objCDOSYSMail.AddAttachment("e:\home\SITE\web\DIRETORIO\nome_do_anexo.pdf") 
objCDOSYSMail.Subject = subject
objCDOSYSMail.HtmlBody = comm
objCDOSYSMail.Send

[hargon 64]

É... trocar o componente foi uma boa opção. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif