|
set Dec = CreateObject("MimeSniffer.Decoder")
rem -- IPersistStream::Load the content
Dec.LoadFromFile "mail2.txt"
rem -- throw the subject
MsgBox "Subject is: " & Dec.Subject
rem -- change the subject
Dec.Subject = "Extended " & Dec.Subject
rem -- get root body object...
set Body = Dec.Body
rem -- get the text part, wich is the first part
set TextBody = Body(0)
rem -- throw the content
MsgBox "Body-Text is: " & TextBody.Value
rem -- change the text part
TextBody.Value = TextBody.Value & Chr(13) & Chr(10) & "Nice, isn't it?"
rem -- get the pic part, wich is the second part
set PicBody = Body(1)
rem -- extract the content to a stream
PicBody.ExportAsFile "copy of " & PicBody.FileName
rem -- "Send" the changed email to a stream
Dec.SaveToFile "mail3.txt"
|
By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.
If a file you wish to view isn't highlighted, and is a text file (not binary), please
let us know and we'll add colourisation support for it.
This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.
A list of licenses authors might use can be found here
This member has not yet provided a Biography. Assume it's interesting and varied, and probably something to do with programming.