Sender mail uden tekst

Følgende kode er lagt i this workbook:
Dim myOlApp As Object
        Set myOlApp = CreateObject("Outlook.Application")
        Set myitem = myOlApp.CreateItem(olMailItem)
        Set myRecipient = myitem.Recipients.Add("mail@mail.dk")
        With myitem
            .Subject = "Mailtest"
            .Body = "Brødtekst") & vbNewLine & vbNewLine & "Med venlig hilsen"
            .Display
            '.Send
        End With
        Else
        End If
    End If

Koden virker fint i selve Excel, men når excel åbnes via intranet (i browservindue) får mailen ingen tekst.
Er der nogle der kan knække den?