Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

sylar_head

ASPemail

Por , em ASP Clássico

Recommended Posts

sylar_head    0

sylar_head
Postado

Eu estou usando o seguinte codigo-fonte pra enviar email

 

<%Set Mail = Server.CreateObject("Persits.MailSender") 
nome = request.form("nome")
email = request.form("email")
telefone = request.form("telefone")
mensagem = request.form("mensagem")
assunto = request.Form("assunto")
Mail.IsHTML = True 
Mail.Host = "smtp.biroskabar.com.br" 
vemail = "hiago_hubert@hotmail.com"
vnome = "Biroska"'E-mail do remetente
Mail.From = email 'Remetente
Mail.FromName = nome
Mail.AddAddress vemail, vnome'Assunto da mensagem
Mail.Subject = "Contato biroska bar -" & assunto 'Corpo da mensagem
strtexto = nome & "<br>"
strtexto = strtexto & email & "<br>"
strtexto = strtexto & telefone & "<br>"
strtexto = strtexto & mensagem & "<br>"
Mail.Body = strtexto
On Error Resume Next
Mail.Send
If Err <> 0 Then 
Response.Write "Error encountered: " & Err.Description
End If%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

th4deu    4

th4deu
Postado

Vou colar a resposta que botei no tópico anterior. O moderador excluiu o outro tópico sem olhar o conteúdo, é f***.

 

 

Fera, verifique se seu servidor SMTP não precisa de autenticação. Se precisar, você precisará utiliza-lo!

 

Neste caso, inclua este bloco de código:

 

Mail.Username = "meuemail@empresa.com.br" 'EMAIL, PARA AUTENTICAÇÃO

Mail.Password = "minhasenha"

 

Abs.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

Vou colar a resposta que botei no tópico anterior. O moderador excluiu o outro tópico sem olhar o conteúdo, é f***.

Foi eu Amigo, assumo:

 

É que está acontecendo erros e quando eu acessei os tópico, todos eles, inclusive esse estaam sem respostas, é capaz de você ter visto e adicionado a resposta mais infelizmente não vi, erro meu, desculpa pessoal, problemas do fórum!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

ericdbx    0

ericdbx
Postado

cara nunca trabalhei com este componente.

 

tenta ver se nao tem:

cdosys pois ele é padrão em win2003 server e requer autenticação

 

Set objErrMail= Server.CreateObject("CDO.Message")
	With objErrMail
		.From = "email@email.com.br"
		.To = "seu@email.com.br"
		.Subject = "TITULO"
		.TextBody = texto
		.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
		.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
		.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
		.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
		.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "emailautentica@email.com.br"
		.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "senha"
		.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\Inetpub\mailroot\pickup"
		.Configuration.Fields.Update
		.Send
	End With

ou cdonts que é padrão no win2000

 

Dim objCDO
	Set objCDO = Server.CreateObject("CDONTS.NewMail")
	objCDO.To = "destinatario@email.com.br"
	objCDO.From = "remetentel@email.com.br"
	objCDO.Subject = "TITULO"
	objCDO.Body = "Mensagem"
	objCDO.Send
	Set objCDO = Nothing

Compartilhar este post

Link para o post
Compartilhar em outros sites

sylar_head    0

sylar_head
Postado

Poxa, nenhum ta funcionando

 

Não dá nenhum erro, mas o email não chega

 

Eu tow usando a hospedagem do kinghost asp facil (nome do plano)

 

 

 

www.kinghost.com.br

 

 

Tem como alguém me ajudar aí?

 

Não entendo o que está a acontecer

 

 

 

 

http://forum.imasters.com.br/public/style_emoticons/default/ermm.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

DSerma    19

DSerma
Postado

1) 10ª Regra

É proibido o post de mensagens com o objetivo de evidenciar o tópico, tornando-o primeiro da lista de tópicos (up), tal como mensagens repetitivas e/ou que não condizem com o assunto do tópico em questão (flood).

 

2) você já testou isso no seu servidor local ?? Ou seja, pegue o código que está no servidor que você hospedou o site e rode ele localmente na sua máquina, e veja se o mesmo acontece... se o e-mail for de boa.. é problema com a Hospedagem, neste caso, entre em contato com o suporte deles.... caso nao for nem na sua maquina, ai nos avise, pois até passo um exemplo funcionando de CDOSYS.

 

Abraços....

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

no laboratório de scripts tem pronto

 

pesquise lá, inclusive eu criei uma classe contendo alguns componentes de email

Compartilhar este post

Link para o post
Compartilhar em outros sites

sylar_head    0

sylar_head
Postado

1) 10ª Regra

É proibido o post de mensagens com o objetivo de evidenciar o tópico, tornando-o primeiro da lista de tópicos (up), tal como mensagens repetitivas e/ou que não condizem com o assunto do tópico em questão (flood).

 

2) você já testou isso no seu servidor local ?? Ou seja, pegue o código que está no servidor que você hospedou o site e rode ele localmente na sua máquina, e veja se o mesmo acontece... se o e-mail for de boa.. é problema com a Hospedagem, neste caso, entre em contato com o suporte deles.... caso nao for nem na sua maquina, ai nos avise, pois até passo um exemplo funcionando de CDOSYS.

 

Abraços....

Foi mal pelo "Up", é pq eu estou desesperado com isso

 

 

E não funcionou localmente o cdonts, nem dá erro, mas também não chega o email

Compartilhar este post

Link para o post
Compartilhar em outros sites

DSerma    19

DSerma
Postado

Testa esse código aki:

 

<%
Response.AddHeader "Content-Type", "text/html; charset=iso-8859-1"
response.expires=-1

Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
objCDOSYSCon.Fields.update

Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = "seuemail@seudominio.com.br"
objCDOSYSMail.To = "coloque@seu.email.aki"
objCDOSYSMail.Subject = "titulo"

objCDOSYSMail.HtmlBody = "<font face = 'Verdana' size = '2'><b>Teste do CDOSYS</b><br>"
objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b><hr></b>"

objCDOSYSMail.fields.update

objCDOSYSMail.Send

Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
%>

você deve instalar um servidor SMTP na sua máquina para que o e-mail seja enviado..

 

O Componente não é necessário instalar, pois ele é nativo do IIS

 

 

Abraços...

Compartilhar este post

Link para o post
Compartilhar em outros sites

sylar_head    0

sylar_head
Postado

Essa hospedagem não tem o CDOSYS

 

 

Olha...

 

Eu fiz usando o exemplo que veio quando eu baixei o aspemail e funcionou corretamente:

 

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

rem change this RemoteHost to a valid SMTP address before testing
Mailer.RemoteHost  = "aqui tava o meu smtp"

Mailer.FromName	= "Joe's Shrimp Shack"
Mailer.FromAddress = "anyone@unknownhost.net"
Mailer.AddRecipient Request.QueryString("nameto"), Request.QueryString("addressto")
Mailer.Subject	 = "Stock Split Announced!"
Mailer.BodyText	= Request.QueryString("txtmsg")
Mailer.Username = "aqui eu coloquei meu username"
Mailer.Password = "a senha"

if not Mailer.SendMail then
  Response.Write " Mailing Failed... Error is: <br>"
  Response.Write Mailer.Response
else
  Response.Write " sent successfully...<p>"
end if
Response.Write "This component expires: " & Mailer.Expires & "<p>"
%>

Mas quando eu modifiquei o email não chegou mais:

 

<%
nome = request.Form("nome")
email = request.Form("email")



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

Mailer.RemoteHost  = "meu smtp"
Mailer.FromName	=  nome 
Mailer.FromAddress =  email
Mailer.AddRecipient "Biroska bar", "hiago_hubert@hotmail.com"
Mailer.Subject	 = "contato biroska - " & assunto
Mailer.BodyText	= Request.form("txtmsg")
Mailer.Username = "username" 
Mailer.Password = "senha" 


if not Mailer.SendMail then
  Response.Write " Mailing Failed... Error is: <br>"
  Response.Write Mailer.Response
else
  Response.Write " sent successfully...<p>"
end if
Response.Write "This component expires: " & Mailer.Expires & "<p>"
%>

 

 

Olha aí se vocês enxergam o que eu fiz de errado por favor

 

http://forum.imasters.com.br/public/style_emoticons/default/cry.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

DSerma    19

DSerma
Postado

Aparentemente o q ta errado é isso aki:

 

Mailer.RemoteHost  = "meu smtp" << aki você deve colocar o SMTP do seu provedor, ou "localhost"
Mailer.FromName	=  nome
Mailer.FromAddress =  email
Mailer.AddRecipient "Biroska bar", "hiago_hubert@hotmail.com" << aki, remova o "Biroska Bar" e deixe apenas o endereço do e-mail
Mailer.Subject	 = "contato biroska - " & assunto
Mailer.BodyText	= Request.form("txtmsg")
Mailer.Username = "username"
Mailer.Password = "senha"

 

Abraços...

Compartilhar este post

Link para o post
Compartilhar em outros sites

sylar_head    0

sylar_head
Postado

Aparentemente o q ta errado é isso aki:

 

Mailer.RemoteHost  = "meu smtp" << aki você deve colocar o SMTP do seu provedor, ou "localhost"
Mailer.FromName	=  nome
Mailer.FromAddress =  email
Mailer.AddRecipient "Biroska bar", "hiago_hubert@hotmail.com" << aki, remova o "Biroska Bar" e deixe apenas o endereço do e-mail
Mailer.Subject	 = "contato biroska - " & assunto
Mailer.BodyText	= Request.form("txtmsg")
Mailer.Username = "username"
Mailer.Password = "senha"

 

Abraços...

Não, no código eu coloquei um smtp correto, mas aí não coloquei pra não divulgar o endereço smtp

 

e quanto a parte de deixar só o endereço deu erro

 

Erro de tempo de execução do Microsoft VBScript erro '800a01c2'

 

Número de argumentos incorreto ou atribuição de propriedade inválida: 'AddRecipient'

 

/sendmail.asp, line 20

fez o que o joanthandj..falou ??

 

[]´s ;)

 

Como usa essa classe? não aprendi ainda a trabalhar com essas classes

 

 

 

http://forum.imasters.com.br/public/style_emoticons/default/blush.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

DSerma    19

DSerma
Postado

Cara.. me passa seu código todo por MP.. inclusive o smtp, vou olhar isso...

 

Abraços...

Compartilhar este post

Link para o post
Compartilhar em outros sites

sylar_head    0

sylar_head
Postado

Deu um erro com o seu codigo

 

 

Mailing Failed... Error is:

554 5.5.2 No valid recipients

 

E agora?

 

:o

Compartilhar este post

Link para o post
Compartilhar em outros sites

DSerma    19

DSerma
Postado

Então.... aki comigo tb deu esse erro... mas só quando eu estava usando o SMTP do seu provedor...

 

Quando eu usava o MEU proprio SMTP, ia de boa.. acho que você até recebeu um e-mail ai q eu enviei fazendo esses testes...

 

Entao, já vimos que o erro não é do código, mas sim do Servidor de Hospedagem...

 

Entra em contato com eles e peça para resolverem isso, ou então para lhe passarem um exemplo DELES que esteja funcionando..

 

 

Abraços....

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito