Auto attach Worksheet to new outlook email

[tomsweddy]

Hi,

What can I add to the following bit of my code to try and get it to attach the new workbook to an email?


Sub EmailLineManager()
Dim sSheetName As String
Dim FileName As Variant
On Error Resume Next
sSheetName = Application.VLookup(Range("K12").Value, Range("F119:G127"), 2, False)
On Error GoTo 0
If sSheetName <> "" Then
FileName = Range("E6").Value
FileName = Mid(FileName, InStr(FileName, " ") + 1) & " " & _
Left(FileName, InStr(FileName, " ") - 1) & _
", CONTRACT, " & Format(Range("K8").Value, "dd.mm.yy") & ".xls"
FileName = Application.GetSaveAsFilename(FileName, "Microsoft Excel Files (*.xls), *.xls")
If FileName <> False Then
Worksheets(sSheetName).Copy
ActiveWorkbook.SaveAs FileName
End If
Else
MsgBox "You have not selected a Contract Type", vbOKOnly + vbInformation, "Information"
End If
End Sub


Here it currently just auto populates the Save As box for the user, using data from the worksheet......ideally I want it to attach itself to a new outlook email message and the filename to be automatically created using the code I already have.

Thanks if you can help!!

[p45cal]

check out the likes of
ActiveWorkbook.SendMail

If this doesn't suit there are other ways which can use more of your current Outlook settings.