Maneira de importar regras do outlook do MS para o thunderbird

Question

Eu instalei recentemente o Firefox thunderbird e quero importar todas as regras que criei no Outlook para o thunderbird. Existe alguma maneira de importar essas regras?

Eu tentei a opção Importar no menu Ferramentas. Quando eu seleciono, Filtros recebo apenas o Eudora para importar. Não está listando o Outlook. Além disso, quando tento Importar tudo, nada é listado.

Existe alguma maneira de importar todas as regras do Outlook para o Thunderbird?

    

Answer 1

Thunderbird calls message rules message filters. They are not compatible, and Thunderbird doesn't know how to convert them from a Microsoft email client. There don't appear to be any utilities that know how to convert them either, possibly because there is no industry standard format for message rules/filters.

Fonte: link

    

Answer 2

'Uma macro como esta no Outlook 2007 criará algumas regras compatíveis com o complemento de importação / exportação de filtro de mensagens do Thunderbird. Substitua nomes de usuário e domínios por seus endereços de e-mail e domínios de servidor.

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

    

Answer 3

Há um Importar regras de mensagens do Outlook Express (Solução alternativa) postado nos fóruns do Mozillazine, mas isso envolve a exportação do registro e algumas coisas de edição de arquivos que causaram muitos problemas - eu fiz isso manualmente. Mas pode valer a pena conferir se você tem muitas regras. Talvez você também possa tentar instalar o Eudora, importar do Outlook e importar as regras do Eudora para o Thunderbird.