Cdosys - não envia..

[Danilo Ramos 0]

Galera fiz um sisteminha aqui q a hora q você. cadastra o email no banco, ele envia uma msg por email...

 

mas acontece q naum estah enviando....

 

eu fiz um arquivo com o nome de funcao.asp e dou um include dele dentro do meu arquivo...

 

ai eu mando ele enviar o email logo após ter efetuado o cadastro dentro do banco...

 

o cadastro chega a incluir e tudo... soh naum envia o emaill

 

olha o codigo aqui

 

FUNCAO.ASP

Function EnviaEmail(EmailTo)  Set oCdoMail = Server.CreateObject("CDO.Message")  Set oCdoConf = Server.CreateObject("CDO.Configuration")  Dim strBody	  strBody = "<p align=""left"">Seja Bem Vindo!</p>"	  strBody = strBody & "<p align=""left"">MENSAGEM AUTOMÁTICA NÃO RESPONDA ESSE EMAIL. </p>"	  strBody = strBody & "<p align=""left"">Seu cadastro de email foi realizado com sucesso em nosso banco de dados.</p>"	    sConfURL = "http://schemas.microsoft.com/cdo/configuration/"  with oCdoConf	.Fields.Item(sConfURL & "sendusing") = 2	.Fields.Item(sConfURL & "smtpserver") = "smtp.SERVIDOR.com.br"	.Fields.Item(sConfURL & "smtpserverport") = 25	.Fields.Update  end with  with oCdoMail	.From = "suporte@dditec.com.br"	.To = EmailTo	.CC = ""	.BCC = ""  end with  with oCdoMail	.Subject = "Cadastro DDITec" '  .TextBody = "This is a plain text email" '  .HTMLBody = "<b>This is an HTML email</b>"	.HTMLBody = strBody'	.AddAttachment = "C:\Inetpub\wwwroot\attachment.zip"  end withend Function

se alguem souber de alguma coisa fico grato...

 

valeu galera...

 

abraços

[Danilo Ramos 0]

Bom galerra ...

 

resolvi o problema... troquei o codigo da função...

 

aqui vai...

 

Function EnviaEmail(EmailTo)   Dim strBody	  strBody = "<p align=""left""><B>MENSAGEM AUTOMÁTICA NÃO RESPONDA ESSE EMAIL.</b></p>"	  strBody = strBody & "<p align=""left"">Seu cadastro de email foi realizado com sucesso em nosso banco de dados.</p>"	Set myMail=CreateObject("CDO.Message")	myMail.Subject="Cadastro"	myMail.From="suporte@dditec.com.br"	myMail.To=EmailTo	myMail.HTMLBody=strBody	myMail.Configuration.Fields.Item _	("http://schemas.microsoft.com/cdo/configuration/sendusing")=2	'Name or IP of remote SMTP server	myMail.Configuration.Fields.Item _	("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtp.SERVIDOR.com.br"	'Server port	myMail.Configuration.Fields.Item _	("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 	myMail.Configuration.Fields.Update	myMail.Sendset myMail=nothingend Function

Valeu.. abraços galera...