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

相关内容