Unable to Embed PDF into E-mail

You cannot embed an Acrobat document in an Outlook email.  Outlook does not allow it.  You can attach Acrobat documents to an email, but you cannot embed them.

Anyway to fix that error attached?
...
...
...

you might want to avoid embedding PDF's if possible, as the application used and RTF format message can cause problems with internal and external recipients being able to open, as your error message shows.  Some of our staff have Acrobat 11 Std and if they do this, most of our system have Nitro Reader installed, and if they EMBED, nobody can open it, as its looking for an Acrobat plug-in to allow it to open, so you need full Acrobat or Reader 11.  

We're slowly moving away from Acrobat Std to Nitro Pro as we can get the same functions and some new ones for a fraction of the cost, almost 4:1 in favour of Nitro Pro, plus we can deploy it via PDQ Deploy almost instantly to every licensed system.

I'd suggest you should use Plain or HTML based message and attach the PDF as normal, then any recipient can open and read in their respective PDF reader (assuming they have one), such as Nitro, Acrobat, FoxIt or any other.

You have to save the PDF then attach the saved file.  Are you doing that?

PDF file is saved
-

As long as you didn't save it in a temporary folder, it should be easy.  What happens when you try to attach it?  Do you get an error message?

Confirmed -
Office 2013
and Adobe Acrobat X

-
Any way for this to work on X
??

You don't say if you get an error message or what happens when you try to attach the PDF and the answers are what will give us a solution. So?

you can normally 'send' from the app, just like the other office apps, but always recommend saving it first as an actual file and then attach to email.  What format message are you using?

Error is in attachment
-
-

open new e-mail in Outlook , INSERT , Object ..

Adobe Acrobat Document .. select the .PDF file then that error comes up -
-

How can AcroExch be installed ???

In Outlook 2007 or 2010, its Insert -> Attach File.  In 2003, its Insert -> File.
What version of Outlook is it?

like i said before if your INSERT, you will embed, and if you use Acrobat Std/Pro, nobody can open the PDF unless they have Acrobat or Reader.  Just use the paperclip icon and attach as normal.

Here is some code to attach a PDF file to an email (as part of a longer procedure):

Public Sub SendInterventionEmails()
'Created by Helen Feddema 10-Jan-2010
'Last modified by Helen Feddema 10-Jan-2010

On Error GoTo ErrorHandler

   Dim appOutlook As New Outlook.Application
   Dim itm As Outlook.MailItem
   Dim rstIntervention As DAO.Recordset
   Dim lngCount As Long
   Dim lngID As Long
   Dim rpt As Access.Report
   Dim strFileName As String
   Dim strPrompt As String
   Dim strQuery As String
   Dim strRecordSource As String
   Dim strReport As String
   Dim strSQL As String
   Dim strTitle As String
   Dim strCurrentPath As String
   Dim strFileNameAndPath As String
   Dim strEmailSource As String
   
   strEmailSource = "qryInterventionEmail"
   strRecordSource = "qryMissingAssignments"
   strQuery = "qryMissingAssignmentsSingleStudent"
   Set dbs = CurrentDb
   Set rstIntervention = dbs.OpenRecordset(strEmailSource)
   strCurrentPath = Application.CurrentProject.Path & "\"
   
   'Use path selected with SelectFolder procedure
   'strCurrentPath = SelectFolder()

   With rstIntervention
      Do While Not .EOF
         lngID = ![StID]
         Debug.Print "Processing Student ID " & lngID
         strFileName = "Intervention Report for " & ![StFirst] _
            & " " & ![StLast] & ".pdf"
         strFileNameAndPath = strCurrentPath & strFileName
         
         'Create filtered query
         strSQL = "SELECT * FROM " & strRecordSource & " WHERE " _
            & "[StID] = " & Chr(39) & lngID & Chr(39) & ";"
         Debug.Print "SQL for " & strQuery & ": " & strSQL
         lngCount = CreateAndTestQuery(strQuery, strSQL)
         Debug.Print "No. of items found: " & lngCount
         If lngCount = 0 Then
            GoTo NextStudent
         End If
      
         'Open report with filtered query record source
         strReport = "rptMissingAssignmentsNew"
         DoCmd.OpenReport ReportName:=strReport, _
            View:=acViewPreview, _
            windowmode:=acWindowNormal
         Set rpt = Reports(strReport)
         DoCmd.OutputTo objecttype:=acOutputReport, _
            objectname:=strReport, _
            outputformat:=acFormatPDF, _
            outputfile:=strFileNameAndPath
         
         'Create email
         Set itm = appOutlook.CreateItem(olMailItem)
         itm.Subject = "MISSING WORK"
         itm.Body = "The attached file lists your missing assignments"
         itm.To = ![Email]
         itm.Attachments.Add Source:=strFileNameAndPath, _
            Type:=olByValue
         
         'For editing before sending
         itm.Display
         
         'For sending automatically
         'itm.Send
         DoCmd.Close objecttype:=acReport, _
            objectname:=strReport, _
            Save:=acSaveNo

NextStudent:
         .MoveNext
      Loop
   End With
   
ErrorHandlerExit:
   Exit Sub

ErrorHandler:
   MsgBox "Error No: " & Err.Number _
      & " in SendInterventionEmails procedure; " _
      & "Description: " & Err.Description
   Resume ErrorHandlerExit

End Sub

Public Function CreateAndTestQuery(strTestQuery As String, _
   strTestSQL As String) As Long
'Created by Helen Feddema 28-Jul-2002
'Last modified by Helen Feddema 10-Jan-2010

On Error Resume Next
   
   'Delete old query
   Set dbs = CurrentDb
   dbs.QueryDefs.Delete strTestQuery

On Error GoTo ErrorHandler
   
   'Create new query
   Set qdf = dbs.CreateQueryDef(strTestQuery, strTestSQL)
   
   'Test whether there are any records
   Set rst = dbs.OpenRecordset(strTestQuery)
   With rst
      .MoveFirst
      .MoveLast
      CreateAndTestQuery = .RecordCount
   End With
   
ErrorHandlerExit:
   Exit Function

ErrorHandler:
   If Err.Number = 3021 Then
      CreateAndTestQuery = 0
      Resume ErrorHandlerExit
   Else
   MsgBox "Error No: " & Err.Number _
      & " in CreateAndTestQuery procedure; " _
      & "Description: " & Err.Description
   End If
   
End Function

Select allOpen in new window