Allora, ho provato questo sistema, ma non va.

Io vorrei che l'immagine venisse in qualche modo inglobata nel modello, che poi è quello che fa Outlook; infatti installando un nuovo modello su un pc e inviando una mail con questo stesso modello ad un pc dove non è installato, questo viene visualizzato benissimo.
Vi scrivo il codice:
codice:
Private Sub Command1_Click()
    Dim olkMail As outlook.MailItem
    Dim strBody As String
    Dim strModello As String
    Dim strRiga As String
    Dim strNome As String, strPerc As String

    strModello = "C:\Programmi\File comuni\Microsoft Shared\"
    strModello = strModello  & "Elementi decorativi\Cielo.htm"
    ' Divide il percorso in Cartella e Nome file
    DividiNomePercorsoFile strModello, strNome, strPerc

    ' Legge il file 
    '   scrivendone il contenuto in una variabile
    Open strModello For Input As #1
        Do While Not EOF(1)
            ' Legge i dati di una riga
            Input #1, strRiga
            'aggiunge la riga letta alla variabile
            strBody = strBody & strRiga
        Loop
    Close #1
    
    'Debug.Print strBody
    strTitolo = "Email da VB!"
    Set olkSpace = olkApp.GetNamespace("MAPI")
    ' Crea un nuovo oggetto MailItem
    Set olkMail = olkSpace.GetDefaultFolder(olFolderInbox).Items.Add
    olkMail.Subject = strTitolo
    olkMail.HTMLBody = strBody
    ' Salva la mail come modello
    olkMail.SaveAs strPerc & "Mail.oft", olTemplate
    ' Crea la mail come modello 
    '   partendo da quello appena salvato
    Set olkMail = olkApp.CreateItemFromTemplate(strPerc & "Mail.oft")

    olkMail.To = "pippo@pippo.it"
    ' Invia la mail
    olkMail.Send
    Set olkMail = Nothing

End Sub