PowerPoint에서 VBA를 사용하여 Outlook 전자 메일에 OLE 개체를 첨부하는 방법

Question

PowerPoint 슬라이드에 OLE 개체가 포함되어 있으며 OLE 개체가 첨부 파일로 자동 추가되도록 Outlook을 여는 매크로를 만들려고합니다.

OLE 개체 (pdf)는 파일 삽입> 개체 만들기> 아이콘으로 표시 방법을 사용하여 슬라이드에 삽입되었으므로 시작할 원본 슬라이드의 작은 PDF 아이콘으로 나타납니다 매크로.

Outlook을 여는 데 필요한 기본 VBA를 알아 냈습니다. 새 메시지와 그 모든 것을 표시하지만 작동하도록 첨부 파일을 가져올 수 없습니다. 여기에 내가 함께 일하고 있어요 코드입니다 : 내가 이전에 파일 경로를 통해 파일을 첨부 동일한 코드를 사용했다

Sub SendEmailwithAttachment() 

Dim OutApp As Object 
Dim OutMail As Object 
Dim strbody As String 

Set OutApp = CreateObject("Outlook.Application") 
Set OutMail = OutApp.CreateItem(0) 

strbody = "Dear []:<br>" & _ 
      "<br><br>Attached is .<br>" & _ 
      "<br><br>Let me know if you have any questions.<br>" & _ 
      "<br><br>Thank you," 

On Error Resume Next 

With OutMail 
    .To = "" 
    .CC = "" 
    .BCC = "" 
    .Subject = "" 
    .HTMLBody = strbody 
    .Attachments.Add (ActivePresentation.Slides(2).Shapes("Attachment")) 
    .Display 
End With 
On Error GoTo 0 

Set OutMail = Nothing 
Set OutApp = Nothing 
End Sub 

는, 모든 것이 완벽했다. 하지만 지금은 코드를 파일 경로에서 연결하도록 지시하는 대신 PowerPoint에 파일을 포함해야합니다.

PowerPoint 및 Outlook은 모두 2010입니다.

어떤 도움을 주시면 감사하겠습니다.

Answer 1

Outlook 개체 모델은 포함 된 OLE 첨부 파일을 추가 할 수 없습니다.

Answer 2

WordEditor 메서드를 사용하여 oleObect를 Outlook에 복사하거나 붙여 넣을 수 있습니다. Body 및 htmlBody는 Outlook 본문을 사용하는 다른 두 가지 방법입니다. 물론

https://msdn.microsoft.com/en-us/vba/outlook-vba/articles/inspector-wordeditor-property-outlook

링크가 아닌 다른 문제가 될 수있는 내장 된 OLEObject입니다.