Public Declare Function ShellExecute& Lib "shell32.dll" _
    Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long)
Sub SendMail()
    Call ShellExecute( 0 &, "Open", "mailto:" & "address@mail.ru" & "?Subject=" & "Это тема письма" & "&Body=" & "Это текст в теле письма", "", "",  1 )
End Sub

    Call ShellExecute( 0 &, "Open", "mailto:" & "address@mail.ru" & "?Subject=" & "Это тема письма" & "&Body=" & "Это текст в теле письма" & "&Attach=" & "E:\1.xls", "", "",  1 )

Sub SendEMail(PathMoz, adres, subjm, bodym, atm As String)
Dim FullStr As String

' удостоверяемся что есть thunderbird
If Dir(PathMoz) = "" Then PathMoz = GetFileName  ' функция GetFileName работает с диалогом и предлагает найти местоположение thunderbird
    If PathMoz = "" Or Dir(PathMoz) <> "thunderbird.exe" Then
        MsgBox "Не найдена почтовая программа"
        Exit Sub
    End If

' Набиваем код командной строки
FullStr = PathMoz ' путь к клиенту
FullStr = FullStr & " -compose to=""" & adres & """" '  адрес, адреса
FullStr = FullStr & " ,subject=""" & subjm & """"   ' тема
FullStr = FullStr & " ,body=""" & bodym & """" ' тело
atm = Replace(atm, "\", "/", , , vbTextCompare) ' инверсируем знаки \ на / для thunderbird версий 2.0 и более иначе получим ярлык
FullStr = FullStr & " ,attachment=""file:///" & atm & """" ' прицепляем attach
Shell FullStr,  1   ' собственно выполняем
End Sub


Sub DoIT()
Call SendEMail("C:\Program Files\Mozilla Thunderbird\thunderbird.exe", "My@mail.ru", "Лист", "Лист", "E:\1\123.xls")
End Sub