Dim Destinatario As String = "destinatario@email.it" 'nella necessità di più destinatari dividere le e-mail con ; es: "gigio@fiore.it; fiore@gigio.com"
        Dim CopiaConforme As String = "destinatario2@email.it" 'opzionale - lasciare stringa vuota se non necessario
        Dim Oggetto As String = "Titolo di questa nuova E-Mail" 'opzionale - lasciare stringa vuota se non necessario
        Dim ContenutoPredefinito As String = "Bravo!" 'opzionale - lasciare stringa vuota se non necessario


        Dim SB As New System.Text.StringBuilder
        SB.Append("mailto:")
        SB.Append(Destinatario)
        SB.Append("?")
        If CopiaConforme.Length > 0 Then SB.Append("cc=" & CopiaConforme)
        SB.Append("&subject=" & Oggetto)
        SB.Append("&body=" & ContenutoPredefinito)


        System.Diagnostics.Process.Start(SB.ToString)