Excel 在电子邮件正文中插入表情符号|“弹出”电子邮件可以正常工作

但是我如何编辑在应用程序内部编写的电子邮件，也就是没有弹出的电子邮件呢

Private Sub TransferToEmail(picControl)
On Error GoTo Delete

    Dim pictureFilePath As String
        pictureFilePath = "Z:\tempPic"

    SavePicture picControl.picture, pictureFilePath

    Dim olApp As Outlook.Application
        Set olApp = GetObject(, "Outlook.Application")

    Dim objDoc As Word.Document
        Set objDoc = olApp.ActiveInspector.WordEditor

    Dim objselect As Word.Selection
        Set objselect = objDoc.Windows(1).Selection

    objselect.InlineShapes.AddPicture pictureFilePath
Delete:
    Dim fso As Object
        Set fso = CreateObject("scripting.filesystemobject")
    If fso.fileexists(pictureFilePath) Then fso.deletefile ("" & pictureFilePath & "")
End Sub

当我弹出窗口时，这种方法有效，但在处理应用程序本身内部的新邮件项目时则无效。对于内联响应，请使用Explorer.ActiveInlineResponse/ActiveInlineResponseWordEditor属性和Explorer.InlineResponse/InlineResponseClose事件。

---

使用查看对象，查看Outlook对象模型中的可用对象。

将olApp.ActiveInspector.WordEditor替换为olApp.ActiveExplorer.ActiveInlineResponseWordEditor，很好！接受，这样任何人都可以看到未来！