Hi so I've tested and the email function is working great, it emails with the attachment and it's copied in the body.
However the data is not copying to a consolidated workbook "destination.xls" what am I doing wrong, please
help . I also would like it built so that each time its copied over it selects the next empty row.
Dim Sendrng As Range
Dim wSs As Worksheet, wDs As Worksheet
Dim lr As Long
On Error GoTo StopMacro
.ScreenUpdating = False
.EnableEvents = False
'Note: if the selection is one cell it will send the whole worksheet
Set Sendrng = Selection
'Create the mail and send it
ActiveWorkbook.EnvelopeVisible = True
' Set the optional introduction field thats adds
' some header text to the email body.
.Introduction = ""
' In the "With .Item" part you can add more options
.To = "firstname.lastname@example.org"
.Subject = "Subject Line"
'copying data to work list
Set wSs = Workbooks("Origin.xls").Sheets("Sheet1")
Set wDs = Workbooks("T:destination.xls").Sheets("Sheet1")
lr = wDs.Cells(Rows.Count, 6).End(xlUp).Row + 1
wDs.Cells(lr, 1) = wSs.Cells(7, "C")
wDs.Cells(lr, 2) = wSs.Cells(10, "C")
wDs.Cells(lr, 3) = wSs.Cells(16, "C")
wDs.Cells(lr, 4) = wSs.Cells(16, "G")
wDs.Cells(lr, 5) = wSs.Cells(13, "C")
.ScreenUpdating = True
.EnableEvents = True
ActiveWorkbook.EnvelopeVisible = False