Pedro
|
GUARULHOS
SP - BRASIL
|
|
Postada em 13/06/2004 23:06 hs
Pessoal, Estou tentando usar o CDONTS no servidor gratuito 7Host ( http://7host.com/) mas não está funcionando, será que alguem conhece, já usou, sabe como resolvo este problema? Obrigado... |
|
|
|
|
|
Pedro
|
GUARULHOS
SP - BRASIL
|
|
Postada em 21/06/2004 01:06 hs
Puxa, será que ninguém pode ajudar-me!? Eu usei o seguinte código: <%
Dim Mensagem, objCDO, Erro
Mensagem = "<b>Nome:</b> " & request("txtNome") & "<br><b>E-Mail:</b> " & request("txtEMail") & "<br><b>Assunto:</b> " & request("txtAssunto") & "<br><b>Mensagem:</b> " & request("txtMensagem")
On Error Resume Next
Set objCDO = Server.CreateObject("CDONTS.NewMail")
If Err <> "" then
Erro = Erro & Err.Description
end if
objCDO.To = email 'VARIAVEL COM O ENDEREÇO DE EMAIL
If Err <> "" then
Erro = Erro & Err.Description
end if
objCDO.From = request("txtEMail")
If Err <> "" then
Erro = Erro & Err.Description
end if
objCDO.Subject = "SystemsoftContato"
If Err <> "" then
Erro = Erro & Err.Description
end if
objCDO.Body = Mensagem
If Err <> "" then
Erro = Erro & Err.Description
end if
objCDO.Importance = 1
If Err <> "" then
Erro = Erro & Err.Description
end if
objCDO.BodyFormat = 0
If Err <> "" then
Erro = Erro & Err.Description
end if
objCDO.MailFormat = 0
If Err <> "" then
Erro = Erro & Err.Description
end if
objCDO.Send
If Err <> "" then
Erro = Erro & Err.Description
end if
Set objCDO = Nothing
%> Será que o erro é no código? valeu galera... |
|
|
|
|
|
Postada em 21/06/2004 20:37 hs
Pedro, Se não me engano a 7Host não dá suporte a CDONTS, tente entrar em contato com o suporte deles para verificar esta informação. Webmaster VBWEB
VBWEB - O Portal do Desenvolvedor
Agora o VBWEB também hospeda sites!
isto mesmo! conheçam os planos do VBWEB Hosting
|
|
|
|
Pedro
|
GUARULHOS
SP - BRASIL
|
|
Postada em 23/06/2004 01:31 hs
|
|
|
|
|
|
Postada em 23/06/2004 08:34 hs
Pedro, eu usei aqui na minha máquina assim e funcionou. Se o 7host dá suporte de cdonts, vai funcionar também...
El código:
<%
Dim msg
Set msg = Server.CreateObject("CDONTS.NewMail")
msg.From = "marciopuntel@yahoo.com.br" ' ou usar um variável
msg.To="email@email.com.br" ' ou usar um variável
msg.Subject = "Email com codnts" ' ou usar um variável
msg.Body = "Aqui vem o corpo da mensagem. Você pode escrever o que desejar!" ' ou usar um variável
msg.Send
Set msg = Nothing
%>
Espero que te ajude.
Márcio Puntel
|
|
|
|
Pedro
|
GUARULHOS
SP - BRASIL
|
|
|
