我读取邮件正文的编码如下：DoWhilewsMailSheet.Cells(i,1).Value<>strEndOfMailAndi<=intMaxLenOfMailIf... 我读取邮件正文的编码如下：
Do While wsMailSheet.Cells(i, 1).Value <> strEndOfMail And i <= intMaxLenOfMail
If wsMailSheet.Cells(i, 1).Value = strPicturelocated Then ‘strPicturelocated变量为图片的名称
strMailBody = strMailBody & AddPicture(ThisWorkbook.Path & "\" & wsMailSheet.Cells(i, 1).Value, Left:=300, Top:=400, linkToFile:=False, SavewithDocument:=True) ’这个语句有问题，不能实现插入
Else
strMailBody = strMailBody & MailBodyBody(wsMailSheet.Range(wsMailSheet.Cells(i, 1), wsMailSheet.Cells(i, 1)))
'wsMailSheet.Cells(i, 1).Value & Chr(13) & Chr(10)
i = i + 1
End If
Loop

问题已经解决，我用HTML语句
strMailBody = strMailBody & "<p><img src=""" & ThisWorkbook.Path & "\" & wsMailSheet.Cells(i, 1).Value & """" & "></p>"
就可以了

在网上看到其他人的解答。。。