7 votos

Tengo Outlook 2007 a la regla de que las copias de ciertos mensajes salientes a otra carpeta -- ¿cómo puedo marcar automáticamente estos mensajes como "leer"?

Los mensajes se copian correctamente a la carpeta otros, pero aparecen como no leídos.

"Marcar como leído" sí se muestra como una opción de filtro en la lista de acciones a la hora de crear una regla que se aplica a los mensajes entrantes, pero no lo veo a la hora de crear una ley que se aplica a los SALIENTES de los mensajes. ¿Cómo puedo lograr esto?

Aquí está el texto completo de mi existentes descripción de la regla de la cadena:

Apply this rule after I send the message
on this machine only
move a copy to the Archive folder

Actualización:
@xxl3ww notas que hay scripts VB hay que puede lograr esto. Yo preferiría no tener que pagar por uno de estos, sin embargo. Cualquiera de las alternativas libres que nadie es consciente de?

4voto

subman Puntos 1833

Usted tendrá que habilitar las Macros para que el siguiente código de trabajo. En Herramientas > Macros > cambio de Seguridad a las Advertencias para todas las macros' o 'No controles de seguridad'

Haga Clic En Herramientas > Macro > Editor De Visual Basic

Copie y Pegue el siguiente:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Item.UnRead = False
End Sub

Eso es todo! (Junto con el mensaje de la regla)

0voto

Construir su regla con el asistente para reglas (herramientas - > reglas y alertas) la tercera pantalla le permite marcar un mensaje como leído. Puede que necesite desplazarse hacia abajo un poco para encontrar el derecho de casilla de verificación.

Aunque esto no es técnicamente una "salida" de la regla, se le funciona si se ejecuta de forma manual. No creo que hay una manera integrada en oficina para realizar la comprobación de forma automática.

0voto

Christian Blatter Puntos 1027

Deberá ajustar esto para que coincida con su carpeta / buzón de nombres, pero este conjunto de elementos recién agregados (es decir, correos electrónicos, movido por su regla) como leer:


Option Explicit
'##############################################
'### all code for the ThisOutlookSession module
'### Module level Declarations
'expose the items in the target folder to events
Dim WithEvents TargetFolderItems As Items

'###############################################
Private Sub Application_Startup()
'some startup code to set our "event-sensitive"
'items collection

Dim myMailbox As String, myFolder As String

'You need to set these
myMailbox = "Mailbox - My Name"
myFolder = "Archive Folder Name"

Dim ns As Outlook.NameSpace

Set ns = Application.GetNamespace("MAPI")
Set TargetFolderItems = ns.Folders(myMailbox).Folders(myFolder).Items

End Sub

'#################################################
'### this is the ItemAdd event code
Sub TargetFolderItems_ItemAdd(ByVal Item As Object)
'when a new item is added to our "Testing Folder"
'we can process it
Dim myEmail As MailItem
Set myEmail = Item
myEmail.UnRead = False
End Sub

'#################################################
Private Sub Application_Quit()

Dim ns As Outlook.NameSpace
Set TargetFolderItems = Nothing
Set ns = Nothing

End Sub

EnMiMaquinaFunciona.com

EnMiMaquinaFunciona es una comunidad de administradores de sistemas en la que puedes resolver tus problemas y dudas.
Puedes consultar las preguntas de otros sysadmin, hacer tus propias preguntas o resolver las de los demás.

Powered by: