Hello,
I have the following coding, which works perfectly:
rivate Sub CommandButton9_Click()
Dim AWorksheet As Worksheet
Dim Sendrng As Range
Dim rng As Range
On Error GoTo StopMacro
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Set Sendrng = Worksheets("Results").Range("A4:A26")
Set AWorksheet = ActiveSheet
With Sendrng
.Parent.Select
Set rng = ActiveCell
.Select
ActiveWorkbook.EnvelopeVisible = True
With .Parent.MailEnvelope
With .Item
.To = Range("A2").Value
.CC = ""
.BCC = ""
.Subject = "Facebook datawash"
.Send
End With
End With
rng.Select
End With
AWorksheet.Select
StopMacro:
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
ActiveWorkbook.EnvelopeVisible = False
End Sub
The only issue is that the data is being sent to clients and it would be perfect if I could add a signature to the email. How would I go about doing this?
Any help much appreciated.
Bookmarks