Microsoft è l'azienda che produce e vende il programma del computer di Outlook. Molte persone usano il programma di Outlook come un gestore di posta client e informazioni. Outlook 2007 vi offre anche la possibilità di gestire contatti, attività e calendari individuali e condivisi. Outlook 2007 consente di impostare le attività si verifica automaticamente per facilitare la gestione delle informazioni attraverso l'uso di macro di Visual Basic. Un'attività di base che è possibile utilizzare le macro in Outlook viene automaticamente lo spostamento dei messaggi nelle cartelle personali.

Istruzioni

1

Aprire Outlook facendo doppio clic sull'icona che si trova sul tuo desktop. È anche possibile farlo cliccando sul pulsante "Start" e accedervi direttamente dal menu "Start".

2

Fare clic sul pulsante "Strumenti" all'interno della barra degli strumenti e al passaggio del mouse sopra l'opzione "Macro". Da qui, scegliere l'opzione che recita "Visual Basic Editor".

3

Inserire il seguente script di Visual Basic in Visual Basic Editor in Outlook 2007:

Sub MoveToArchive()
On Error Resume Next

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

Set objNS = Application.GetNamespace("MAPI")
Set objFolder = objNS.Folders("Personal Folders").Folders("Ancient Archive")

' Supporre questo è una cartella di posta

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

If Application.ActiveExplorer.Selection.Count = 0 Then
'Require that this procedure be called only when a message is selected
Exit Sub
End If

For Each objItem In Application.ActiveExplorer.Selection
If objFolder.DefaultItemType = olMailItem Then
If objItem.Class = olMail Then
objItem.UnRead = False
objItem.Move objFolder
End If
End If
Next

Set objItem = Nothing
Set objFolder = Nothing
Set objNS = Nothing

End Sub

4

Modificare la riga di maco di Visual Basic che imposta la cartella di destinazione per Outlook 2007 per spostare il messaggio da "Antico archivio" al nome della cartella personale nel tuo PST di Outlook 2007. Per esempio
Set objFolder = objNS.Folders ("cartelle personali"). Cartelle ("il tuo Mail cartella nome qui")

5

Scegliere il pulsante di menu "Salva" e riavviare Outlook 2007. La macro si sposterà tutte le email che viene letto alla cartella personale in Outlook PST.