web ASP Enviar correo con archivo adjunto

On 25 ago, 19:02, "Luis Mata"
wrote:

Hola

alguien tiene algun metodo de como enviar un correo via web con archivo
adjunto?

Luis

Buenas,

Ahora mismo no sabria decirte como exactamente...

Podrías utilizar por ejemplo el objeto CDONTS.NewMail con VBScript o
JScript. Creo que tiene un método donde puedes elegir un fichero y
adjuntarlo al mail.

Hay un montón! No solo ese, simplemente es dar con el adecuado. En
google puedes encontrar paso a paso como hacerlo. Seguramente
encontrarás algún trozo de código donde simplemente tendrás que copiar
y pegar y cambiar cuatro tonterias. Sinó también puedes buscar en el
MSDN de microsoft seguro que encuentras algo.

Vamos es lo que haría yo :)

Saluditos!

On 25 ago, 22:29, Picatoste wrote:

On 25 ago, 19:02, "Luis Mata"
wrote:

> Hola

> alguien tiene algun metodo de como enviar un correo via web con archivo
> adjunto?

> Luis

Buenas,

Ahora mismo no sabria decirte como exactamente...

Podrías utilizar por ejemplo el objeto CDONTS.NewMail con VBScript o
JScript. Creo que tiene un método donde puedes elegir un fichero y
adjuntarlo al mail.

Hay un montón! No solo ese, simplemente es dar con el adecuado. En
google puedes encontrar paso a paso como hacerlo. Seguramente
encontrarás algún trozo de código donde simplemente tendrás que copiar
y pegar y cambiar cuatro tonterias. Sinó también puedes buscar en el
MSDN de microsoft seguro que encuentras algo.

Vamos es lo que haría yo :)

Saluditos!

Mira,
Aquí te dejo dos ejemplos de dos formas diferentes en VBScript, para
hacerlo en JScript simplemente tendrias que traducir el código (no es
muy complicado, se parece mucho la sintaxis):

Con la clase que te he comentado antes...

<%
Dim MyBody2
Dim MyCDONTSMail3

Set MyCDONTSMail3 = CreateObject(”CDONTS.NewMail”)
MyCDONTSMail3.From= ““
MyCDONTSMail3.To= ““
MyCDONTSMail3.Cc=”“
MyCDONTSMail3.Subject=”This is a Test”

MyCDONTSMail3.AttachFile Server.MapPath(”/somedirectory/bla.txt”)
‘ or you could specify the path exactly if you knew it like below
‘MyCDONTSMail3.AttachFile (”C:\inetpub\wwwroot\somedirectory
\bla.txt”)

MyBody2 = “Thank you for ordering that stuff” & vbCrLf
MyBody2 = MyBody2 & “We appreciate your business” & vbCrLf
MyBody2 = MyBody2 & “Your stuff will arrive within 7 business
days”
MyCDONTSMail3.Body= MyBody2
MyCDONTSMail3.Send
set MyCDONTSMail3=nothing
%>


Y con se haría con el objeto CDO.Message.

<%
Set myMail=CreateObject(”CDO.Message”)
myMail.Subject=”Sending email with CDO”
myMail.From=”“
myMail.To=”“
myMail.TextBody=”This is a message.”
myMail.AddAttachment “c:\mydocuments\test.txt”
myMail.Send
set myMail=nothing
%>

El método addattachment() es el que permite adjuntar archivos.

Espero que te sirva... Saluditos!!!