brendan_gallagher_2001
Mon Nov 13 05:12:50 CST 2006
Thanks Anthony. Your code works perfectly.
Brendan
Anthony Jones wrote:
> <brendan_gallagher_2001@yahoo.co.uk> wrote in message
> news:1162994036.011480.136360@f16g2000cwb.googlegroups.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:
> > > <brendan_gallagher_2001@yahoo.co.uk> wrote in message
> > > news:1162985069.803974.101200@e3g2000cwe.googlegroups.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?
> >