Makro til at flytte emails

Jeg er næsten 100% sikker på at det kan lade sig gøre.
Du skal oprette en regel for e-mails under funktioner -> regler og beskeder...

Her kan du bl.a. vælge at køre et script, når bestemte betingelser ved en modtaget/afsendt e-mail er opfyldt. Jeg har desværre ikke kunne finde et eks. på en script til dig formål.

Her står lidt mere: http://support.microsoft.com/kb/306108

Hej,

Ja, det kan sagtens lade sig gøre at kopiere til en bestemt folder. Problemet er bare, at jeg skal se emailen inden jeg ved hvilken folder den skal kopieres til. Hvis jeg på forhånd vidste hvor den skulle kopieres hen, er det rigtigt, så kunne jeg bare have lavet en regel. Men desværre.

VH Jacob

Hej

Følgende script virker til det du beder om i Outlook 2007.

Du skal kopiere koden ind i det kodemodul der hedder "This Outlook Session"

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
    Dim mail As MailItem
    Dim intInitial As Integer
    Dim strEntryId As String
    Dim intLength As Integer
    Dim fld As Folder
   
    intInitial = 1
    intLength = Len(EntryIDCollection)
   
    strEntryId = Strings.Mid(EntryIDCollection, intInitial, (intLength - intInitial) + 1)
   
    Set mail = Application.Session.GetItemFromID(strEntryId)
   
    Set fld = Application.GetNamespace("MAPI").PickFolder

    If Not fld Is Nothing Then
        mail.Move fld
    End If

End Sub

/Christian
ck@officekonsulenterne.dk

Jeg mente også et-eller-andet script, som skulle spørge efter en folder, når du havde set e-mailen. Jeg kunne blot ikke finde selve scriptet, men her kom kedde65 jo heldigvis ind i billedet.

NB: Flest point til kedde65.

Hejsa

Hvis jeg skal være helt fair, så kan jeg faktisk ikke huske om den event jeg har brugt i koden, den findes i Outlook 2003. Hvis ikke den gør, så skal der benyttes et script (som jeg har på lager) samt levich's løsning med regler.

/Christian
ck@officekonsulenterne.dk

Beklager, jeg er lidt novice på Outlook scripting fronten.

Når jeg paster ovenstående ind i min VB editor (i ThisOutlookSession) sker der ikke noget. Den kommer ikke frem, når man prøver at kalde et script og heller ikke under regler.

Jeg har prøvet at fjerne "Private".

VH Jacob

Den skal ikke optræde i regler, den skulle gerne kunne fungere af sig selv. Så hvis du modtager en mail, så skulle boksen gerne komme op af sig selv.

/Christian
ck@officekonsulenterne.dk

Ahhh, jeg ser. Nu brokker den sig over at Folder er en user defined type...

Hvis du går ind i VBA vinduet og går i menuen tools - references er der så et flueben ved "Microsoft Outlook <nr> Object library" hvor <nr> er enten 10, 11 eller 12?

Ja, det er nr 11 - og der er hak i den.