none
Desarrollar macro para outlook 2010 RRS feed

  • Pregunta

  • Buenos días :

    Estoy usando Outlook Pro 2010 14.0.7015.1000 (32 Bits) y me surge una necesidad al recibir demasiado spam. En la bandeja de entrada seleccionar el correo spam y bloquear remitentes. Esto solo lo hace cuando selecciono un email. Con varios emails seleccionados no me funciona. Entonces me planteo hacer esto.

    Quiero hacer un boton personalizado en outlook 2010. Este boton ejecutará una macro sobre los email seleccionados de bandeja de entrada. Le agregará un asusnto, bloqueará el remitente y mueve el email a un directorio de correo no deseado. El código que tengo es este:

    Sub MoveToSPAM()

    On Error Resume Next

    Dim ns As Outlook.NameSpace
    Dim moveToFolder As Outlook.MAPIFolder
    Dim objItem As Outlook.mailItem

    Set ns = Application.GetNamespace("MAPI")

    'Definimos el directorio destino

    Set moveToFolder = ns.Folders("Outlook Ivan Vadillo").Folders("SPAM")

    If Application.ActiveExplorer.Selection.Count = 0 Then
       MsgBox ("Ningún item seleccionado")
       Exit Sub
    End If

    If moveToFolder Is Nothing Then
       MsgBox "¡Directorio de destino no existe!", vbOKOnly + vbExclamation, "Error Macro"
    End If

    For Each objItem In Application.ActiveExplorer.Selection
       If moveToFolder.DefaultItemType = olMailItem Then
          If objItem.Class = olMail Then
             objItem.Subject = "SPAM!!! No abrir"

    ???????? Como bloquear remitente ??????

             objItem.Move moveToFolder
             
          End If
      End If
    Next

    Set objItem = Nothing
    Set moveToFolder = Nothing
    Set ns = Nothing

    End Sub

    No se como llamar al commando bloquear remitente o funcion methodo.... Me podrías echar un cable.

    ¡Gracias por todo!.

    Un saludo Iván VP,  seguid así.

    viernes, 15 de noviembre de 2013 9:44