Rob,

Here's an example:

Sub SendEmail()
Dim OutApp As Object, OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = ""
.CC = ""
.Subject = ""
.Attachments.Add "C:\filename.pdf"
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

--
Dan

On Jul 3, 8:18*am, Tagwim wrote:
Hello all,

I am looking to attach an embedded PDF file in an Excel Worksheet to a
outlook email. *Has anyone done this before? * Any help would be greatly
appreciated.

Thank you in advance

Rob