VBA : 이미지를 이메일 본문에 포함

Question

".HTMLBody = ..."를 사용하여 Outlook을 통해 이메일을 보내면 본문을 맞춤 설정할 수있는 프로그램이 있습니다. 그러나, 나는 내가 메일 본문에 워크 시트에 "로고"라는 이미지를 추가하기 위해 다음 줄을 추가하려고 :

With Sheets("Mail - GREF COMMITTEE AGENDA") 
    .Shapes("logo").Export "C:\Users\Public\Pictures\logo.png" 
End With 

... 

.HTMLBody = bodyEn & bodyFR & "< img src='C:\Users\Public\Pictures\logo.png'>" 

오류 : 438 개체가이 속성 또는 메서드를 지원하지 않습니다. 구문 오류가 있다고 생각합니다. 그러나 나는 그것을 볼 수 없다.

미리 감사드립니다.

업데이트 : 이미지를 메일에 삽입하는 방법은 유용합니다. 이미지를 수동으로 내보낼 수 있습니다.

Answer 1

은 사용 Word의 InlineShapes.AddPicture 방법

절차는 Working with Item Bodies에 설명되어 있습니다.

삽입 사진 :

strFile = "C:\Pictures\logo.gif" 
Set objInsp = objMsg.GetInspector 
Set objDoc = objInsp.WordEditor 
Set objSel = objDoc.Windows(1).Selection 
If objMsg.BodyFormat <> olFormatPlain Then 
    objSel.InlineShapes.AddPicture strFile, False, True 
End If