Flags

[Tagliaboo]

I would like to automatically flag every message that is received on friday for followup, is this possible?

[gmayor]

I guess you could use a script to check the day of the week of all incoming messages, using a rule that runs a script to determine if the received time is on a Friday e.g.

Sub FlagMessage(olItem As Outlook.MailItem)
    With olItem
        If Weekday(.ReceivedTime) = 6 Then
            ' due this week flag
            .MarkAsTask olMarkThisWeek
            ' sets a specific due date
            .TaskDueDate = Now + 3
            .FlagRequest = "Call " & olItem.SenderName
            .ReminderSet = True
            .ReminderTime = Now + 2
            .Save
        End If
    End With
lbl_Exit:
    Exit Sub
End Sub

You can test it by selecting a message that was received on a Friday and run the following macro.

Sub GetMsg()
Dim olMsg As MailItem
    On Error Resume Next
    Set olMsg = ActiveExplorer.Selection.Item(1)
    FlagMessage olMsg
lbl_Exit:
    Exit Sub
End Sub

[Tagliaboo]

I copied the code into the VB. How do I test the macros? It is a bit different than excel

[gmayor]

Add a module to the project and paste the macro code. Make sure you save the project when you close Outlook.

To test it, select a message delivered on a friday and run GetMsg from the VBA editor.

The main macro is run from an Outlook rule as a script.

You may need to digitally sign the project. See http://www.gmayor.com/create_and_emp...gital_cert.htm

[Tagliaboo]

I have attached a screen shot of the error I'm receiving. Any help would be appreciated

[gmayor]

See the link in my previous post re digital certificates. Outlook security is higher than other VBA forms.