-
Flagging Posts
Thanks again. I've attached the .oft of the post I'm developing. The check boxes on the second page are the ones I want to trigger the flag status.
This:
[VBA]
Option Explicit
Sub MoveItems()
Dim Messages As Selection
Dim Msg As MailItem
Dim NamSpace As NameSpace
Dim Proceed As VbMsgBoxResult
Set NamSpace = Application.GetNamespace("MAPI")
Set Messages = ActiveExplorer.Selection
If Messages.Count = 0 Then
Exit Sub
End If
For Each Msg In Messages
If Msg.FlagStatus = 2 Then
Proceed = MsgBox("Are you sure you want to do this? ", vbYesNo + vbQuestion, "Confirm Procedure")
If Proceed = vbYes Then
Msg.FlagStatus = olFlagComplete
Msg.FlagIcon = olGreenFlagIcon
End If
End If
Next
End Sub
[/VBA]
in the Outlook session will take selected messages with a flag set and change it to Green and completed. What I need is for this sort of change to be triggered by ticking the checkboxes on page two BUT in VBS, not as a session VBA sub.
I hope this makes sense. Thanks for looking.
Jon
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules