Procurar em todo o Office.com
 
Suporte / Páginas de Produtos / Colunas / Canto Do Usuário Do Poder
 
 

Eliminar Várias Mensagens de Correio Publicitário Não Solicitado no Outlook 2002

 

Espaço do Utilizador Avançado

Por Paul Cornell

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 nomes de mensagens de correio publicitário não solicitado à lista de remetentes de mensagens de correio publicitário não solicitado. Veja, em seguida, como poderá 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 correio publicitário não solicitado para as mensagens futuras do remetente irem 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 a 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 de correio não solicitado à lista de remetentes de mensagens de correio não solicitado, nos passos 1 a 10.

  1. No menu Ferramentas, aponte para Macro e, em seguida, clique em Macros.
  2. Na caixa Nome da macro, escreva MúltiplosRemetentesCorreioPublicitárioNãoSolicitado.
  3. Clique em Criar.
  4. Localize o código seguinte:

    Public Sub MultipleJunkEMailSenders()

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

    ' Note: This code works only with Microsoft Outlook 2002.

    ' The list of your junk e-mail message senders is stored in a file
    ' on your hard disk named "Junk Senders.txt".

    ' Replace this string of text with the path to your
    ' Junk Senders.txt file.

    Private Const JUNK_SENDERS_FILE As String = _
    "C:\Documents and Settings\[User Name]\Application Data\Microsoft\Outlook\Junk Senders.txt"

    Public Sub MultipleJunkEMailSenders()

    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:="Are you sure you want to " & _
    "add all of the selected senders to your " & _
    "junk e-mail sender list and then " & _
    "delete all of the selected e-mail " & _
    "messages? Caution: This action is not " & _
    "easily reversible!", 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:="All selected senders have been added " & _
    "to your junk e-mail senders list and " & _
    "all selected e-mails have been deleted."

    End If

    End Sub
  6. Substitua a cadeia de letras C:\Documents and Settings\[Nome do utilizador]\Dados da aplicação\Microsoft\Outlook\Junk Senders.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 uma macro e for apresentada uma mensagem a indicar que as macros do projecto estão desactivadas, consulte o artigo Alterar as definições de segurança das macros para obter mais informações sobre como corrigir o problema.

Continue a enviar mensagens de correio electrónico!

Espero receber as suas mensagens no endereço pwruser@microsoft.com. Pretendo que este seja o seu espaço, por isso envie-me os seus comentários e soluções favoritas do Office. Tenha em conta que não disponho de tempo para responder a todas as mensagens; no entanto, poderei apresentar a solução para o seu problema numa próxima coluna.

Acerca do autor

Paul Cornell faz parte da equipa da Ajuda do Office. Além de escrever a coluna Espaço do Utilizador Avançado do Office, também escreve a coluna Office Talk para a Microsoft Developer Network (MSDN).

Se gostar desta coluna e pretender obter informações sobre mais ofertas divertidas e úteis do Office, inscreva-se para receber a nossa newsletter.