☰

将规则从 MS Outlook 导入到 Thunderbird 的方法

tag-icon • tag-icon microsoft-outlook-2007 thunderbird import
将规则从 MS Outlook 导入到 Thunderbird 的方法

我最近安装了 Firefox thunderbird，我想将我在 Outlook 中创建的所有规则导入到 thunderbird 中。有什么方法可以导入这些规则吗？

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

那么有没有办法将 Outlook 的所有规则导入到 thunderbird 中？

答案1

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

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

答案2

'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

答案3

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

相关内容