http://www.rondebruin.nl/cdo.htm
>semoga bermanfaat --- In [email protected], Slamet <slametharto@...> wrote: > > 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 >
