Configuração

[maktub 0]

Salve caras, como é que configuro, ou melhor dizendo adapto o código abaixo em cdonts para cdosys?

 

Case "CDONTS"on error resume nextSet eObjMail = Server.CreateObject("CDONTS.NewMail")eObjMail.to = ParaEmaileObjMail.from = NomeEmail & "<" & Email & ">"eObjMail.subject = AssuntoeObjMail.Importance = 1eObjMail.BodyFormat = 0eObjMail.MailFormat = 0eObjMail.body = Resposta		eObjMail.sendSet eObjMail = nothing

 

fiquei perdido agora

[Rodrigo Patricio 3]

Moleza fazer isso cara, você vai ver q é facim, vê só nesse link:

 

CDOSYS

 

Flw! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[maktub 0]

Pelo que entendi é só complementar o "CDOSYSMail" após o Obj.

 

dai ficaria assim:

Case "CDOSYS"on error resume nextSet ObjCDOSYSMail = Server.CreateObject("CDO.Message")ObjCDOSYSMail.to = ParaEmailObjCDOSYSMail.from = NomeEmail & "<" & Email & ">"ObjCDOSYSMail.subject = AssuntoObjCDOSYSMail.Importance = 1ObjCDOSYSMail.BodyFormat = 0ObjCDOSYSMail.MailFormat = 0ObjCDOSYSMail.body = Resposta		ObjCDOSYSMail.sendSet ObjCDOSYSMail = nothing

no topo da página meu smtp esta assim:

<%'Email para onde serão enviados os dados do formulárioemail_form = "maktub@maktub.com"'Título do emailassunto_form = "Fale com  Maktub"'Servidor de emailservidor = "smtp.maktub.com"'Componente para envio do email: CDOSYS | AspMail | AspEmail | AspQmailcomponente = "CDOSYS"'Cabeçalho do texto do email recebidocabecalho_email = "Elogio enviado pelo site maktub"'*******************************************************************%>

 

é isso? Ta faltando algo?

[Rodrigo Patricio 3]

Naum naum, falta um bocado de coisas, tipo... onde cria a conexao lá com os servidores da microsoft.... um bocado de coisas, faz o seguinte, troca tudo e só muda a parte dos endereços de email e etc.

 

Flw! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[maktub 0]

Então meu case esta assim, como assim falta um bocado de coisas? do jeito que fiz não da certo? Falta o que? Me ajuda ai

[Rodrigo Patricio 3]

Tenta assim:

 

<%email_form = "maktub@maktub.com"assunto_form = "Fale com  Maktub"servidor = "smtp.maktub.com"cabecalho_email = "Elogio enviado pelo site maktub"Set objCDOSYSMail = Server.CreateObject("CDO.Message")Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = ""&servidor&""objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30objCDOSYSCon.Fields.updateSet objCDOSYSMail.Configuration = objCDOSYSConobjCDOSYSMail.From = "eu@MeuDominio.com.br"' Aqui você coloca o email do remetente.objCDOSYSMail.To = ""&email_form&""objCDOSYSMail.Subject = ""&assunto_form&""objCDOSYSMail.TextBody = ""&cabecalho_email&""objCDOSYSMail.fields.updateobjCDOSYSMail.SendSet objCDOSYSMail = NothingSet objCDOSYSCon = Nothingresponse.write "E-mail enviado com sucesso!"%>

Bom... espero ter ajudado. Flw! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif