Jump to content
Fórum Script Brasil
  • 0

De Cdonts Para Cdosys


Question

Olá amigos, estou com uma grande dúvida, eu tenho um script que usa CDONTs sendo que o win2003 não usa CDONT, só usa o CDO e no servidor já está configurado, eu preciso saber como eu posso configurar para migrar de CDONT para CDOSYS obrigado..

Dim EnvioEmail

Set EnvioEmail = Server.CreateObject("CDONTS.NewMail")

EnvioEmail.From = VarEmail

EnvioEmail.To = EmailPadrao

EnvioEmail.BodyFormat = 0

EnvioEmail.MailFormat = 0

EnvioEmail.Subject = "Contato - "& Titulo

EnvioEmail.Body = VarCorpoEmail

EnvioEmail.Send

Set EnvioEmail = Nothing

Por favor, alguém me dá um help.

Obrigado!

Link to post
Share on other sites

1 answer to this question

Recommended Posts

  • 0

<%

'cria o objeto para o envio de e-mail

Set objCDOSYSMail = Server.CreateObject("CDO.Message")

'cria o objeto para configuração do SMTP

Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

'SMTP

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp2.locaweb.com.br"

'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 o envio do e-mail

Set objCDOSYSMail.Configuration = objCDOSYSCon

'e-mail do remetente

objCDOSYSMail.From = "[email protected]"

'e-mail do destinatário

objCDOSYSMail.To = "[email protected]"

'assunto da mensagem

objCDOSYSMail.Subject = "Teste do CDOSYS"

'conteúdo da mensagem

objCDOSYSMail.TextBody = "Teste do componente CDOSYS"

'para envio da mensagem no formato html altere o TextBody para HtmlBody

'objCDOSYSMail.HtmlBody = "Teste do componente CDOSYS"

'objCDOSYSMail.fields.update

'envia o e-mail

objCDOSYSMail.Send

'destrói os objetos

Set objCDOSYSMail = Nothing

Set objCDOSYSCon = Nothing

response.write "E-mail enviado para [email protected] ..."

%>

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      148681
    • Total Posts
      644507
×
×
  • Create New...