Jump to content
Fórum Script Brasil
  • 0

Como Habilitar O Attachfile


(!_Odisséa_!)
 Share

Question

Boa noite, estou tentando fazer um formulário que envie um arquivo pra o meu e-mail, mas quando envio ele da a seguinte frase

Microsoft VBScript runtime  error '800a01b6'

Object doesn't support this property or method: 'attachFile'

/fconosco_envia.asp, line 45

Como eu faço pra alterar isso, para que eu verifique se este meu form,funciona?

Grato.

Link to comment
Share on other sites

3 answers to this question

Recommended Posts

  • 0

Boa tarde, já descobri que o componente que estou usando é ASPMAIL, e pesquisei no google, e não consigo achar o erro, pois deixo sempre igual ao exepmlo que estudo, mas sempre que eu coloco para funcionar ele diz que a página esta concluida, mas ao mesmo tempo não envia o e-mail. alguém poderia dar uma olhada, pra ver se falta ou esta errado alguma coisa?

Grato! Anex = variavel que vem com o endereço do form com o caminho do arquivo a ser anexado.

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<%@language = "VBscript"%>
<%

    Dim Mailer
    Dim Corpodoemail
    Dim nome
    Dim emai
    Dim dddd
    Dim tele
    Dim codi
    Dim mens
    
    'http://www.helpsystem.bighost.com.br/faqnew/formulario/formulario.html
    nome = Request.Form("nome")
    emai = Request.Form("emai")
    dddd = Request.Form("dddd")
    tele = Request.Form("tele")
    codi = Request.Form("codi")
    anex = Request.Form("anex")
    mens = Request.Form("mens")

    Corpodoemail = "Nome: " & nome & vbcrlf
    Corpodoemail = corpodoemail + "Telefone: (" & dddd & ") " & tele & vbcrlf
    Corpodoemail = corpodoemail + "E-mail: " & emai & vbcrlf & vbcrlf
    Corpodoemail = corpodoemail + "Código da Vaga: " & codi & vbcrlf & vbcrlf
    Corpodoemail = corpodoemail + "Mensagem: " & vbcrlf 
    Corpodoemail = corpodoemail + mens

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
x=request.form("nome")
  Mailer.FromName = x
email = request.form("emai")
    Mailer.FromAddress = emai
    strMailHost = "mail.xxxx.com.br"
  Mailer.RemoteHost = "mail.xxxx.com.br"
  Mailer.Recipient = "[email protected]"
  Mailer.Subject = "Envio de currículo de " & nome & " com anexo!"
  Mailer.BodyText = Corpodoemail
  Mailer.AddAttachment anex
  If Mailer.SendMail then 
%>

CODIGO HTML

<%end if    
Set Mailer = nothing
%>

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Forum Statistics

    • Total Topics
      149.8k
    • Total Posts
      646.6k
×
×
  • Create New...