vigneshjan24
New Member
Hi,
I have some help in sending email using macro. Since i dont know anything about vba, just googled and using this macro to send mails by selecting any range.
I need help for below queries within the mail generating,
1. Default outlook signature should be added at the end of the mail.
2. Need to get rid of the automatic horizontal line between the bod of the mail and the range of cells i selected.
3. I donot want to send automatically. It should be in draft to edit. I tried
.Display
.Save
instead of .Send but the draft mail is not opening unless i close the excel. I dont want to close the excel but need to edit the mail in outlook.
Thanks in advance,
Vigneshwaran P
vignesh[dot]jan24[at]gmail.com
I have some help in sending email using macro. Since i dont know anything about vba, just googled and using this macro to send mails by selecting any range.
Code:
Sub Send_Selection()
Dim Sendrng As Range
On Error GoTo StopMacro
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Set Sendrng = Selection
With Sendrng
ActiveWorkbook.EnvelopeVisible = True
With .Parent.MailEnvelope
.Introduction = "Hi," & vbNewLine & vbNewLine & _
"" & vbNewLine & _
"Please refer the below"
With .Item
.To = "xyz@gmail.com"
.CC = "abc@gmail.com"
.BCC = ""
.Subject = "Test"
.Send
End With
End With
End With
StopMacro:
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
ActiveWorkbook.EnvelopeVisible = False
End Sub
I need help for below queries within the mail generating,
1. Default outlook signature should be added at the end of the mail.
2. Need to get rid of the automatic horizontal line between the bod of the mail and the range of cells i selected.
3. I donot want to send automatically. It should be in draft to edit. I tried
.Display
.Save
instead of .Send but the draft mail is not opening unless i close the excel. I dont want to close the excel but need to edit the mail in outlook.
Thanks in advance,
Vigneshwaran P
vignesh[dot]jan24[at]gmail.com
Last edited by a moderator: