Trocar JMAIL por CDONTS

[raposo 0]

Prezados,

 

Estava trabalhando com um form em JMAIL no provedor Terra, porém migrei o site para Locaweb que não possui suporte ao JMAIL, somente ao CDONTS, CDOSYS e ASPMAIL. Tentei passar a programação do JMAIL para CDONTS, porém o mesmo não esta enviando e-mail.

 

Segue o código para visualização:

 

%VarDataAtual = day(now)&"/"&month(now)&"/"&year(now)DataAtual = cdate(varDataAtual)DataLimite = dateadd("d",45,DataAtual)'scampo =split(Request.Form("emails"),";")'DataLimte_2= day(now)&"/"&month(now)&"/"&year(now)'DataLimite = DateAdd("d",45,DataAtual)'Response.Write FormatDateTime(DataAtual, "mm/dd/yyyy") 'Response.End 'Response.Write VarDataAtual & "|" & DataLimite'Response.End 'pega data 1 periodo'DevarDia1 = request.form("dia1")varMes1 = request.form("mes1")varAno1 = request.form("ano1")varData1 = varDia1&"/"&varMes1&"/"&varAno1Data1 = cdate(varData1)'AtévarDia2 = request.form("dia2")varMes2 = request.form("mes2")varAno2 = request.form("ano2")varData2 = varDia2&"/"&varMes2&"/"&varAno2Data2 = cdate(varData2)if (cdate(Data1) > cdate(DataLimite)) thenResponse.Redirect("data_atual.asp?erro=1")end if'Valida data 1 periodo'if Data1 > DataLimite then'response.redirect "data.asp?erro=1"'end ifif data1 < DataAtual thenresponse.redirect ("data_atual.asp?erro=11")end ifif Data1 > Data2 thenresponse.redirect ("data_atual.asp?erro=2")end ifvarNome = request.form("nome")if varNome = "" thenresponse.redirect("data_atual.asp?erro=3")end ifvarFoneres = Request.Form("foneres")if varFoneres = "" thenResponse.Redirect("data_atual.asp?erro=17")end ifvarFoneCel= Request.Form("fonecel")varFoneCom= Request.Form("fonecom")varEmails = request.form("emails")if varEmails = "" thenResponse.Redirect("data_atual.asp?erro=4")end ifvarBody = " Reserva de 1a.Op- Período de Estada: "&varData1& " até "&VarData2& vbCrLf varBody = varBody & "Nome: "&varNome& vbCrLf varBody = varBody & "FoneRes: "&varFoneres& " Fone Cel:" &varFoneCel& " Fone Comercial:" &varFoneCom& vbCrLfvarBody = varBody & " Emails: " &varEmails& vbCrLf Set Mailer = CreateObject("CDONTS.NewMail") Mailer.From = "c@hotmail.com" Mailer.To = "varEmails"Mailer.MailFormat = cdoMailFormatText Mailer.Subject = "Contato" Mailer.Body = "Corpo da Mensagem" Mailer.Send Set Mailer = Nothing %>

Desde já agradeço a ajuda.

[Alexandre B. 0]

Utiliza o Objeto Server do ASP para poder Criar o Objeto. No vbscript é possivel criar objetos, mas por alguns motivos é melhor utilizar o objeto Server

 

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

[raposo 0]

Alexandre, obrigado pela resposta.Utilizei o objeto Server, porém os dados do form não chegam em minhacaixa postal.Cara será que tem algum pau na Locaweb?Desde já agradeço

[Alexandre B. 0]

Uma coisa brother, faz um teste e verifica se todos os campos realmente estao recebendo os valores certinhos!Porque o CDONTS é nativo do IIS

[Marhault 1]

Nessa linha:

Mailer.To = "varEmails"

Tenta retirar as aspas!