vba inviare email in formato html da Word e Excel

Il seguente codice di VBA, permette di inviare un email, in formato html, impostando la proprietà htmlbody.
Ricordo di aggiungere il riferimento a Microsoft Outlook.



Private Sub CommandButton1_Click()
On Error GoTo errore
'creo un oggetto outlook
Dim obj As New Outlook.Application
'oggetto che rappresenta l'email
Dim item As Outlook.MailItem
'instanzio l'oggetto
Set item = obj.CreateItem(Outlook.OlItemType.olMailItem)
'imposto il destinatario
item.To = "Emanuelemattei@aruba.it"
'imposto il corpo del messaggio'
'item.Body = "Corpo del messaggio"
'imposto l'oggetto del messaggio
item.Subject = "Oggetto del messaggio"
'allegato
Set allegato = item.Attachments
'allegato.Add "C:\mioFile.txt"
'formato elettronico
item.HTMLBody = "

testo

" & _
""
'invio l'email
item.Send
Exit Sub
errore:
MsgBox (Err.Description)
End Sub