[belajar-excel] send attachment thunderbird

[Slamet]

Dear all

Saya temukan code berikut ini, dan email sukses terkirim.
akan tetapi saya ingin mengirimkan email ini bersama lampiran file nya..
ada yang tau gimana caranya  (mungkin gak yaa.. soalnya dikatakan bahwa 
thunderbird tdk memiliki object model? penasaran.com)
  mohon info dong....

sebelum dan sesudahnya terima kasih yaa

''http://www.ozgrid.com/forum/showthread.php?t=66702&page=1

Private 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) As Long
Sub SEND_Excel_Calls()

     Dim msg As String, URL As String
     Dim Recipient As String, Subj As String
     Dim Recipientcc As String, Recipientbcc As String

     Dim cell As Range
     Recipient = Sheets("Info_1").Range("A1").Value
     Recipient = Sheets("Info_1").Range("A2").Value

     Recipientcc = Sheets("Info_1").Range("A3").Value
     Recipientbcc = Sheets("Info_1").Range("A4").Value

     Subj = Sheets("Info_1").Range("A5").Value


     For Each cell In Sheets("Info_1").Range("A7:A30") ' ADJUST TO SUIT
         msg = msg & vbNewLine & cell
     Next cell
     msg = WorksheetFunction.Substitute(msg, vbNewLine, "%0D%0A")
     msg = WorksheetFunction.Substitute(msg, vbLf, "%0D%0A")
     URL = "mailto:"; & Recipient & "?cc=" & Recipientcc & "&bcc=" & 
Recipientbcc _
& "&subject=" & Subj & "&body=" & msg
     ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString, 
vbNormalFocus

     Application.Wait (Now + TimeValue("0:00:03"))
     Application.SendKeys "%s"


End Sub