Hi Prabhu
Try
Sub Mtest()
Dim sPath As String, sFname As String, fname As String
Dim OutApp As Object, OutMail As Object
fname = ThisWorkbook.Name
sPath = ThisWorkbook.Path & "\"
sFname = "Statement as on " & Format(Date, "mm-dd-yyyy") & ".xls"
With ThisWorkbook
Sheets(Array(ActiveSheet.Name, ActiveSheet.Previous.Name)).Select
Sheets(Array(ActiveSheet.Name, ActiveSheet.Previous.Name)).Copy
End With
ActiveWorkbook.SaveAs (sPath & sFname)
Application.DisplayAlerts = False
With ActiveWorkbook
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.TO = "a...@gmail.com"
.CC = ""
.BCC = ""
.Subject = fname
.Body = "Test Email"
.Attachments.Add ActiveWorkbook.FullName
.Display
'.send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
ActiveWorkbook.Close True
End With
kill sPath & sFname & ".xls"
End Sub
Thanks
Mahesh
On Thu, Sep 1, 2011 at 11:40 PM, NOORAIN ANSARI <noorain.ans...@gmail.com>wrote:
> Dear Prabhu,
>
> See attached sheet if it help..
>
> On Thu, Sep 1, 2011 at 10:26 PM, Prabhu <prabhugate...@gmail.com> wrote:
>
>> Hi Mahesh,
>>
>> Thanks it is working now.. Can you help me , if the same file needs to be
>> an attachment in a new outlook mail with the subject name has to be the
>> file name, instead of saving in particular location.
>>
>> Regards,
>>
>> Prabhu.
>>
>>
>>
>>
>>
>>
>> --
>>
>> ----------------------------------------------------------------------------------
>> Some important links for excel users:
>> 1. Follow us on TWITTER for tips tricks and links :
>> http://twitter.com/exceldailytip
>> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
>> 3. Excel tutorials at http://www.excel-macros.blogspot.com
>> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
>> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>>
>> To post to this group, send email to excel-macros@googlegroups.com
>>
>> <><><><><><><><><><><><><><><><><><><><><><>
>> Like our page on facebook , Just follow below link
>> http://www.facebook.com/discussexcel
>>
>
>
>
> --
> Thanks & regards,
> Noorain Ansari
> *http://noorain-ansari.blogspot.com/*<http://noorain-ansari.blogspot.com/>
>
> --
>
> ----------------------------------------------------------------------------------
> Some important links for excel users:
> 1. Follow us on TWITTER for tips tricks and links :
> http://twitter.com/exceldailytip
> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
> 3. Excel tutorials at http://www.excel-macros.blogspot.com
> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>
> To post to this group, send email to excel-macros@googlegroups.com
>
> <><><><><><><><><><><><><><><><><><><><><><>
> Like our page on facebook , Just follow below link
> http://www.facebook.com/discussexcel
>
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
