PDF文書を電子メールメッセージに埋め込む方法

Question

私は電子メールの本文にPDFを埋め込みたいと思っています。

私は、次のコードを試してみましたが、それは言葉を開いて保持しますが、pdfファイルを添付しますが、メールの本文内のオブジェクトとしてpdf埋め込まれません。これについての助けに感謝します。

Public Sub CreateNewMessage() 
Dim objMsg As MailItem 

Set objMsg = Application.CreateItem(olMailItem) 

With objMsg 
    .To = "test@tst.com" 
    .Subject = "This is the subject" 
    .BodyFormat = olFormatHTML 
      .Attachments.Add ("C:\Work\Dashbaord.pdf"), olOLE 'Attach PDF File 
    'Embed PDF 
     Set wordapp = CreateObject("word.Application") 
      wordapp.Documents.Open FileName:="C:\Work\" & "Dashbaord.pdf" 
      wordapp.Visible = True 



     'Embed PDF 
     wordapp.Visible = True 
     Set wordapp = GetObject(, "Word.Application") 
     wordapp.Selection.InlineShapes.AddOLEObject ClassType:="AcroExch.Document.11", _ 
     FileName:="C:\Work\Dashbaord & ".pdf", LinkToFile:=False, _ 
     DisplayAsIcon:=False 

    .Display 
End With 

Set objMsg = Nothing 
End Sub 

Answer 1

このようなものでなければなりません。

Public Sub InsetObject() 
    Dim Inspector As Outlook.Inspector 
    Dim wdDoc As Word.Document 
    Dim Selection As Word.Selection 
    Dim Email As Outlook.mailitem 

    Set Email = Application.CreateItem(olMailItem) 

    With Email 
     .To = "0m3r@Email.com" 
     .subject = "This is the subject" 
     .Attachments.Add ("C:\Temp\TempFile.pdf") 
     .Display 

     Set Inspector = Application.ActiveInspector() 
     Set wdDoc = Inspector.WordEditor 
     Set Selection = wdDoc.Application.Selection 

     Selection.InlineShapes.AddOLEObject ClassType:="AcroExch.Document.DC", _ 
        FileName:="C:\Temp\TempFile.pdf", _ 
        LinkToFile:=False, DisplayAsIcon:=False 

    End With 

    Set Inspector = Nothing 
    Set wdDoc = Nothing 
    Set Selection = Nothing 
End Sub 

---

---

InlineShapes.AddOLEObject Method (Word)

_{OLEオブジェクトを作成します。新しいOLEオブジェクトを表すInlineShapeオブジェクトを返します。}

---

InlineShape Object (Word)

_{文書のテキストレイヤ内のオブジェクトを表します。インラインシェイプは、ピクチャ、OLEオブジェクト、またはActiveXコントロールでなければなりません。 InlineShapeオブジェクトは、InlineShapesコレクションのメンバーです。 InlineShapesコレクションには、ドキュメント、範囲、または選択範囲にインラインで表示されるすべての図形が含まれます。 InlineShapeオブジェクトは文字のように扱われ、テキスト行内の文字として配置されます。}

---

Microsoft Wordのxx.xのオブジェクトライブラリへの参照