Ir para conteúdo
Fórum Script Brasil
  • 0

De Cdonts Para Cdosys


lekinhoweb

Pergunta

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 para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

  • 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 = "eu@MeuDominio.com.br"

'e-mail do destinatário

objCDOSYSMail.To = "destinatario@dominio.com.br"

'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 destinatario@dominio.com.br ..."

%>

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...