Cómo mover un mensaje a una macro de carpetas personales en Outlook 2007

Microsoft es la empresa que produce y comercializa el programa de ordenador de Outlook. Mucha gente utiliza el programa Outlook como cliente de correo electrónico y gestor de información. Outlook 2007 también le ofrece la posibilidad de gestionar los contactos, tareas y calendarios individuales y compartidos. Outlook 2007 le permite configurar las tareas que se produzca de forma automática para ayudar en la gestión de la información mediante el uso de macros de Visual Basic. Una tarea básica que se puede lograr mediante macros en Outlook se mueve automáticamente los mensajes a las carpetas personales.

Instrucciones

1 Abra Outlook haciendo doble clic en el icono que se encuentra en el escritorio. También puede hacer esto haciendo clic en el botón "Inicio" y acceder a ella directamente desde el menú "Inicio".

2 Haga clic en el botón "Herramientas" en la barra de herramientas y se ciernen sobre la opción "Macro". A partir de aquí, haga clic en la opción que dice "Editor de Visual Basic."

3 Introduzca la siguiente secuencia de comandos de Visual Basic en el Editor de Visual Basic en Outlook 2007:

Sub MoveToArchive ()
On Error Resume Next

Dim objFolder As Outlook.MAPIFolder
Dim objNS As Outlook.NameSpace, objItem As Outlook.MailItem

Establecer objNS = Application.GetNamespace ( "MAPI")
Establecer objFolder = objNS.Folders ( "carpetas personales"). Las carpetas ( "antiguo Archivo")

'Supongamos que esto es una carpeta de correo

If objFolder Is Nothing Then
MsgBox "This folder doesn't exist!", vbOKOnly + vbExclamation, "INVALID FOLDER"
End If

Si Application.ActiveExplorer.Selection.Count = 0 Entonces
"Requerir que este procedimiento se le llama sólo cuando se selecciona un mensaje
Exit Sub
Terminara si

Para cada objItem En Application.ActiveExplorer.Selection
Si objFolder.DefaultItemType = Entonces olMailItem
Si objItem.Class = Entonces olMail
objItem.UnRead = False
objItem.Move objFolder
Terminara si
Terminara si
Siguiente

Establecer objItem = Nada
Establecer objFolder = Nada
Establecer objNS = Nada

End Sub

4 Editar la línea maco de Visual Basic que establece la carpeta de destino para Outlook 2007 para mover el mensaje a partir de "Ancient Archivo" al nombre de la carpeta personal en su Outlook 2007 PST. Por ejemplo,
Establecer objFolder = objNS.Folders ( "carpetas personales"). Las carpetas ( "Su carpeta de correo nombre aquí")

5 Elija el botón de menú "Guardar" y reinicie Outlook 2007. La macro se moverá todo el correo electrónico que se lee a su carpeta personal en el PST de Outlook.