VBScript

Remove a Single Attached Message from an Email

Demonstrates the Chilkat Email.RemoveAttachedMessage method, which removes the Nth message/rfc822 sub-part (an attached email) from the message. Indexing begins at 0. This example attaches an email, removes it, and prints the attached-message count before and after.

Background: Attached messages (forwarded emails carried as message/rfc822 parts) are counted and indexed separately from ordinary file attachments and related items. RemoveAttachedMessage targets just one nested email by index — useful, for example, when trimming a bundled digest or stripping a forwarded original before re-sending.

Chilkat VBScript Downloads

Download Chilkat for VBScript

VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

'  Demonstrates the RemoveAttachedMessage method, which removes the Nth message/rfc822
'  sub-part (attached email) of the email.  The index is zero-based.

'  Build an inner email and attach it to an outer email.
set innerEmail = CreateObject("Chilkat.Email")
innerEmail.Subject = "Embedded message"
innerEmail.From = "alice@example.com"

set email = CreateObject("Chilkat.Email")
email.Subject = "Has an attached message"
success = email.AttachEmail(innerEmail)
If (success = 0) Then
    outFile.WriteLine(email.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("NumAttachedMessages before = " & email.NumAttachedMessages)

'  Remove the first attached message (index 0).
email.RemoveAttachedMessage 0

outFile.WriteLine("NumAttachedMessages after = " & email.NumAttachedMessages)

outFile.Close