dobre CDOSYS

[#Felipe# 0]

Pessoal!peguei esse codigo de algum lugar e está dando erroe tb não consigo entende-lo

<%'Cria o objeto para o enviar e-mailSet objCDO = Server.CreateObject("CDO.Message")'Cria o objeto de configuração do SMTPSet objCDOSYSCon = Server.CreateObject("CDO.Configuration")With objCDOSYSCon'SMTP.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.terra.com.br"'senha.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxx"'Porta do SMTP.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25'Porta do CDO.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2'Timeout.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30.Fields.updateEnd With'Atualiza as configurações do CDOSYS para enviar o e-mailSet objCDO.Configuration = objCDOSYSConWith objCDO'Remetente do e-mail.From = "teste@remetente.com"'Destinatário do e-mail.To = "teste@destino.com"'Assunto.Subject = "teste"'Conteúdo da mensagem (Se for apenas texto, mude para TextBody).HTMLBody = "contéudo do e-mail"'Envia o e-mail.SendEnd With'Destrói os objetosSet objCDO = NothingSet objCDOSYSCon = NothingResponse.Write "Seu e-mail foi enviado com sucesso."%>

o erro ocorre na linha do .sendeu não entendo o que vai exatamentre nos camposhttp://schemas.microsoft.com/cdo/configuration/smtpserver http://schemas.microsoft.com/cdo/configuration/sendpasswordeu coloquei o endereço de smtp do terra e a minha senha pois usei como from o meu email do terramas creio que não seja issoentão o que eu coloco lá ???qual endereço de smtp que vai afinale eu posso colocar qualquer endereço de From ???afinal , qual é o meelhor esquema de envio de emails que existe ???CDOsysASPmailASPEmailou qual ??outra coisaqueria saber o seguinte, é que eu tenho já 2 mil emails cadastrados através do campo que eu disponibilizo para newsleter, eu posso mandar emails para esses 2 mil emails de uma vez só ????qual o máxixo que esses componentes suportam de uma vez só ???ex.:eu faço o codigo de envio e mando enviar, qual o máximo de emails que pode ter ????

[speedoli 0]

Cara tem esse código q eu usei q funciona bem<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><%Dim Para, Email, Assunto, Mensagem, objCDOMail'coloque o seu emailPara = "teste@teste.com"'e-mail do detinatário (usuário)Email = "usuario@usuario.com'assunto da mensagemAssunto = "Teste de envio de e-mail"'Texto da mensagemMensagem = "Este eh o texto da mensagem q será enviada para o e-mail do usuário"'enviando o e-mail através do componente CDONTSSet objCDOMail = Server.CreateObject("CDONTS.NewMail")objCDOMail.From = EmailobjCDOMail.To = ParaobjCDOMail.Subject = AssuntoobjCDOMail.Body = MensagemobjCDOMail.SendSet objCDOMail = Nothing%> agora o negócio eh soh você modificar do geito q você quer

[#Felipe# 0]

putzeu faço uma pergunta e me respondem outraCDONTS saiu de linha, e entrou o CDOsys no lugar se eu quisesse saber como funciona o cdonts eu perguntava pelo cdonts

[marcelinho 0]

Fala ai,testa assim'Instancia o objetoSet objMail = Server.CreateObject("CDO.Message")'Seta as propriendadesobjMail.From = "seuemail@seudominio.com.br"objMail.To = request.form("to") 'email da pessoa que você vai enviarobjMail.Subject= request.form("subject") 'assuntoobjMail.TextBody = request.form("body") 'corpo do email'Enviando emailreturn = objMail.Send'Testa concistenciaif return <> 0 thenresponse.write "Erro: " & returnelseresponse.write "Mensagem enviada com sucesso."end if'Limpa o objetoSet objMail = Nothing

[#Felipe# 0]

nessa codigo acima , não falta o objMail.send ???o comando pra enviar o esquema ??????