从MS outlook导入规则到雷鸟的方法

我最近安装了Firefox thunderbird，我想将我在Outlook中创建的所有规则导入到thunderbird中。有没有办法导入这些规则？

我在工具菜单中尝试了导入选项。当我选择，过滤器我只能从Eudora导入。它没有列出Outlook。此外，当我尝试导入所有内容时，没有列出任何内容。

那么无论如何都要将Outlook的所有规则导入到雷鸟中。

Thunderbird调用消息规则消息过滤器。它们不兼容，Thunderbird不知道如何从Microsoft电子邮件客户端转换它们。似乎没有任何实用程序知道如何转换它们，可能是因为消息规则/过滤器没有行业标准格式。

资料来源：http：//kb.mozillazine.org/Emulate_Microsoft_email_clients#Rules

'Outlook 2007中的这样的宏将创建一些与Thunderbird消息过滤器导入/导出附加组件兼容的规则。用您的电子邮件地址和服务器域替换用户名和域。

Option Explicit
Sub CreateRule()
Dim colRules As Outlook.Rules
Dim oRule As Outlook.Rule
Dim j As Integer
Dim email(5) As String
Dim server(5) As String

'Get Rules from Session.DefaultStore object
Set colRules = Application.Session.DefaultStore.GetRules()
email(1) = "username1%40domain1.com"
email(2) = "username2%40gmail.com"
email(3) = "username3%40gmail.com"
email(4) = "username4%40domain2.com-"
email(5) = "username4%40gmail.com"
server(1) = "mail.domain1.com"
server(2) = "imap.googlemail.com"
server(3) = "imap.googlemail.com"
server(4) = "imap.domain2.com"
server(5) = "imap.googlemail.com"
For j = 1 To 5
    Open "c:\temp\" + email(j) + ".txt" For Output As #1
    Print #1, "RootFolderUri=mailbox://" + email(j) + "@" + server(j)
    Print #1, "mailnews.customHeaders="
    Print #1, "version=""9"""
    Print #1, "logging=""no"""
    Dim i As Integer
    For i = 1 To colRules.Count
        Set oRule = colRules.item(i)
        ' break here, right click, add watch to see the structure of oRule
        If Len(oRule.Name) > 0 And oRule.Enabled And oRule.conditions.from.Enabled And oRule.conditions.from.recipients.Count > 0 And oRule.actions.MoveToFolder.Enabled Then
            Print #1, "name=""From is: " + oRule.Name + """"
            Print #1, "enabled=""yes"""
            Print #1, "type=""16""" ' type 16 for manually run only, type 17 for manually run and run on checking mail
            Print #1, "action=""Move to folder"""
            Print #1, "actionValue=""mailbox://nobody@Local%20Folders/Outlook%20Import/Personal%20Folders/Inbox/" + oRule.actions.MoveToFolder.folder + """"
            Print #1, "condition=""AND (from,is," + oRule.conditions.from.recipients.item(1).Address + ")"""
        End If
    Next i
    Close 1
Next j
End Sub

Mozillazine论坛中的Outlook Express（解决方法）帖子中有一个导入消息规则，但这涉及注册表导出和一些看起来很麻烦的文件编辑 - 我只是手动完成。但如果您有很多规则，可能值得一试。也许您也可以尝试安装Eudora，从Outlook导入，然后将Eudora规则导入Thunderbird。