CDO Message attachment rename

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Yosi - 31 Jul 2008 15:38 GMT

Hi All

I have recently changed my send email vbscript to work on W2K3 and I am now
using the CDO.Message object. I need to rename files attached to the email
without copying / renaming the file itself. With the old CDONTS.NewMail
object I used in w2k, this was achieved with AttachFile (FilePath,
NewFileName).

There doesn't appear to be a similar function with CDO so I was wandering if
anyone had found a function or a way of doing it.

Many thanx in advance
Yosi

Reply to this Message

Anthony Jones - 31 Jul 2008 22:53 GMT

> Hi All
>
[quoted text clipped - 6 lines]
> There doesn't appear to be a similar function with CDO so I was wandering if
> anyone had found a function or a way of doing it.

Its a bit messy in CDOSYS you need to rewrite the Content-Disposition header
yourself:-

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

. . .

Function AttachFile(roMsg, rsFilePath, rsNewName)

roMsg.AddAttachment rsFilePath

With roMsg.Attachments(1).Fields
.Item(cdoContentDisposition) = "attachment;filename=" & rsNewName
.Update
End With

End Function

AttachFile(oMsg, "c:\somefolder\somefile.dat", "pinkelephants.dat")

Signature

Anthony Jones - MVP ASP/ASP.NET

Reply to this Message

Yosi - 02 Aug 2008 23:12 GMT

It works !
Thanks.

>> Hi All
>>
[quoted text clipped - 30 lines]
>
> AttachFile(oMsg, "c:\somefolder\somefile.dat", "pinkelephants.dat")

Reply to this Message

Webmaster Forum / ASP / Components / August 2008

CDO Message attachment rename