Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Enviar Adjunto con CDO

28/04/2004 - 00:11 por Edilberto Arteaga Lopez | Informe spam
Ayuda Hacer una pregunta
Hola a todos
Estoy tratando de enviar desde una pagina de ASP un correo con un archivo
adjunto ,pero este me manda un error, el error dice :
Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'objEMail.AttachFile'

Este es el codigo de mi hoja

Set objEMail = Server.CreateObject ("CDONTS.NewMail")
objEMail.To = Recipient
objEMail.From = cemail
objEMail.Subject = casunto
objEMail.Body = cuerpo
carchivo = request("F1")
if carchivo <> "" Then
objEMail.AttachFile = "& carchivo &"
End If

Si trato de enviarlo sin adjunto todo funciona bien.
si me podrian ayudar con esto.

saludos
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Franco Figún
28/04/2004 - 03:48 | Informe spam
Probá con este ejemplo, a ver que te dice:

<%
' change to address of your own SMTP server
strHost = "mail.elinkisp.com"
If Request("Send") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")
' enter valid SMTP host
Mail.Host = strHost

Mail.From = ""
Mail.FromName = "Persits Software, Inc."
Mail.AddAddress Request("To")

' Attach two files in the same directory (any file type can be attached)
strPath = Server.MapPath(".")
Mail.AddAttachment strPath & "\ps_logo.gif"
Mail.AddAttachment strPath & "\wehave.gif"

' message subject
Mail.Subject = "Logo & Motto"
' message body
Mail.Body = "Persits Software logo and motto images are attached."

Mail.Send ' send message
Response.Write "Success!"
End If
%>

<HTML>
<BODY BGCOLOR="#FFFFFF">
<FORM ACTION="Attachments.asp">
Enter email: <INPUT TYPE="TEXT" NAME="To">
<INPUT TYPE=SUBMIT NAME="Send" VALUE="Send">
</FORM>
</BODY>
</HTML>






"Edilberto Arteaga Lopez" wrote in message
news:
Hola a todos
Estoy tratando de enviar desde una pagina de ASP un correo con un archivo
adjunto ,pero este me manda un error, el error dice :
Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'objEMail.AttachFile'

Este es el codigo de mi hoja

Set objEMail = Server.CreateObject ("CDONTS.NewMail")
objEMail.To = Recipient
objEMail.From = cemail
objEMail.Subject = casunto
objEMail.Body = cuerpo
carchivo = request("F1")
if carchivo <> "" Then
objEMail.AttachFile = "& carchivo &"
End If

Si trato de enviarlo sin adjunto todo funciona bien.
si me podrian ayudar con esto.

saludos


Preguntas similares

 

Busqueda sugerida :