Spørgsmål omkring vbakode der kan "styre" Outlook fra Excel

Eks.
Rem Reference sættes til Microsoft Outlook xx Object Library under Tools / References
Public Sub klargørTilSend()
    sendMailen "pb@supertekst-it.dk", "Test-emne", "Meddelelsen er som sagt en test"
End Sub
Private Sub sendMailen(modtager, emne, tekst)
Dim mailApp, Namespace, nyMail

    Set mailApp = CreateObject("Outlook.Application")

    Set nyMail = mailApp.CreateItem(olMailItem)
    Set nymod = nyMail.Recipients
    nymod.Add modtager
   
    With nyMail
        .Subject = emne
        .body = tekst
   
        .Display
'        .Send
    End With
End Sub
Public Sub læsMail()
Dim antalMails As Integer
    antalMails = åbnOutlookMappe(afold)
    seDeEnkelteMails antalMails, afold
End Sub
Private Function åbnOutlookMappe(afold)
Dim mailApp, Namespace

    Set mailApp = CreateObject("Outlook.Application")
    Set Namespace = mailApp.GetNamespace("MAPI")
    Set afold = Namespace.GetDefaultFolder(olFolderInbox)
   
    åbnOutlookMappe = afold.Items.Count
End Function
Private Sub seDeEnkelteMails(antalMails As Integer, afold)
Dim mx As MailItem
    If antalMails > 0 Then
        For m = 1 To antalMails
            Set mx = afold.Items(m)
            MsgBox mx.Subject & " " & mx.SenderEmailAddress
        Next m
    End If
End Sub