[VBA/WORD] Copia e incolla tra Word e Outlook

[b4db0y]

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:

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.

[MItaly]

Per fare questo mestiere non puoi usare direttamente il tasto "Posta elettronica" situato nella barra degli strumenti di Word?
(tra parentesi, per parlare di VBA avresti dovuto postare in Programmazione\Visual Basic e .NET Framework)

[b4db0y]

Posso, ma la formattazione del messaggio non viene mantenuta (es carattere, colori, immagini)

[b4db0y]

Ok, adesso posto là grazie.

[MItaly]

Che io sappia viene mantenuta, nei limiti del formato del messaggio di posta (HTML).

[b4db0y]

Uso Word (e Outlook) 2007, il pulsante che mi dici non c'è e lo cercato anche tra quelli non visualizzati, c'è però un pulsante simile che come risultato ha però quello di allegare una copia del documento alla mail.
Comunque chiedo ancora scusa per l'O.T.

[MItaly]

Allora non ti so aiutare, io ho Office 2003...

[b4db0y]

Grazie comunque. Ciao

[ste_95]

come già detto qui saranno i pochi che ti potranno aiutare, posta nella sezione appropriata...