[Resolvido] A classe de evento dessa assinatura está em uma partição i

[arthurvidotto 0]

Pessoal estou tentando enviar uma formulario tanto pro email como pra base de dados.

 

Ele da o seguinte erro

 

Tipo de erro:

(0x8004020F)

A classe de evento dessa assinatura está em uma partição inválida

 

CODE

Set objCDOSYSMail = Server.CreateObject("CDO.Message")

Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

objCDOSYSCon.Fields.update

 

Set objCDOSYSMail.Configuration = objCDOSYSCon

objCDOSYSMail.From = "abto@abto.org.br"

objCDOSYSMail.To = ParaEmail

'objCDOSYSMail.To = "alex@abto.org.br,marlene@abto.org.br"

'objCDOSYSMail.To = "wilson@dg2.com.br,marcelo@dg2.com.br"

objCDOSYSMail.Subject = Assunto

objCDOSYSMail.HTMLBody = Mensagem

objCDOSYSMail.Send <----------- erro está nessa linha ! ! ! ! ! !

Set objCDOSYSMail = Nothing

Set objCDOSYSCon = Nothing

 

 

Alguem poderia me ajudar ! !

[arthurvidotto 0]

Pessoal estou tentando enviar uma formulario tanto pro email como pra base de dados.

 

Ele da o seguinte erro

 

Tipo de erro:

(0x8004020F)

A classe de evento dessa assinatura está em uma partição inválida

 

CODE

Set objCDOSYSMail = Server.CreateObject("CDO.Message")

Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

objCDOSYSCon.Fields.update

 

Set objCDOSYSMail.Configuration = objCDOSYSCon

objCDOSYSMail.From = "abto@abto.org.br"

objCDOSYSMail.To = ParaEmail

'objCDOSYSMail.To = "alex@abto.org.br,marlene@abto.org.br"

'objCDOSYSMail.To = "wilson@dg2.com.br,marcelo@dg2.com.br"

objCDOSYSMail.Subject = Assunto

objCDOSYSMail.HTMLBody = Mensagem

objCDOSYSMail.Send <----------- erro está nessa linha ! ! ! ! ! !

Set objCDOSYSMail = Nothing

Set objCDOSYSCon = Nothing

 

Alguem poderia me ajudar ! !

Já consegui resolver o problema...

 

Se esperasse por vocês eu estaria F.........

[Ted k' 126]

Se esperasse por vocês eu estaria F.........

http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

[CaBo GeL 0]

Se esperasse por vocês eu estaria F.........

Tem q ver a disponibilidade de cada um para poder ajuda-lo e ter paciência!

[hargon 64]

Já consegui resolver o problema...

Que bom.

 

Se esperasse por vocês eu estaria F.........

Tem q ver a disponibilidade de cada um para poder ajuda-lo e ter paciência!

 

Corretíssimo. Estamos aqui para ajudar à todos, mas é claro que de acordo com à nossa disponibilidade.

[arthurvidotto 0]

Já consegui resolver o problema...

Que bom.

 

Se esperasse por vocês eu estaria F.........

Tem q ver a disponibilidade de cada um para poder ajuda-lo e ter paciência!

 

Corretíssimo. Estamos aqui para ajudar à todos, mas é claro que de acordo com à nossa disponibilidade.

 

Engraçado que se for pra falar algo que não vem a respeito sobre minha dúvida todo mundo quer responder... Todo mundo tem o que falar kkkkkkkkkkkkkkkkkkk

 

Mas de boa to brincando estamos aqui pra aprender, eu preciso mesmo ter um pouco de paciencia...kkk