Ir para conteúdo
Fórum CódigoFonte.net
Entre para seguir isso  
Black_Dog

E-Mail

Recommended Posts

ae pessoal ...

eu estou fazendo umas parada aki q o cliente do site manda uma mensagem preenchedo alguns campos... um desses campos é o E-Mail do usuário ...

blz ... terminei ... dae estou fazendu uma parada q mostra as mensagens gravadas no meu banco de dados (eh uma área q soh a administração do Site poderá ver)...

tpw ... jah consegui fazer a lista d mensagens i abrir cada uma delas qdo c clica em cima ...

agora quero fazer uma parada d responder a mensagem ... gostaria q depois d eu redigir uma mensagem para o usúário, a mesma seja mandada para o e-mail q o usuário preencheu...

tpw ... naum estou conseguindo ... axo q tenke identificar no servidor de email as paradas d SMTP i talz ...

alguem ae pode me passar o procedimento completo de como fazer isto??

Vlw ae piazada ... ajudem plixxx ... eh urgentiiiii!!!

biggrin.gifbiggrin.gifbiggrin.gifbiggrin.gifbiggrin.gif

Compartilhar este post


Link para o post
Compartilhar em outros sites

Bom, faz assim:

no lugar de usar SMTP usa o SendMail.

fica bem mais fácil.

Tenta assim:

faça com que qnd vc clique no link dos e-mail (para abrir os emails) faça com que o script pegue no banco de dados o email do usuario, assim, depois faça um campo hidden com o email dele. depois eh soh vc criar um formul com este campo hidden e fazer suas mensagens.

foi o q intendi.

flw e t+

Compartilhar este post


Link para o post
Compartilhar em outros sites

tpw kra ...

eh +- issow ...

tpw ... eh q pra mandar um email precisa ter um e-mail remetente ... u SMTP ... vc jah testou c esse modo ae funciona ...

c jah testou i funciona ... poste ae todo o código simplificado d como seria!!

biggrin.gifbiggrin.gifbiggrin.gifbiggrin.gifbiggrin.gif

Compartilhar este post


Link para o post
Compartilhar em outros sites
Visitante

Guns N'Roses he suxx

Compartilhar este post


Link para o post
Compartilhar em outros sites

Caro Black_Dog olha só isso:

<%

Dim NovoMail, corpo

response.expires = 0

response.cachecontrol = "private"

Set NovoMail = Server.CreateObject("CDONTS.NewMail")

corpo = vbCrLf & "CONTATO ATRAVÉS DO SITE " & vbCrLf & vbCrLf

corpo = corpo & "-----------------------------------------------------------------------" & vbCrLf

corpo = corpo & "Nome.................: " & Request("nome") & vbCrLf

corpo = corpo & "E-mail............: " & Request("email") & vbCrLf

corpo = corpo & "Empresa.........................: " & Request("empresa") & vbCrLf

corpo = corpo & "Telefone.....................: " & Request("tel") & vbCrLf

corpo = corpo & "Comentários..................: " & Request("comentarios") & vbCrLf

corpo = corpo & "-----------------------------------------------------------------------" & vbCrLf

NovoMail.Subject = "Contato pelo Site"

NovoMail.Body = corpo

NovoMail.From = "" & Request.Form("email")

NovoMail.To = "[email protected]"

NovoMail.Importance = 2

NovoMail.Send

set NovoMail = nothing

%>

ou tenta o seguinte:

<%

Dim retorno

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

Mailer.ContentType = "text/html"

Mailer.FromName = "Nome"

Mailer.FromAddress = "[email protected]"

Mailer.RemoteHost = "seu.stmp.com.br" ' pode colocar o smtp do seu provedor ou de onde esta sua hp

Mailer.AddRecipient "recipente", rsNewsletter("NEW_EMAIL")

Mailer.Subject = "assunto"

Mailer.BodyText = "seu conteudo bem aqui"

retorno = Mailer.SendMail

if (retorno = true) then

retorno = "Email enviado com sucesso"

else

retorno = "Email nao enviado"

end if

%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

tpw kra ... nem funcionou direito aki nenhum desses 2 códigos ae ...

ele dava erro numa linha q caía bem parte dos Create Object lah:

Set NovoMail = Server.CreateObject(\"CDONTS.NewMail\")  

Set Mailer = Server.CreateObject(\"SMTPsvg.Mailer\")

pq q da issow... eu tenho q instalar alguma coisa aki nu meu PC pra poder funcionar issow??

tongue.giftongue.giftongue.giftongue.giftongue.gif

Compartilhar este post


Link para o post
Compartilhar em outros sites

Estes comandos:

Set NovoMail = Server.CreateObject("CDONTS.NewMail") 

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

sao os principais e utilizados em qualquer host que trabalhe com hospedagem.

Voce utiliza o PWS (Personal Web Server)?

Se sim tentas utilzar o componente ASPMail no seguinte site: http://www.serverobjects.com/products.htm#aspmail ou ASPEMAIL em: http://www.aspemail.com/

Ambos sao componentes para envio de e-mail, com instalaçao facil e pratica.

Caso voce utilize a plataforma NT, com IIS (Internet Information Server) o mesmo ja vem com o objeto Set NovoMail = Server.CreateObject("CDONTS.NewMail") instalado. Caso nao esteja bastar habilitar na instalaçao sporet a SMTP pois assim o mesmo será instalado.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Caso nao esteja bastar habilitar na instalaçao sporet a SMTP pois assim o mesmo será instalado.

aki eu uso o Windows XP com o IIS ... axo q naum tem instalado pq naum funciona issow ae ... onde q eu fasso intaum pra instalá essas coisas ae q vc mi falou ???

:roll: :roll: :roll: :roll: :roll:

Compartilhar este post


Link para o post
Compartilhar em outros sites

ou ... ninguem ae poderia responder nuam ...

ajudem ae ... ninguem ae sabe naum????

:twisted: :twisted: :twisted: :twisted: :twisted:

biggrin.gif

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
Entre para seguir isso  

×
×
  • Criar Novo...