Outlook VBA 插入 URL 不起作用答案

【问题标题】：Outlook VBA insert URL not workingOutlook VBA 插入 URL 不起作用
【发布时间】：2020-06-27 16:53:27
【问题描述】：

我可以使用“插入图片”和“插入文件链接”功能手动将图片插入到 Outlook 2010 新电子邮件中。在文件字段中，我输入链接：http://www.example.com/image.php?s1=song1.net & c1=composer

链接返回一张图片，我可以在电子邮件正文中看到它。

我需要使用 VBA 输入此 URL。我写了下面的代码，它不起作用。当我尝试运行时，它带有以下消息：运行时错误“4198”：命令失败。它突出显示包含链接的行。

我的代码：

Sub insertHTMLFile()
Dim Insp As Inspector
Set Insp = ActiveInspector
If Insp.IsWordMail Then
Dim wordDoc As Word.Document
Set wordDoc = Insp.WordEditor
wordDoc.Application.Selection.InsertFile "http://www.example.com/image.php?s1=song1.net & c1=composer ", , False, False,   False
End If
End Sub

如果您能告诉我如何使用 VBA 插入图像，我将不胜感激。不幸的是，Outlook 没有可以向我展示如何操作的说明的宏记录器。

【问题讨论】：

标签： vba outlook outlook-addin

【解决方案1】：

尝试使用 %20 替换/编码 URL 字符串中的空格。

我还建议在 Word 中录制 VBA 宏，以查看使用 Word 对象模型完成工作所需的确切代码行。 Word 提供了宏记录器，它允许手动完成工作并在后台为您生成代码。请参阅Record or run a macro 了解更多信息。

【讨论】：

在我的原始代码中我没有空格，因此这无济于事。
我会试试建议这个词
在Word中查看记录的说明是一个创意。恐怕在这种情况下它对我没有帮助。我在 Word 中记录了指令，记录的宏在 Word 中运行良好，在 Outlook 中不起作用。但是，当我尝试在 Outlook 中使用它时，出现以下错误：运行时错误“91”：对象变量或未设置块变量。这是 Word 生成的代码：Selection.InlineShapes.AddPicture FileName:= _ "example.com/image.php?s1=song1.net&c1=composer" _ , LinkToFile:=True, SaveWithDocument:=False 有什么想法让它工作吗？

【解决方案2】：

以下脚本在 Outlook 中运行良好：

Set wordDoc = Application.ActiveInspector.WordEditor
wordDoc.Application.Selection.InlineShapes.AddPicture "http://www.dimastr.com/redemption_logo.png", true, false

【讨论】：