Salve a tutti, ho scritto una piccola macro che copia il contenuto di un documento Word, avvia Outlook e dovrebbe incollare il contenuto all'interno del testo della mail (senza perdere la formattazione ovviamente).
Vi posto il codice così potete capire meglio:

codice:
Sub creaMail()

'Seleziona e copia il contenuto del documento corrente
Selection.WholeStory
Selection.Copy


Dim ol As Outlook.Application

Dim newmail As Outlook.MailItem

Set ol = CreateObject("Outlook.Application")

Set newmail = ol.CreateItem(olMailItem)


newmail.Display
---->newmail.Body = ?????


End Sub
Il comando segnato dalla freccia dovrebbe incollare in newmail.Body il messaggio precedentemento copiato, ma non ho idea di come fare.
Ho provato con un Selection.Paste, ma genera degli errori sul formato.
Non so come comportarmi per incollare il contenuto all'interno del corpo del messaggio, ringrazio anticipatamente chiunque possa e voglia aiutarmi.