Create an email attachment using a stream in classic ASP (not ASP.Net)

  • Thread starter brendan_gallagher_2001
  • Start date
B

brendan_gallagher_2001

Hi,

Does anyone know how to create an attachment using a stream in classic
ASP.

I can see that it can be done in ASP.Net as per the article below:
Initializes a new instance of the Attachment class with the specified
stream and name.
http://msdn2.microsoft.com/en-us/library/6sdktyws.aspx.

Any help is greatly appreciated.

regards
Brendan
 
B

brendan_gallagher_2001

Thanks. I should have also mentioned in my original query that I want
to avoid creating a file on any directory. I just want to set the
content of the attachement to the content of a stream.
 
A

Anthony Jones

Hi,

Does anyone know how to create an attachment using a stream in classic
ASP.

I can see that it can be done in ASP.Net as per the article below:
Initializes a new instance of the Attachment class with the specified
stream and name.
http://msdn2.microsoft.com/en-us/library/6sdktyws.aspx.

Any help is greatly appreciated.

regards
Brendan

Heres an example:-

Const cdoContentDispostion = "urn:schemas:mailheader:content-disposition"
Const cdoBase64 = "base64"

Set oPart = oMsg.Attachments.Add

oPart.ContentMediaType = "application/octet-stream"
oPart.ContentTransferEncoding = cdoBase64

oPart.Fields(cdoContentDisposition).Value = "attachment;
filename=""Test.dat"""
oPart.Fields.Update

Set oStreamOut = oPart.GetDecodedContentStream
oStreamOut.Write aByt
oStreamOut.Flush


Where oMsg is an existing cdoMessage (ensure you've added any text and/or
html bodies first) and abyt is the set of bytes that represents the resource
to attach.

What type of content are you attaching?
 
B

brendan_gallagher_2001

Hi Anthony,

Thanks for the example. I'll test shortly. I am attaching plain text.

Brendan
 
A

Anthony Jones

Hi Anthony,

Thanks for the example. I'll test shortly. I am attaching plain text.

In that case I'll adjust the example:-

Const cdoContentDisposition = "urn:schemas:mailheader:content-disposition"

Dim oPart : Set oPart = oMsg.Attachments.Add

oPart.ContentMediaType = "text/plain; charset=iso-8859-1"
oPart.CharSet = "iso-8859-1"
oPart.ContentTransferEncoding = "quoted-printable"

oPart.Fields(cdoContentDisposition).Value =
"attachment;filename=""Test.txt"""
oPart.Fields.Update

Dim oStreamOut: Set oStreamOut = oPart.GetDecodedContentStream
oStreamOut.WriteText sContent
oStreamOut.Flush

Where sContent is the string content you want to include in the email
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Members online

Forum statistics

Threads
473,734
Messages
2,569,441
Members
44,832
Latest member
GlennSmall

Latest Threads

Top