Hi All,
Currently am using below code to send mail with graph in the body and text above graph.
But am not able to include signature in tha mail..
Can anyone help me out in this..
Code Used :
Sub Send_Range()
Dim StrSignature As String
StrSignature = "Regards"
' Select the range of cells on the active worksheet.
ActiveSheet.Range("M2:U32").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.
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
ActiveSheet.MailEnvelope.Display
Dim StrSignature As String
StrSignature = "Regards"
.Introduction = "This is a sample worksheet." & vbNewLine & _
"" & vbNewLine & _
"Here i will make you awesome in Excel Macro." & vbNewLine & _
"Date " & Range("D6").Value
.Item.To = "xyz.com"
.Item.Subject = "My subject"
.Item.Display
.Body = StrSignature
.Item.Send
End With
End Sub
Currently am using below code to send mail with graph in the body and text above graph.
But am not able to include signature in tha mail..
Can anyone help me out in this..
Code Used :
Sub Send_Range()
Dim StrSignature As String
StrSignature = "Regards"
' Select the range of cells on the active worksheet.
ActiveSheet.Range("M2:U32").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.
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
ActiveSheet.MailEnvelope.Display
Dim StrSignature As String
StrSignature = "Regards"
.Introduction = "This is a sample worksheet." & vbNewLine & _
"" & vbNewLine & _
"Here i will make you awesome in Excel Macro." & vbNewLine & _
"Date " & Range("D6").Value
.Item.To = "xyz.com"
.Item.Subject = "My subject"
.Item.Display
.Body = StrSignature
.Item.Send
End With
End Sub