Hi,
I have a work book which contain 4 sheets.My program is run from sheet1.
Here, Given code for send mail particular cells of sheet 1
I want to send particular cells of sheet 4 at the same time.How much additional codes required..
Thaks advance,
Dim sourcebook As Workbook
Dim Sourcesheet As Worksheet
Set sourcebook = ActiveWorkbook
Set Sourcesheet = sourcebook.Sheets("sheet1")
' Select the range of cells on the active worksheet.
Range("A1:G65").Select
' Show the envelope on the ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = True
' Set the optional introduction field thats adds
' some header text to the email body. It also sets
' the To and Subject lines. Finally the message
' is sent.
With ActiveSheet.MailEnvelope
.Introduction = "aaa"
.Item.To = "xdx@gmail.com"
.Item.Subject = "Daily Production report " & Format(Date, "dd/mmm/yy")
.Item.Send
End With
End sub
I have a work book which contain 4 sheets.My program is run from sheet1.
Here, Given code for send mail particular cells of sheet 1
I want to send particular cells of sheet 4 at the same time.How much additional codes required..
Thaks advance,
Dim sourcebook As Workbook
Dim Sourcesheet As Worksheet
Set sourcebook = ActiveWorkbook
Set Sourcesheet = sourcebook.Sheets("sheet1")
' Select the range of cells on the active worksheet.
Range("A1:G65").Select
' Show the envelope on the ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = True
' Set the optional introduction field thats adds
' some header text to the email body. It also sets
' the To and Subject lines. Finally the message
' is sent.
With ActiveSheet.MailEnvelope
.Introduction = "aaa"
.Item.To = "xdx@gmail.com"
.Item.Subject = "Daily Production report " & Format(Date, "dd/mmm/yy")
.Item.Send
End With
End sub