Script post esportazione

Salve, noi utilizziamo spesso lo script seguente per inviare e-mail dopo aver elaborato l'esportazione dati:

Option Explicit

Dim Nomefile
Dim newEmail

Nomefile = ExportFilter.OutputFileName
Set newEmail = Rdy.Email
newEmail.AddTo "miofornitore@fornitore.com"
newEmail.AddFileAttachment Nomefile
newEmail.Subject = "Invio dettagli ordine N." & Doc.DocNumber
newEmail.Body="In allegato copia del dettaglio ordine" & vbCrLf & vbCrLf & "Cordiali saluti"
If newEmail.Send Then
    Rdy.ShowMessage "Email inviata"
Else
    Rdy.ShowMessage "Errore durante l'invio del messaggio"
End If
Set newEmail = Nothing

E' possibile creare un altro tipo di script dove il risultato dell'esportazione viene inserito nel "Body" dell'e-mail e non come allegato?

Cordiali saluti