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

[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

[Slim]

http://support.microsoft.com/default.aspx/kb/286430

<br********************@yahoo.co.ukwrote in message
news:11**********************@e3g2000cwe.googlegro ups.com...

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

[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.

Slim wrote:

http://support.microsoft.com/default.aspx/kb/286430

<br********************@yahoo.co.ukwrote in message
news:11**********************@e3g2000cwe.googlegro ups.com...

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

[Anthony Jones]

<br********************@yahoo.co.ukwrote in message
news:11**********************@e3g2000cwe.googlegro ups.com...

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?

[brendan_gallagher_2001]

Hi Anthony,

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

Brendan

Anthony Jones wrote:

<br********************@yahoo.co.ukwrote in message
news:11**********************@e3g2000cwe.googlegro ups.com...

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?

[Anthony Jones]

<br********************@yahoo.co.ukwrote in message
news:11**********************@f16g2000cwb.googlegr oups.com...

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

Brendan

Anthony Jones wrote:

<br********************@yahoo.co.ukwrote in message
news:11**********************@e3g2000cwe.googlegro ups.com...

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?

[brendan_gallagher_2001]

Thanks Anthony. Your code works perfectly.
Brendan
Anthony Jones wrote:

<br********************@yahoo.co.ukwrote in message
news:11**********************@f16g2000cwb.googlegr oups.com...

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

Brendan

Anthony Jones wrote:

<br********************@yahoo.co.ukwrote in message
news:11**********************@e3g2000cwe.googlegro ups.com...
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?