Artigos:

Eliminar várias mensagens de correio publicitário não solicitado no Outlook 2002

Por Paul Cornell - Abril de 2002

As mensagens de correio publicitário não solicitado estão a encher a sua pasta A receber do Microsoft Outlook®? Pretende evitar que esta situação se repita? Obtenha informações sobre as funcionalidades de gestão de correio publicitário não solicitado no Outlook 2002 e, em seguida, modifique estas funcionalidades utilizando o código de macro nesta coluna.

Recebo centenas de mensagens de correio electrónico por dia. A maioria destas mensagens não é solicitada e tem origem em remetentes desconhecidos. Por outras palavras, são mensagens de correio publicitário não solicitado. O Outlook 2002 dispõe de funcionalidades que permitem eliminar mensagens únicas de correio publicitário não solicitado ou adicionar os respectivos nomes de remetente à lista de remetentes de mensagens de correio publicitário não solicitado. Veja, em seguida, como utilizar estas funcionalidades.

Para eliminar uma única mensagem de correio publicitário não solicitado da pasta 'A receber' e adicionar o nome do remetente à lista de nomes de remetentes de correio publicitário não solicitado

1.       Clique com o botão direito do rato na mensagem de correio publicitário não solicitado na pasta A receber.

2.       Aponte para Correio publicitário não solicitado.

3.       Clique em Adicionar à lista de remetentes de correio publicitário não solicitado.

4.       Com a mensagem de correio publicitário não solicitado seleccionada, no menu Editar, clique em Eliminar.

Para adicionar um único nome de remetente de mensagem de correio publicitário não solicitado à lista de remetentes de mensagens de correio não solicitado para as futuras mensagens do remetente serem enviadas directamente para a pasta 'Itens eliminados'

1.       No menu Ferramentas, clique em Organizar.

2.       Clique em Correio publicitário não solicitado.

3.       Personalize a primeira marca utilizando as caixas pendentes para ser apresentada a frase Automaticamente mover mensagens de publicidade não solicitada para 'Itens eliminados' e, em seguida, clique em Activar.

4.       Em Para mais opções, clique em clique aqui.

5.       Clique em Editar remetentes de publicidade não solicitada.

6.       Clique em Adicionar.

7.       Escreva o nome alternativo de correio electrónico do remetente a adicionar.

8.       Clique em OK.

9.       Clique novamente em OK.

10.   No menu Ferramentas, clique em Organizar para regressar à pasta A receber.

Apesar de estas funcionalidades serem muito úteis para mensagens ou remetentes únicos de correio publicitário não solicitado, não funcionam para várias mensagens ou remetentes. Por exemplo, se seleccionar várias mensagens de correio publicitário não solicitado na pasta A receber e clicar com o botão direito do rato nas mesmas, não será apresentada nenhuma opção Correio publicitário não solicitado. É para isso que serve uma macro!

Para criar e executar a macro no Outlook 2002

Nota Para criar a macro, terá de ter adicionado pelo menos um nome de remetente de mensagem à lista de remetentes de mensagens de correio publicitário não solicitado, seguindo os passos 1 a 10 acima mencionados.

1.       No menu Ferramentas, aponte para Macro e clique em Macros.

2.       Na caixa Nome da macro, escreva MúltiplosRemetentesCorreioPublicitárioNãoSolicitado.

3.       Clique em Criar.

4.       Procure o código com o seguinte aspecto:

Public Sub MúltiplosRemetentesCorreioPublicitárioNãoSolicitado()

End Sub
 

5.       Modifique o código para que apresente o seguinte formato:

' Nota: este código funciona apenas com o Microsoft Outlook 2002.

' A lista de remetentes de mensagens de correio publicitário não solicitado está armazenada num ficheiro
' no disco rígido denominado "Remetentes de correio publicitário não solicitado.txt".

' Substitua esta cadeia de texto pelo caminho para o
' ficheiro Remetentes de correio publicitário não solicitado.txt.

Private Const JUNK_SENDERS_FILE As String = _
    "C:\Documentos e definições\[Nome do utilizador]\Application Data\Microsoft\Outlook\Remetentes de correio publicitário não solicitado.txt"
   
Public Sub MúltiplosRemetentesCorreioPublicitárioNãoSolicitado()

    Dim objExplorer As Outlook.Explorer
    Dim objMailItem As Outlook.MailItem
    Dim intItem As Integer
    Dim objFSO As Scripting.FileSystemObject
    Dim objTextStream As Scripting.TextStream
   
    Set objFSO = New Scripting.FileSystemObject
   
    If MsgBox(Prompt:="Tem a certeza de que pretende " & _
        "adicionar todos os remetentes seleccionados à " & _
        "lista de remetentes de correio publicitário não solicitado e, em seguida, " & _
        "eliminar todas as mensagens de correio electrónico " & _
        "seleccionadas? Atenção: esta acção não é " & _
        "facilmente reversível!", Buttons:=vbYesNo) = vbYes Then
       
        If objFSO.FileExists(FileSpec:=JUNK_SENDERS_FILE) = False Then
            Set objTextStream = objFSO.CreateTextFile _
                (FileName:=JUNK_SENDERS_FILE)
        Else
            Set objTextStream = objFSO.OpenTextFile _
                (FileName:=JUNK_SENDERS_FILE, IOMode:=ForAppending)
        End If
   
        Set objExplorer = Application.ActiveExplorer
      
        For Each objMailItem In objExplorer.Selection
       
            objTextStream.WriteLine Text:=objMailItem.SenderName
           
            objMailItem.Delete
           
        Next objMailItem
       
        MsgBox Prompt:="Todos os remetentes seleccionados foram adicionados " & _
            "à lista de remetentes de correio publicitário não solicitado e " & _
            "todas as mensagens seleccionadas foram eliminadas."
       
    End If
       
End Sub
 

6.       Substitua a cadeia de letras C:\Documentos e definições\[Nome do utilizador]\Application Data\Microsoft\Outlook\Remetentes de correio publicitário não solicitado.txt pelo caminho para o ficheiro Remetentes de correio publicitário não solicitado.txt no disco rígido do computador (no menu Iniciar, clique em Procurar para procurar o caminho para o ficheiro Remetentes de correio publicitário não solicitado.txt, caso não saiba qual o caminho para este ficheiro).

7.       No menu Tools, clique em References.

8.       Na lista Available References, seleccione a caixa Microsoft Scripting Runtime.

9.       Clique em OK.

10.   No menu File, clique em Close and Return to Microsoft Outlook.

11.   Seleccione uma ou várias mensagens de correio publicitário não solicitado na pasta A receber.

12.   No menu Ferramentas, aponte para Macro e, em seguida, clique em Macros.

13.   Clique em MúltiplosRemetentesCorreioPublicitárioNãoSolicitado e, em seguida, clique em Executar.

14.   Clique em Sim.

15.   Se for apresentada a mensagem Um programa está a tentar aceder aos endereços de correio electrónico armazenados no Outlook. Deseja permiti-lo?, clique em Sim.

16.   Clique em OK.

As mensagens de correio publicitário não solicitado são movidas para a pasta Itens eliminados, os nomes de remetentes são adicionados à lista de remetentes de mensagens de correio publicitário não solicitado e as futuras mensagens de correio electrónico destes remetentes são movidas directamente para a pasta Itens eliminados. Agora, os seus problemas com mensagens de correio publicitário não solicitado estão controlados!

Nota Se tentar executar a macro e for apresentada uma mensagem a indicar que as macros do projecto estão desactivadas, consulte o artigo Changing Macro Security Settings para obter mais informações sobre como corrigir o problema.

Já está à venda em várias livrarias do País

O meu segundo livro: "Domine a 110% o Outlook 2003"
da editora FCA. 

Tudo sobre o livro.

Leia o Press Release

(21-06-2004)