Hvordan flytte en melding til en personlig mappe Macro i Outlook 2007

Microsoft er selskapet som produserer og selger Outlook dataprogram. Mange bruker Outlook-programmet som en e-postklient og informasjonssjef. Outlook 2007 gir deg også muligheten til å administrere kontakter, oppgaver og individuelle og delte kalendere. Outlook 2007 kan du sette opp oppgaver å skje automatisk til hjelp i informasjonshåndtering ved bruk av Visual Basic-makroer. En grunnleggende oppgave som kan oppnås ved hjelp av makroer i Outlook automatisk flytte meldinger til personlige mapper.

Bruksanvisning

1 Åpne Outlook ved å dobbeltklikke på ikonet som ligger på skrivebordet. Du kan også gjøre dette ved å klikke på "Start" -knappen og åpne den direkte fra "Start" -menyen.

2 Klikk på "Verktøy" -knappen i verktøylinjen og hold den over "makro" alternativet. Herfra, klikk på det alternativet som leser "Visual Basic Editor."

3 Skriv inn følgende Visual Basic-skript i Visual Basic Editor i Outlook 2007:

Sub MoveToArchive ()
På Error Resume Next

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

Sett objNS = Application.GetNamespace ( "MAPI")
Sett objFolder = objNS.Folders ( "personlige mapper"). Folders ( "Ancient Archive")

'Antar at dette er en postmappe

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

Hvis Application.ActiveExplorer.Selection.Count = 0 Then
Krev at denne prosedyren kalles bare når en melding er valgt
Exit Sub
Slutt om

For hver objItem I Application.ActiveExplorer.Selection
Hvis objFolder.DefaultItemType = olMailItem Deretter
Hvis objItem.Class = olMail Deretter
objItem.UnRead = False
objItem.Move objFolder
Slutt om
Slutt om
neste

Sett objItem = Nothing
Sett objFolder = Nothing
Sett objNS = Nothing

End Sub

4 Rediger Visual Basic Maco linje som setter målmappen for Outlook 2007 å flytte meldingen til fra "Gamle Archive" til navnet på den personlige mappen i Outlook 2007 PST. For eksempel,
Sett objFolder = objNS.Folders ( "personlige mapper"). Folders ( "Your Mail Folder Name Here")

5 Velg menyknappen "Lagre" og start Outlook 2007. Makro vil flytte all e-post som blir lest til din personlige mappe i Outlook PST.