vb6 thinderbird

Public Sub componiMailThunderBird(destinatari As String, destinatariCC As String, destinatariBcc As String, oggettoMail As String, fileAllegati As String)
Dim comandoShell
Dim pathThunderbird As String


  comandoShell = Chr(34) & pathThunderbird & Chr(34) & " -compose " & Chr(34)
  comandoShell = comandoShell & "to='" & destinatari & "',"
  comandoShell = comandoShell & "cc='" & destinatariCC & "',"
  comandoShell = comandoShell & "bcc='" & destinatariBcc & "',"
  comandoShell = comandoShell & "subject='" & oggettoMail & "'"
  If fileAllegati <> "" Then
    comandoShell = comandoShell & ",attachment='" & fileAllegati & "'"
  End If

  Shell comandoShell

End Sub