Macro i Outlook 2003 som behaldler nye mails.

Hey folkens
Nå sider med et problem skal bruge en macro i Outlook som udfra emnet flytter den til en mappe problemet er bare at emnet bliver tilføjet noget nyt værgang eks: Lost call from: + navn første del er fast resten ændres jeg har prøvet med denne kode fundet her på siden http://www.eksperten.dk/spm/209538

og har prøvet at rette det til men jeg kan ikke få det til at virke Outlook låser en gang i mellem.

Sådan her ser min kode ud:

Private Sub Application_NewMail()

 
    On Error Resume Next
   
    Dim myNameSpace As NameSpace
    Dim MyOlapp As New Outlook.Application
    Dim taeller As Integer
    Dim myPersonalFolder As MAPIFolder
    Dim myInbox As MAPIFolder
    Dim myTestFolder As MAPIFolder
    Dim myFolder As MAPIFolder
    Dim MyMessage As MailItem
   
    Set MyOlapp = GetObject(, "Outlook.Application")
    Set myNameSpace = MyOlapp.GetNamespace("MAPI")
    Set myPersonalFolder = myNameSpace.Folders(1)
    Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
    Set myTestFolder = myPersonalFolder.Folders("Test")
   
    Set myFolder = myInbox
   
        Set MyMessage = myFolder.Items(taeller)
        If MyMessage.Subject = "call from:" Then
            'Behandling (myMessage)
            MyMessage.Move myTestFolder
            taeller = 1
        End If
    Next

End Sub



Håber på lidt hjælp..!