[VB6] - inviare pagina word via mail

[huracan@hush]

Ciao a tutti,

aperto un documento word e compilato con alcune frasi ...in questo modo:

Dim WordApp As Word.Application
        
    Set WordApp = New Word.Application
    WordApp.Documents.Open App.Path & "\documento_di_prova.doc"
    WordApp.Visible = True
    With WordApp.Selection
       .TypeText "PROVA PROVA: "
       .Font.Bold = True
       .TypeText "PROVA2 PROVA2"
       .Font.Bold = False
       .TypeParagraph
         
End With
End Sub

avrei bisogno di inviarlo come corpo di un messaggio e-mail...usando la funzione di MSWord "invia a destinatario posta elettronica".
registrando una macro sul documento sono solo riuscito a trovare il codice per aprire la schermata di invio:

WordApp.ActiveWindow.EnvelopeVisible = True

.. ma non riesco ad inserire in automatico da VB6 l'indirizzo mail del destinatario, l'oggetto dell'e-mail e le opzioni di invio come ad esempio le notifiche di lettura.

Qualcuno a qualche consiglio in proposito?
Grazie a tutti

[huracan@hush]

Scusatemi tutti...nemmeno a farlo apposta..continuando a fare diversi tentativi dopo aver postato il problema...ho trovato la soluzione!
Posto qui sotto il codice che ho utilizzato...qualora servisse a qualcun'altro:

Dim WordApp As Word.Application
        
    Set WordApp = New Word.Application
    WordApp.Documents.Open App.Path & "\documento_di_prova.doc"
    WordApp.Visible = True
    With WordApp.Selection
       .TypeText "PROVA PROVA: "
       .Font.Bold = True
       .TypeText "PROVA2 PROVA2"
       .Font.Bold = False
       .TypeParagraph

  WordApp.ActiveWindow.EnvelopeVisible = True  
     With WordApp.ActiveDocument.MailEnvelope
     .Item.Subject = "Oggetto del Messaggio"
     .Item.To = "indirizzo@dominio.it
     End With
End With
End Sub

ciao a tutti