2

У меня есть интернет-магазин. Когда я получаю продажу, я получаю электронное письмо с подтверждением заказа, которое содержит название проданного товара. Когда приходит электронное письмо, я хотел бы запустить скрипт, который заменяет название продукта, например. "красный виджет", с изображением этого продукта. Это возможно?

Я нашел похожий код для замены текста (в данном случае это набор цифр) ссылкой, но мне нужно заменить его на изображение.

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 Дата заказа: пятница, 28 июня 2013 г.

Товары
-------------------------------------------------- ----
1 х красный виджет = $ 5,00
-------------------------------------------------- ----
Итого: 0,00 $

Адрес доставки ххх

поиск текста: "красный виджет"
заменить изображение: redwidget.jpg

|источник

0