Create a mail byThunderbird Sample code

CreateMail.bas

Sub CreateMailByThunderbird(address As String, _
                         subject As String, body As String)
    Dim sPath, encodedSubject

    With CreateObject("ScriptControl")
        .Language = "JScript"
        encodedSubject = .CodeObject.encodeURI(subject)
    End With

    sPath = "D:\Hogehoge\Thunderbird.exe -osint -compose "
    arg = "mailto:" & address & "?" & _
        "subject=" & encodedSubject & "&" & _
        "body=" & body

    Shell sPath & arg
End Sub