Microsoft è l'azienda che produce e vende il programma per computer di Outlook. Molte persone usano il programma Outlook come client di posta elettronica e gestione delle informazioni. Outlook 2007 si prevede anche la possibilità di gestire i contatti, le attività ei individuali e calendari condivisi. Outlook 2007 consente di impostare le attività che si verifichi automaticamente per aiutare nella gestione delle informazioni attraverso l'utilizzo di macro di Visual Basic. Un compito fondamentale che può essere realizzato utilizzando le macro in Outlook viene automaticamente muovendo messaggi nelle cartelle personali.

istruzione

1 Aprire Outlook facendo doppio clic sull'icona che si trova sul desktop. È inoltre possibile effettuare questa operazione facendo clic sul pulsante "Start" e accedendo direttamente dal menu "Start".

2 Fare clic sul pulsante "Strumenti" nella barra degli strumenti e passa il mouse sopra l'opzione "Macro". Da qui, fare clic sull'opzione che dice "Visual Basic Editor."

3 Inserisci il seguente script 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 ( "Cartelle personali"). Cartelle ( "antico archivio")

'Assumere questa è una cartella di posta

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

Se Application.ActiveExplorer.Selection.Count = 0 Then
'Richiede che questa procedura essere chiamato solo quando si seleziona un messaggio
Exit Sub
Finisci se

Per ogni objItem In Application.ActiveExplorer.Selection
Se objFolder.DefaultItemType = olMailItem Poi
Se objItem.Class = olMail Poi
objItem.UnRead = False
objItem.Move objFolder
Finisci se
Finisci se
Il prossimo

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

End Sub

4 Modificare la riga Maco di Visual Basic che imposta la cartella di destinazione per Outlook 2007 per spostare il messaggio da "antico archivio" per il nome della cartella personale nel vostro Outlook 2007 PST. Per esempio,
Set objFolder = objNS.Folders ( "Cartelle personali"). Cartelle ( "La vostra posta Folder Name Here")

5 Scegliere il pulsante di menu "Salva" e riavviare Outlook 2007. La macro si sposta tutte le email che si legge nella cartella personale nel PST di Outlook.