Making all Drafts High Priority.

[kcaenj]

I have about 150 messages in my draft folder that are ready to send however I just realized that all of them need be marked High Priority (red exclamation point) and they also need to have a read receipt attached to them. In addition the following email needs to be added to the CC: line of the message (scott@abc.com).

Is there a way I can program a macro to do this for all of the messages? I am not sure how this would be done in Outlook 2000.

Any help would be appreciated.

Thanks,

KC

 

[dk]

Hi,

Something like this should work for you:

Sub UpdateMessages()
    Dim olMsg       As Outlook.MailItem

    For Each olMsg In Application.GetNamespace("MAPI").GetDefaultFolder(olFolderDrafts).Items
        olMsg.Importance = olImportanceHigh
        olMsg.ReadReceiptRequested = True
        olMsg.Save
    Next olMsg

End Sub

HTH
Dan