Macro For Sending Mail with Attachemnt

[nambiram]

Hai
I am New To macro.

I Need to send my Daily Progress Report by Email Regularly to 10 e-Mail id.
I need a macro which will automatically Attach the Excel Workbook & mail to Email Id in Sheet 1 Range (A1:A10)
With
Subject = Sheet 1 ("B2 Value")
Body = Herewith DPR ("B2 Value) is attached .Plz Find the Encl File.
Signature = Regards Mani
I am Using Excel & outlook 2003
Regards
Mani

 

[VoG]

This should help you http://www.rondebruin.nl/sendmail.htm

 

[nambiram]

Sir
Thanks for the Immediate Reply
I Tried the Link & i Used The Following code


Sub Mail_workbook_1()
Dim wb As Workbook
Dim I As Long
Set wb = ThisWorkbook
If Val(Application.Version) >= 12 Then
If wb.FileFormat = 51 And wb.HasVBProject = True Then
MsgBox "There is VBA code in this xlsx file, there will" & vbNewLine & _
"be no VBA code in the file you send. Save the" & vbNewLine & _
"file first as xlsm and then try the macro again.", vbInformation
Exit Sub
End If
End If
On Error Resume Next
For I = 1 To 3
wb.SendMail mani_nambiram@yahoo.co.in, _
"DPR 14.1.11"
If Err.Number = 0 Then Exit For
Next I
On Error GoTo 0
End Sub

But i Didnt Succeed Can u say me waht is the Problem

I am using Excel 2003

Regards

Mani