Sådan flytte en besked til en personlig mappe makro i Outlook 2007

Microsoft er den virksomhed, der producerer og sælger Outlook computerprogrammet. Mange mennesker bruger Outlook-program som et e-mail-klient og information manager. Outlook 2007 giver dig også mulighed for at styre kontaktpersoner, opgaver og individuelle og delte kalendere. Outlook 2007 kan du oprette opgaver til ske automatisk for at hjælpe med information management ved brug af Visual Basic-makroer. En grundlæggende opgave, der kan gøres ved hjælp af makroer i Outlook automatisk flytte beskeder til personlige mapper.

Instruktioner

• Åbn Outlook ved at dobbeltklikke på ikonet, der er placeret på skrivebordet. Du kan også gøre dette ved at klikke på "Start" knappen, og få adgang til det direkte fra "Start" -menuen.

• Klik på "Funktioner" -knappen i værktøjslinjen og svæve over "Macro" valgmulighed. Herfra skal du klikke på den indstilling, der hedder "Visual Basic Editor."

• Indtast følgende Visual Basic script i Visual Basic Editor i Outlook 2007: Sub MoveToArchive () ved fejl Resume Next Dim objFolder Som Outlook.MAPIFolder Dim objNS Som Outlook.NameSpace, objItem Som Outlook.MailItem Set objNS = Application.GetNamespace (" MAPI ") Set objFolder = objNS.Folders (" Private mapper "). mapper (" Ancient Archive «)« formoder, det er en mail-mappe, hvis objFolder er intet Så MsgBox "Denne mappe findes ikke!", vbOKOnly + vbExclamation, "ugyldig FOLDER" End Hvis Hvis Application.ActiveExplorer.Selection.Count = 0 Så 'Kræv, at denne procedure kaldes, når en besked er valgt Exit Sub End If For hver objItem I Application.ActiveExplorer.Selection Hvis objFolder.DefaultItemType = olMailItem Så Hvis objItem.Class = olMail Så objItem.UnRead = False objItem.Move objFolder End If End If Next Set objItem = Nothing Set objFolder = Nothing Set objNS = Nothing End Sub

• Rediger Visual Basic Maco linje, der sætter destinationsmappen for Outlook 2007 til at flytte beskeden til fra "Ancient Archive" til navnet på den personlige mappe i din Outlook 2007 PST. Eksempelvis Set objFolder = objNS.Folders ("Private mapper"). Mapper ("Din Mail mappe navn her")

• Vælg "Gem" menu-knappen og genstart Outlook 2007. makroen vil flytte alle e-mail, der er læst til din personlige mappe i Outlook PST.