VBScript

Get the Size of an Attachment

Demonstrates the Chilkat Email.GetAttachmentSize method, which returns the size in bytes of the attachment at a given zero-based index, or -1 if the index does not identify an existing attachment. This example adds an attachment and prints its size.

Background: The size reported is that of the attachment's actual (decoded) data, not its larger Base64-encoded form on the wire. Knowing per-attachment sizes is handy for enforcing limits, showing a size next to each attachment in a UI, or deciding whether to save or skip a large part. The -1 sentinel is how the method signals an out-of-range index rather than a zero-length attachment.

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 GetAttachmentSize method, which returns the size in bytes of the
'  attachment at the given zero-based index.  It returns -1 if the index does not identify
'  an existing attachment.

set email = CreateObject("Chilkat.Email")
email.Subject = "Attachment size"

success = email.AddStringAttachment("notes.txt","Some notes for the attachment.")

'  Get the size in bytes of the first attachment (index 0).
sz = email.GetAttachmentSize(0)
outFile.WriteLine("Attachment 0 size (bytes) = " & sz)

outFile.Close