How to email an embedded object
 

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

How to email an embedded object
 

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

How to email an embedded object
 

Dan,

Thank you but I need to attach an Embedded PDF file, one that is not stored
on disk.

Rob

"Dan R." wrote:

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

How to email an embedded object
 

Try
http://www.rondebruin.nl/mail/folder3/mailenvelope.htm


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Tagwim" wrote in message ...
Dan,

Thank you but I need to attach an Embedded PDF file, one that is not stored
on disk.

Rob

"Dan R." wrote:

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