Its not working. I think because of the file and sheet name.
Excel file name is "Report" and Sheet name is "MPR". The email id is in the Cell "A52". I have paste the entire code below. When i run this macro, it will open a new mail with the file as attachment. But "To" address is blank. Plz Suggest.
Sub Mail_workbook_1()<o
></o
>
<o
> </o
>
Dim OutApp As Object<o
></o
>
Dim OutMail As Object<o
></o
>
Dim strbody As String<o
></o
>
<o
></o
>
Dim oExcel As Object<o
></o
>
Dim oBook As Object<o
></o
>
Dim oSheet As Object<o
></o
>
<o
> </o
>
Set OutApp = CreateObject("Outlook.Application")<o
></o
>
OutApp.Session.Logon<o
></o
>
Set OutMail = OutApp.CreateItem(0)<o
></o
>
<o
> </o
>
'Start a new workbook in Excel<o
></o
>
Set oExcel = CreateObject("Excel.Application")<o
></o
>
Set oBook = oExcel.Workbooks.Add<o
></o
>
<o
> </o
>
Set oSheet = oBook.Worksheets(1)<o
></o
>
<o
></o
>
strbody = " Dear XYZ," & vbNewLine & " Please find attached the Report for your appoval." & vbNewLine & "Regards"<o
></o
>
<o
> </o
>
ActiveWorkbook.Save<o
></o
>
<o
> </o
>
On Error Resume Next<o
></o
>
With OutMail<o
></o
>
<o
></o
>
.To = oSheet.Range("A52").Value<o
></o
>
<o
></o
>
.CC = ""<o
></o
>
.BCC = ""<o
></o
>
.Subject = "Report"<o
></o
>
.Body = strbody & vbNewLine & vbNewLine & Signature<o
></o
>
<o
></o
>
.Attachments.Add ActiveWorkbook.FullName<o
></o
>
<o
></o
>
.Send 'or use .Display<o
></o
>
<o
></o
>
End With<o
></o
>
On Error GoTo 0<o
></o
>
<o
> </o
>
Set OutMail = Nothing<o
></o
>
Set OutApp = Nothing<o
></o
>
<o
> </o
>
End Sub<o
></o
>
<o
> </o
>
