☰

Outlook VBA 脚本 - 查找并用图像替换文本

tag-icon • tag-icon microsoft-outlook vba
Outlook VBA 脚本 - 查找并用图像替换文本

我有一家电子商务商店。当我完成销售时，我会收到一封订单确认电子邮件，其中包含所售产品的名称。当收到电子邮件时，我想运行一个脚本，用该产品的图片替换产品名称（例如“红色小部件”）。这可能吗？

我找到了类似的代码，可以用链接替换文本（在本例中是一组数字），但我需要用图片来替换它。

Option Explicit

Sub InsertHyperLink(MyMail As MailItem)
    Dim body As String, re As Object, match As Variant

    body = MyMail.body
    Set re = CreateObject("vbscript.regexp")
    re.Pattern = "#[0-9][0-9][0-9][0-9][0-9][0-9]"

    For Each match In re.Execute(body)
        body = Replace(body, match.Value, "http://example.com/bug.html?id=" & Right(match.Value, 6), 1, -1, vbTextCompare)
    Next

    MyMail.body = body
    MyMail.Save
End Sub

示例邮件

订单确认

感谢您今天来此购物！
------------------------------------------------------
订单号：2209 订购日期：2013 年 6 月 28 日星期五

产品
------------------------------------------------------
1 x 红色小部件 = $5.00
------------------------------------------------------
总计：$0.00

送货地址 xxx

搜索文本：“red widget”
替换图片：redwidget.jpg

相关内容