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.