Outlook VBA插入URL无法正常工作

时间:2015-08-16 19:30:30

标签: outlook outlook-addin outlook-vba

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

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

我需要使用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没有可以向我显示如何操作的宏录制器。

2 个答案:

答案 0 :(得分:0)

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

另外,我建议在Word中录制VBA宏,以查看使用Word对象模型完成作业所需的确切代码行。 Word提供宏录制器,允许手动完成工作并获取在后台为您生成的代码。有关详细信息,请参阅Record or run a macro

答案 1 :(得分:0)

以下脚本在Outlook中对我有用:

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