Videresende mails fra bestemt mappe

Ja det er det da... eller rettere en makro....

Skal du sende alt i mappen til den samme modtager ?

Hej Martens,

Tænkte nok at makro var løsningen. Det skal jeg.

Kan du hjælpe mig med en makro, der kan gøre dette? :-)

Jeps det kan jeg da....

Opret en makro og smid nedenstående kode ind :
( emner der videresendes er dem, der er ULÆSTE , men det er vel et spørgsmål om at markere dem alle og vælge Sæt til ULÆST inden makroen køres ...)

Dim CurItem As Outlook.MailItem
  Dim myFwd As Outlook.MailItem
  Dim strMsg As String

  Set CurFolder = Application.ActiveExplorer.CurrentFolder
  Set AllItems = CurFolder.Items
  NumItems = CurFolder.Items.Count

  For i = 1 To NumItems

    DoEvents

    Set CurItem = AllItems.Item(i)

    If (CurItem.UnRead) Then

        Set myFwd = CurItem.Forward
        myFwd.Recipients.Add "mailadresse@whatever.com"
        myFwd.Send
        Set myFwd = Nothing

    End If

  Next

  MsgBox "Done"

----------------- END of CODE ----------------------------------------
mvh martens

Hej Martens,

Tak for hjælpen. Jeg kan ikke helt gennemskue hvor i makroen, jeg skal skrive hvilken mappe den skal tage fra?

Den tager den mappe, der er markeret ( Application.ActiveExplorer.CurrentFolder )

Fandt lige dette interessante indspark med samme problematik som din..

https://www.msofficeforums.com/outlook/27940-vba-rule-forward-messages-specific-folder-forward.html

Måske er der noget du kan bruge ?

mvh martens

Hej igen,

Perfekt - tak for hjælpen :-)