VBScript

Remove a Single Attachment from an Email

Demonstrates the Chilkat Email.DropSingleAttachment method, which removes the attachment at the specified zero-based index. Valid indexes run from 0 through NumAttachments - 1. This example adds two attachments, removes the first, and prints the count before and after.

Background: Attachments are addressed by a zero-based index, so the first is 0, the second 1, and so on. DropSingleAttachment removes just one — use it to prune a specific file (say, an oversized or unwanted attachment) while keeping the rest. Note that after a removal the remaining attachments shift down, so if you are deleting several by index, iterate from the highest index downward to avoid skipping any.

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)

'  Demonstrates the DropSingleAttachment method, which removes the attachment at the
'  specified zero-based index.

set email = CreateObject("Chilkat.Email")
email.Subject = "Drop a single attachment"

success = email.AddStringAttachment("a.txt","first attachment")
success = email.AddStringAttachment("b.txt","second attachment")
outFile.WriteLine("NumAttachments before = " & email.NumAttachments)

'  Remove the attachment at index 0 (the first attachment).
success = email.DropSingleAttachment(0)

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

outFile.Close