Bom dia, estou desenvolvendo uma página onde envia email para usuários do sistema quando o plano está vencendo só que dá o seguinte error ‘8004020f’
não sei o que pode ser.
meu código está assim:
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
' SMTP
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
' Porta do SMTP
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25
'Porta do CDO
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Timeout
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
objCDOSYSCon.Fields.update
' Atualiza a configuração do CDOSYS para envio do e-mail
Set objCDOSYSMail.Configuration = objCDOSYSCon
' #### CONFIGURAÇÕES DO CABEÇALHO DA MENSAGEM ####
'Configura o remetente(FROM)
objCDOSYSMail.From = "www.brindeaosnoivos.com.br <" & strFrom & ">"
' Configura o destinatário(TO)
objCDOSYSMail.To = strTo
' Configura o assunto(SUBJECT)
objCDOSYSMail.Subject = strSubject
objCDOSYSMail.HtmlBody = enviar
' ### ENVIA O E-MAIL ###
objCDOSYSMail.Send
' ### DESTRÓI OS OBJETOS ###
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
Obrigada.