vba inviare email da excel o word con allegato

Il seguente frammento di codice, illustra una tecnica di come inviare un email con allegato un file, dal programma Excel o Word, il tutto tramite VBA.

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"
'invio l'email
item.Send

Exit Sub
errore:
MsgBox (Err.Description)

End Sub