OUTLOOK中有后续标志,这个VBA能设吗?

lqh123108

请高手指导,是哪个参数(比如选定邮件),自动设为红色标志

dsd999

Sub SetFlagIcon()
    Dim myOlApp As Outlook.Application
    Dim mpfInbox As Outlook.MAPIFolder
    Dim obj As Outlook.MailItem
    Dim i As Integer

    Set myOlApp = CreateObject("Outlook.Application")
    Set mpfInbox = myOlApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders("Test")
' Loop all items in the Inbox\Test Folder
    For i = 1 To mpfInbox.Items.count
        If mpfInbox.Items(i).Class = olMail Then  
            Set obj = mpfInbox.Items.Item(i)
                If obj.SenderName = "Dan Wilson" Then
                'Set the yellow flag icon
                obj.FlagIcon = olYellowFlagIcon
                obj.Save
            End If
        End If
    Next
End Sub


是这个吗?

lqh123108

dsd999 发表于 2012-1-30 10:17
Sub SetFlagIcon()
    Dim myOlApp As Outlook.Application
    Dim mpfInbox As Outlook.MAPIFolder

多谢了..这个特殊的参数,哪里可以学,在帮助里没有呀??

dsd999

就是在帮助里拷贝的。

lqh123108

dsd999 发表于 2012-1-31 11:11
就是在帮助里拷贝的。

能传一份您的CHM吗/我的帮助里没有..多谢

dsd999

英文版的。

lqh123108

dsd999 发表于 2012-2-10 13:47
英文版的。

多谢,实在看不懂呀,没有中文版呀?

dsd999

http://club.excelhome.net/thread-641283-1-1.html

lqh123108

dsd999 发表于 2012-2-19 15:11
http://club.excelhome.net/thread-641283-1-1.html

太好了,有一点小问题,打开它,总是提示当前页面的脚本发生错误,是否继续运行..每个页面都这样,不过用用也行,再次感谢!

dsd999

放到根目录下试试。