함수 호출 후 .gif 파일을 전자 메일 본문에 포함

Question

.gif 개의 파일을 메일 본문에 포함하려고합니다.

하지만 RangetoHTML 기능을 사용하여 내 Excel 시트를 이메일 본문에 붙여 넣을 수 있습니다.

는 I 대신 첨부 파일로 MyGif.gif의 첨가, 메일 본문의 범위 아래 .gif 파일을 포함 할. 다음

는

코드 조각입니다 :

Set OutApp = CreateObject("Outlook.Application") 
Set OutMail = OutApp.CreateItem(0) 
dt = Format(CStr(Now), "yyyy_mm_dd") 

With Dest 
    .SaveAs Destination & "MyFile" & FileExtStr, FileFormat:=FileFormatNum 
On Error Resume Next 
With OutMail 
    .To = "abc@email.com" 
    .CC = "" 
    .BCC = "" 
    .Subject = "This is the Subject line" 

     .Attachments.Add MyGif 
     .HTMLBody = "<br><B>My HTML Body</B><br>" _ 
        & RangetoHTML(Source) 
    .Send 
End With 
On Error GoTo 0 
.Close savechanges:=False 
End With 

Answer 1

는 다음을 시도 메일 본문에 Gif 파일을 포함하려면,

With olMail 
     .To = "0m3r@EMail.com" 

     .Subject = "This is the Subject line" 

     .Attachments.Add "C:\Temp\MyGif.gif" 

     .HTMLBody = "<br><B>My HTML Body</B><br>" _ 
        & RangetoHTML(Source) _ 
        & .HTMLBody & "<br>Here is Your Embedded GIF File:<br>" _ 
        & "<img src='MyGif.gif'><br>" 

'  .Send 'or use .Display 
     .Display 
    End With