AspEmail o que esta errado???

[fabiosc80 0]

Oque esta de errado nesse código aqui:

 

Set objMail = Server.CreateObject("Persits.MailSender")   objMail.Host  = "mail.pcgraphics.com.br"  objMail.ContentTransferEncoding = "Quoted-Printable"  objMail.From = StrFrom  objMail.AddAddress = stremail  objMail.Subject = strSubject  If Request("emailhtml")="yes" Then 	 objMail.isHTML = true	 	 objMail.Body = strBody  Else 	 objMail.Body = strBody  End If 	 objMail.Username = "pcgraphics@pcgraphics.com.br"  	 objMail.Password = "pc2002"    objMail.Send	Set objMail = Nothing

No meu tratamento de erro da a seguinte mensagem...

 

________________________________________

 

Endereço do email: suporte@soconteudo.com.br

Numero Erro: 424

Descrição Erro : Object required

Fonte: Microsoft VBScript runtime error

Numero da Linha:

Informativo enviado:

suporte@soconteudo.com.br

______________________________________________

 

Oque esta acontecendo?

 

Fábio

Programador.

[Mário Monteiro 179]

tira o tratamento de erro pra mostar o erro real...

[fabiosc80 0]

tira o tratamento de erro pra mostar o erro real...

Tipo parou de dar erro o código ta assim:

Set objMail = Server.CreateObject("Persits.MailSender")   objMail.Host  = "mail.pcgraphics.com.br"  objMail.ContentTransferEncoding = "Quoted-Printable"  objMail.From = StrFrom  objMail.AddAddress = stremail  objMail.Subject = strSubject  objMail.Body = strBody  objMail.isHTML = true	 	 objMail.Username = "pcgraphics@pcgraphics.com.br"  	 objMail.Password = "pc2002"   if not objMail.Send then Response.write "<b>Erro no email: " & AspEmail.log & ". Por favor entre em contato como o administrador do site: <a href=""mailto:" & siteemail & """>" & siteemail & "</a></b><br>"	Set objMail = Nothing

Mas o Email nao chega.Voce sabe oque ta errado ai?

[Mário Monteiro 179]

você está perguntando se enviou antes de mandar enviar...tenta colocar objMail.Send antes do if...

[fabiosc80 0]

você está perguntando se enviou antes de mandar enviar...tenta colocar objMail.Send antes do if...

Continua nao enviando fiz assim:

Set objMail = Server.CreateObject("Persits.MailSender")   objMail.Host  = "mail.pcgraphics.com.br"  objMail.ContentTransferEncoding = "Quoted-Printable"  objMail.From = StrFrom  objMail.AddAddress = stremail  objMail.Subject = strSubject  objMail.Body = strBody  objMail.isHTML = true	 	 objMail.Username = "pcgraphics@pcgraphics.com.br"  	 objMail.Password = "pc2002"   objMail.Send    if not objMail.Send then Response.write "<b>Erro no email: " & AspEmail.log & ". Por favor entre em contato como o administrador do site: <a href=""mailto:" & siteemail & """>" & siteemail & "</a></b><br>"	Set objMail = Nothing

[Salgado 4]

Bem se você tem um tratamento de erro significa que você usa o "On Error Resume Next" então, tire ele tb.

[fabiosc80 0]

Bem se você tem um tratamento de erro significa que você usa o "On Error Resume Next" então, tire ele tb.

Vou dizer pra voces qual é o problema....A Bos... do server ta com fila de espera...