Ir para conteúdo
Fórum Script Brasil
  • 0

Aspmail Dando Erro


ju_rezende

Pergunta

olá pessoal estou com um probleminha no aspmail, olhem meu cod

<%Dim objMail

Set objMail = Server.CreateObject("SMTPsvg.Mailer") linha11objMail.RemoteHost = "smtp.comerciodejacarei.com"

objMail.FromName = request.form("nome")

objMail.FromAddress = request.form("email")

objMail.AddRecipient "tuliorezende@comerciodejacarei.com"

objMail.Subject = "Email enviado do Site Banda Luxuria"

objMail.BodyText = reques.form("mensagem")

If objMail.SendMail Then

Response.Write "E-mail enviado..."

Else

Response.Write "Erro no envio de e-mail: " & objMail.Response

End If

Set objMail = Nothing%>

dá o seguinte erro

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/luxuria/confemailluxuria.asp, line 11

800401f3

Abraços

Link para o comentário
Compartilhar em outros sites

8 respostass a esta questão

Posts Recomendados

  • 0

pessoal desculpe, entrei pela 2ª vez com o pessoal do server e vê aspemail, então mudei o codigo

e dá o seguinte erro

Persits.MailSender.4 error '800a0006'

571 sorry, sender address has invalid format (#5.7.1 - chkuser)

/luxuria/confemailluxuria.asp, line 23

meu cod ficou

<%Set objMail = Server.CreateObject("Persits.MailSender")

objMail.ResetAll

objMail.AddAddress "tuliorezende#comerciodejacarei.com"

objMail.Host = "smtp.comerciodejacarei.com"

objMail.From = Request("email")

objMail.FromName = Request("nome")

objMail.Subject = "teste"

strBody = "Dados: " & vbCrLf & vbCrLf & _

"Nome: "& Request("nome") & vbCrLf & _

"E-Mail: "& Request("email") & vbCrLf & _

"Mensagem: "& Request("mensagem")

strBody = strBody & "."

objMail.Body = strBody

objMail.Send LINHA 23

Set objMail = nothing%>

ABRAÇOS :( :( :(

Link para o comentário
Compartilhar em outros sites

  • 0

Adreia, pequei um exemplo do forum não dá erro mas também não chega poderia ver se tá certo meu código, por gentileza

<%

' change to address of your own SMTP server

strHost = "mail.comerciodejacarei.com"

If Request("Send") <> "" Then

Set Mail = Server.CreateObject("Persits.MailSender")

' enter valid SMTP host

Mail.Host = strHost

Mail.From = Request("email") ' From address

Mail.FromName = Request("nome") ' optional

Mail.AddAddress "tuliorezende@comerciodejacarei.com"

' message subject

Mail.Subject = "testando"

' message body

Mail.Body = Request("mensagem") & request.form("cidade") & request.form("UF")

strErr = ""

bSuccess = False

On Error Resume Next ' catch errors

Mail.Send ' send message

If Err <> 0 Then ' error occurred

strErr = Err.Description

else

bSuccess = True

End If

End If

%>

no início do post, dei informação errada é aspEmail, que tem no server

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...