Lianja

Get IMAP Attachment Sizes

Demonstrates the Chilkat Imap.GetMailAttachSize method, which returns the size in bytes of an attachment. The first argument is the Email and the second is the zero-based attachment index. This example fetches headers only and prints each attachment's name and size.

Background: Like the attachment filename, the size comes from ckx-imap-* metadata and is available from a header-only fetch without downloading the body. A client can therefore show attachment sizes in a message preview, and decide whether to auto-download or prompt before pulling a large file.

Chilkat Lianja Downloads

Download Chilkat for Lianja

Lianja

llSuccess = .F.

//  Demonstrates the Imap.GetMailAttachSize method, which returns the size in bytes of an
//  attachment.  The 1st argument is the Email and the 2nd is the zero-based attachment index.

loImap = createobject("CkImap")

loImap.Ssl = .T.
loImap.Port = 993

llSuccess = loImap.Connect("imap.example.com")
if (llSuccess = .F.) then
    ? loImap.LastErrorText
    release loImap
    return
endif

llSuccess = loImap.Login("user@example.com","myPassword")
if (llSuccess = .F.) then
    ? loImap.LastErrorText
    release loImap
    return
endif

llSuccess = loImap.SelectMailbox("Inbox")
if (llSuccess = .F.) then
    ? loImap.LastErrorText
    release loImap
    return
endif

//  Fetch only the message headers.  Attachment bodies are NOT downloaded, but the ckx-imap-*
//  metadata describing the attachments is present, so the attachment info methods still work.
llHeadersOnly = .T.
llUseUid = .F.
lnSeqNum = 1
loEmail = createobject("CkEmail")
llSuccess = loImap.FetchEmail(llHeadersOnly,lnSeqNum,llUseUid,loEmail)
if (llSuccess = .F.) then
    ? loImap.LastErrorText
    release loImap
    release loEmail
    return
endif

lnNumAttach = loImap.GetMailNumAttach(loEmail)

for i = 0 to lnNumAttach - 1
    lcFname = loImap.GetMailAttachFilename(loEmail,i)
    if (loImap.LastMethodSuccess = .F.) then
        ? loImap.LastErrorText
        release loImap
        release loEmail
        return
    endif

    lnSz = loImap.GetMailAttachSize(loEmail,i)
    ? lcFname + ": " + str(lnSz) + " bytes"
next

llSuccess = loImap.Disconnect()
if (llSuccess = .F.) then
    ? loImap.LastErrorText
    release loImap
    release loEmail
    return
endif



release loImap
release loEmail