Gnomo Postado Outubro 26, 2004 Denunciar Share Postado Outubro 26, 2004 Consegui fazer, um CDONT que envia msgs para meu E-mail em formato HTML...Mais esta dando um Erro.Erro:Microsoft VBScript runtime error '800a01b6'Object doesn't support this property or method: 'objMail.SendMail'/Perguntas/Enviar.asp, line 62Codigo:<%Set conn = Server.CreateObject("ADODB.Connection")'conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Sites\Perguntas\dados\perguntas.mdb;"conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\Inetpub\Domains\CLICKMACAE.COM.BR\www\Perguntas\dados\perguntas.mdb;"Set rs = Server.CreateObject("ADODB.Recordset")rs.Open "SELECT Pergunta1, Pergunta2, Pergunta3, Pergunta4, Pergunta5, Pergunta6, Pergunta7, Pergunta8, Pergunta9 FROM Perguntas WHERE Codigo = " & 1 & ";", connIf Not rs.EOF Then%><% Set objMail = Server.CreateObject("CDONTS.Newmail" )objMail.To = "fabricio@clickmacae.com.br"objMail.From = "gnomoskt@globo.com"objMail.Subject = "Assunto do email"htmlemail = htmlemail & "<HTML>"htmlemail = htmlemail & "<HEAD>"htmlemail = htmlemail & "<TITLE>TESTE</TITLE>"htmlemail = htmlemail & "</HEAD>"htmlemail = htmlemail & "<BODY BGCOLOR=#FFFFFF>"htmlemail = htmlemail & "<P> TESTE</P>"htmlemail = htmlemail & "<BR>"htmlemail = htmlemail & "<BR>"htmlemail = htmlemail & "<p>Visite </p>"htmlemail = htmlemail & "<a href='#'>TESTE</A>"htmlemail = htmlemail & "</BODY>"htmlemail = htmlemail & "</HTML>"objMail.Bodyformat = 0objMail.MailFormat = 0objMail.Body = htmlemailobjMail.SendMailSet objMail = Nothing%><%End Ifrs.Close()conn.Close()Set conn = Nothing%>Como resolvo este problema?Grato;Gnomo. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 george_francis Postado Outubro 26, 2004 Denunciar Share Postado Outubro 26, 2004 Prezado Gnomo, substitua o objMail.SendMail por objMail.Send.[]'sGeorge. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Gnomo Postado Outubro 27, 2004 Autor Denunciar Share Postado Outubro 27, 2004 George..Substitui objMail.SendMail por objMail.SendMais o erro persiste..Microsoft VBScript runtime error '800a0046' Permission denied /Perguntas/Enviar.asp, line 43Sabe como resolvo?Grato;Gnomo. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 cyberalexxx Postado Outubro 27, 2004 Denunciar Share Postado Outubro 27, 2004 O servidor é gratis??? Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Gnomo
Consegui fazer, um CDONT que envia msgs para meu E-mail em formato HTML...
Mais esta dando um Erro.
Erro:
Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'objMail.SendMail'
/Perguntas/Enviar.asp, line 62
Codigo:
<%
Set conn = Server.CreateObject("ADODB.Connection")
'conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\Sites\Perguntas\dados\perguntas.mdb;"
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=G:\Inetpub\Domains\CLICKMACAE.COM.BR\www\Perguntas\dados\perguntas.mdb;"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT Pergunta1, Pergunta2, Pergunta3, Pergunta4, Pergunta5,
Pergunta6, Pergunta7, Pergunta8, Pergunta9 FROM Perguntas WHERE Codigo = " &
1 & ";", conn
If Not rs.EOF Then
%>
<%
Set objMail = Server.CreateObject("CDONTS.Newmail" )
objMail.To = "fabricio@clickmacae.com.br"
objMail.From = "gnomoskt@globo.com"
objMail.Subject = "Assunto do email"
htmlemail = htmlemail & "<HTML>"
htmlemail = htmlemail & "<HEAD>"
htmlemail = htmlemail & "<TITLE>TESTE</TITLE>"
htmlemail = htmlemail & "</HEAD>"
htmlemail = htmlemail & "<BODY BGCOLOR=#FFFFFF>"
htmlemail = htmlemail & "<P> TESTE</P>"
htmlemail = htmlemail & "<BR>"
htmlemail = htmlemail & "<BR>"
htmlemail = htmlemail & "<p>Visite </p>"
htmlemail = htmlemail & "<a href='#'>TESTE</A>"
htmlemail = htmlemail & "</BODY>"
htmlemail = htmlemail & "</HTML>"
objMail.Bodyformat = 0
objMail.MailFormat = 0
objMail.Body = htmlemail
objMail.SendMail
Set objMail = Nothing
%>
<%
End If
rs.Close()
conn.Close()
Set conn = Nothing
%>
Como resolvo este problema?
Grato;
Gnomo.
Link para o comentário
Compartilhar em outros sites
3 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.