(PowerBuilder) Get IMAP UID from Email Header

Demonstrates how to get the IMAP UID from an email header. After fetching an email or header using IMAP, the UID is contained in the ckx-imap-uid header field.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Imap
integer li_Success
integer li_FetchUids
oleobject loo_MessageSet
oleobject loo_Bundle
integer i
integer li_SzBundle
oleobject loo_MsOneMsg
oleobject loo_Email
string ls_UidStr

// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

loo_Imap = create oleobject
li_rc = loo_Imap.ConnectToNewObject("Chilkat_9_5_0.Imap")
if li_rc < 0 then
    destroy loo_Imap
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// Connect to an IMAP server.
// Use TLS
loo_Imap.Ssl = 1
loo_Imap.Port = 993
li_Success = loo_Imap.Connect("imap.someMailServer.com")
if li_Success <> 1 then
    Write-Debug loo_Imap.LastErrorText
    destroy loo_Imap
    return
end if

// Login
li_Success = loo_Imap.Login("login","password")
if li_Success <> 1 then
    Write-Debug loo_Imap.LastErrorText
    destroy loo_Imap
    return
end if

// Select an IMAP mailbox
li_Success = loo_Imap.SelectMailbox("Inbox")
if li_Success <> 1 then
    Write-Debug loo_Imap.LastErrorText
    destroy loo_Imap
    return
end if

li_FetchUids = 1
// Get the message UIDs of all the emails in the mailbox
loo_MessageSet = loo_Imap.Search("ALL",li_FetchUids)
if loo_Imap.LastMethodSuccess <> 1 then
    Write-Debug loo_Imap.LastErrorText
    destroy loo_Imap
    return
end if

loo_Bundle = loo_Imap.FetchHeaders(loo_MessageSet)
if loo_Imap.LastMethodSuccess <> 1 then
    destroy loo_MessageSet
    Write-Debug loo_Imap.LastErrorText
    destroy loo_Imap
    return
end if

// The UID of each fetched email header is available 
// in the ckx-imap-uid header field.
i = 0
li_SzBundle = loo_Bundle.MessageCount
loo_MsOneMsg = create oleobject
li_rc = loo_MsOneMsg.ConnectToNewObject("Chilkat_9_5_0.MessageSet")

do while i < li_SzBundle
    loo_Email = loo_Bundle.GetEmail(i)

    // Build a message set containing one UID
    ls_UidStr = loo_Email.GetHeaderField("ckx-imap-uid")
    loo_MsOneMsg.FromCompactString(ls_UidStr)

    // Move this message to some other folder.
    li_Success = loo_Imap.MoveMessages(loo_MsOneMsg,"someOtherFolder")
    if li_Success <> 1 then
        Write-Debug loo_Imap.LastErrorText
        // Exit the loop...
        i = li_SzBundle
    end if

    destroy loo_Email
    i = i + 1
loop

// Disconnect from the IMAP server.
li_Success = loo_Imap.Disconnect()

destroy loo_MessageSet
destroy loo_Bundle


destroy loo_Imap
destroy loo_MsOneMsg