MailClient.SetFollowUpFlag Method

Set a specified email with follow-up flag in Office 365 or Exchange Server.

[Visual Basic 6.0]
Public Sub SetFollowUpFlag( _
    info As MailInfo, _
    followUpFlag As String _
)

[Visual C++]
public: HRESULT SetFollowUpFlag(
    IMailInfo* info,
    BSTR followUpFlag
);

Parameters

info

The email to set follow-up flag.

followUpFlag

One of "notFlagged", "complete", "flagged".

Remarks

Example

[VB 6.0]
const GetMailInfos_All = 1
const GetMailInfos_NewOnly = 2
const GetMailInfos_ReadOnly = 4
const GetMailInfos_SeqRange = 8
const GetMailInfos_UIDRange = 16
const GetMailInfos_PR_ENTRYID = 32
const GetMailInfos_DateRange = 64
const GetMailInfos_OrderByDateTime = 128
const GetMailInfos_GetCategories = 256
const GetMailInfos_ImapDeleted = 512
const GetMailInfos_ImapUndeleted = 1024
const GetMailInfos_GetFollowUpFlag = 2048
const GetMailInfos_IncludeAllFolders = 4096

' you must use EWS or Graph API to connect the server
client.Connect server

' retrieve categories and follow up flag to MailInfo
client.GetMailInfosParam.Reset
Dim options
options = options Or GetMailInfos_GetCategories
options = options Or GetMailInfos_GetFollowUpFlag

client.GetMailInfosParam.GetMailInfosOptions = options

Dim mailInfos
Set mailInfos = client.GetMailInfoList()

Debug.Print "Total " & mailInfos.Length & " email(s)"

Dim i
For i = 0 To mailInfos.Length - 1
    Dim mailInfo
    Set mailInfo = mailInfos.Item(i)

    ' you can set notFlagged, flagged, or complete
    client.SetFollowUpFlag mailInfo, "complete"

    Debug.Print "Index: " & i & ", UIDL: " & mailInfo.UIDL
    Debug.Print "Follow up flag: " & mailInfo.FollowUpFlag 
Next

See Also

MailClient.GetFollowUpFlag Method