How to check if an email is a draft, sent or received? (Openedge 11)

Question

I'm trying to create a way to check whether a given email (either from Outlook itself or an MSG file) is a sent, received or a draft email. I got the bit to compare if it was sent or received somewhere else and that works fine but it's the part that determines if it's a draft or not that is the issue. Below is what I have currently.

        L-EMAIL = Aspose.Email.Mapi.MapiMessage:FromFile(P-FILENAME).
        L-EMAIL-FLAG = Integer(L-EMAIL:Properties[Aspose.Email.Mapi.MapiPropertyTag:PR_MESSAGE_FLAGS]:ToString()).
        IF L-EMAIL-FLAG = 8 THEN
            L-EMAIL-STATUS = "DRAFT".
        ELSE
            IF L-EMAIL:Properties[Aspose.Email.Mapi.MapiPropertyTag:PR_RECEIVED_BY_ENTRYID] = ? THEN
                L-EMAIL-STATUS = "SENT".
            ELSE
                L-EMAIL-STATUS = "RECEIVED".

If there's no attachments to the emails, it works fine since the value of a draft email is always 8 but as soon as you add attachments, it gets all weird with the values so I can't get a range down (I've gotten values like 24 and 242613 while a sent email with an attachment has a value of 49). Anyone know a smarter way of telling if it's a draft or not?

Thought that too but I can't find any method to get what I need out of it (not very familiar with binary manipulation in progress) — CephDigital, May 26 '22 at 13:44
We logged this issue as EMAILNET-40614 and will inform you once it is resolved. I work with Aspose as Developer evangelist. — Tahir Manzoor, May 27 '22 at 17:52

score 2 · Answer 1 · answered May 26 '22 at 12:22

I never had a good experience working with Outlook and Progress internally... what I've managed to accomplish on my project was to create a custom DLL with C# and integrated it on my system.

So, I have an char that triggers some procedures inside my DLL and sends and receives emails (saves as .msg), making my Progress code a lot more easier to manage.

In your case, you should try something like this: Outlook MailItem: How to distinguish whether mail is incoming or outgoing?

There's not much on determine if it's a draft or not which is the main issue. — CephDigital, May 26 '22 at 12:58

score 0 · Accepted Answer · edited May 29 '22 at 16:10

Solution I found was to use a C# DLL to convert the email to an Outlook mail item using the interop:

public bool IsDraft(string path)
    {
        Outlook.Application oApp = (Outlook.Application)Marshal.GetActiveObject("Outlook.Application");
        Outlook.MailItem email = oApp.Session.OpenSharedItem(path) as Outlook.MailItem;
        bool isSent = email.Sent;
        Marshal.ReleaseComObject(email);
        email = null;
        return !isSent;
    }

I had to release the email object so that code further on wouldn't break.

score 0 · Answer 3 · answered Jun 07 '22 at 17:43

The PidTagMessageFlags property value is a bitmask of flags. This means a bitwise operator must be applied to check a specific flag value.

IF L-EMAIL-FLAG = 8 THEN

Please replace above line with following line of code. Hope this helps you.

IF (L-EMAIL-FLAG AND 8) = 8 THEN

I work with Aspose as Developer Evangelist.

How to check if an email is a draft, sent or received? (Openedge 11)

3 Answers3