Jump to content

Envio de mails automaticos


mmacedo
 Share

Recommended Posts

E duvido que vás encontrar, porque o javascript apenas dá suporte ao browser web, e penso não existirem objectos específicos para isso.

O que podes fazer é enviar a informação para o servidor, processá-la e enviar o tal mail através de uma linguagem para a web, como PHP, ASP, Ruby, etc. Obviamente que é necessário que o teu servidor suporte umas dessas tecnologias para a poderes usar.

Nick antigo: softclean | Tens um projeto? | Wiki P@P

Ajuda a comunidade! Se encontrares algo de errado, usa a opção "Denunciar" por baixo de cada post.

Link to comment
Share on other sites

www.lmgtfy.com?q=asp+send+mail

Primeiro resultado.

❝The idea that I can be presented with a problem, set out to logically solve it with the tools at hand, and wind up with a program that could not be legally used because someone else followed the same logical steps some years ago and filed for a patent on it is horrifying.❞- John Carmack on software patents

A list  of command line apps

Link to comment
Share on other sites

usando o codigo do w3schools tou a receber aeste erro...alguem sabe pk e como soluciona-lo????

este e o codigo :

<%@Language="VBScript"%>

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="djmmacedo@gmail.com"
myMail.To="djmmacedo@gmail.com"           
myMail.TextBody="This is a message."
myMail.Send
set myMail=nothing
%>

este e o erro :

CDO.Message.1 erro '80040220'

O valor de configuração "SendUsing" é inválido.

/saida.asp, linha 9

Link to comment
Share on other sites

<%
Set cdoConfig = CreateObject("CDO.Configuration")

With cdoConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "smpt.gmail.com"
.Update
End With

Set cdoMessage = CreateObject("CDO.Message")

With cdoMessage
Set .Configuration = cdoConfig
.From = "djmmacedo@gmail.com"
.To = "djmmacedo@gmail.com"
.Subject = "Sample CDO Message"
.TextBody = "This is a message."
.Send
End With

Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>

Experimenta assim, penso que o que te faltava era definir o servidor de envio SMTP.

Cumprimentos

"A paciência é uma das coisas que se aprendeu na era do 48k" O respeito é como a escrita de código, uma vez perdido, dificilmente se retoma o habito"

Link to comment
Share on other sites

Tal como anteriormente é codigo não testado pois não tenho de momento onde testar. Pelo que li do codigo o que falta é definires a configuração de que servidor de mail utilizar, uma vez que para enviares um mail precisas de saber que servidor de e-mail utilizar

<%@Language="VBScript"%>
Set cdoConfig = CreateObject("CDO.Configuration")

With cdoConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "smpt.gmail.com"
.Update
End With
Set .Configuration = cdoConfig
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="djmmacedo@gmail.com"
myMail.To="djmmacedo@gmail.com"          
myMail.TextBody="This is a message."
myMail.Send
set myMail=nothing
Set cdoConfig = Nothing
%>

"A paciência é uma das coisas que se aprendeu na era do 48k" O respeito é como a escrita de código, uma vez perdido, dificilmente se retoma o habito"

Link to comment
Share on other sites

ja testei o codigo,e dam esse erro k diss em cima. a unica coisa k mudei foi esta parte

.Item(cdoSMTPServer) = "smtp.gmail.com" onde tinhas assim .Item(cdoSMTPServer) = "smpt.gmail.com"

erro :

ADODB.Fields erro '800a0bb9'

Os argumentos são de tipo incorrecto, estão fora do intervalo aceitável ou estão em conflito uns com os outros.

/saida.asp, linha 6

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.