Linier fraOutlookMailItem.Body

Jeg ved ikke om jeg har skrevet for lidt men her er et lille udsnit af koden:

Dim OutlookApplication As Outlook.Application
Set OutlookApplication = New Outlook.Application

' Get a reference to the Inbox.
  Set OutlookFolder = OutlookApplication.Session.GetDefaultFolder(olFolderInbox)
 
  ' Loop for each message.
  For Each OutlookMailItem In OutlookFolder.Items
       
        If OutlookMailItem.Subject = "VS: Tilmelding til go-home-meeting (Fra website)" Then
            ' Write the subject line to the immediate window.
          ' Nedenstående er lidt test
            Fornavn = Trim(Left(OutlookMailItem.Body, 56))

            Print Fornavn
            Print Efternavn
        End If
       
    Next OutlookMailItem

Lukker gammelt spm.