Redemption in MS Access / Outlook (trying to include a separate message file in email)

Question

This code is in MS Access (2010) VBA, using the Redemption library with Microsoft Outlook 2010.

I had this process working before, but we recently had a Citrix upgrade that I guess reset something in my Outlook and now the process no longer works.

I have a folder of .msg files which are basically pre-made email templates with all the proper formatting, images, text, etc.

This is what I was doing before:

Dim outlookApp As Object, namespace As Object
Dim oItem, MyItem

Set outlookApp = CreateObject("Outlook.Application")
Set namespace = outlookApp.GetNamespace("MAPI")
namespace.Logon

Set MyItem = outlookApp.CreateItemFromTemplate(path_to_dot_msg_file)

'And then there are many calls like this:
MyItem.HTMLBody = Replace(MyItem.HTMLBody, "Dear Person,", "Dear  " & name)
'...

Set safeItem = CreateObject("Redemption.SafeMailItem")
Set oItem = MyItem
safeItem.Item = oItem


'this next line displays the email, and as of this line, it looks correct
'safeItem.Display  

'but as of this line, the issue occurs
safeItem.HTMLBody = "<p>This is an extra message that shows up before the .msg file</p>" & safeItem.HTMLBody


safeItem.Recipients.ResolveAll
safeItem.Send

Now when the email is sent, the .msg contents aren't present at all -- the only thing that shows up is the "extra message" that I prepended to the HTMLBody.

What do I need to change or update? Is this something I need to change in the code, or in my Outlook settings, etc?

Extra: body insertion:

Function insertStringBodyTag(htmlBody As String, stringToInsert As String)
    Dim s As String
    Dim i As Integer
    s = htmlBody
    i = InStr(1, s, "<body")
    i = InStr(i, s, ">")
    s = Left(s, i) & stringToInsert & Right(s, Len(s) - i)
    insertStringBodyTag = s
End Function

'Called with safeItem.htmlBody = insertStringBodyTag(safeItem.htmlBody, prefix_string)

score 0 · Accepted Answer · answered Dec 12 '16 at 16:54

0

You cannot concatenate 2 HTML strings and expect a valid HTML string back - the two must be merged - find the position of the "<body"substring in the original HTML body, then find the positon of the following ">" (this way you take care of the body element with attributes), then insert your HTML string following that ">".

answered Dec 12 '16 at 16:54

Dmitry Streblechenko

62,942
4
53
78

I tried that but it does not work (the htmlbody seems to become blank?). I added my code in the post to show what I mean. – user7285972 Dec 12 '16 at 18:46
What is the value of the insertStringBodyTag when it returns? – Dmitry Streblechenko Dec 12 '16 at 20:40
It looks like it's blank upon entry. Moreover, when I set safeItem to myItem, it's not carrying over the attributes / HTMLbody – user7285972 Dec 12 '16 at 20:48
I just set the HTMLbody manually and it seemed to fix the issue – user7285972 Dec 12 '16 at 21:06
You might want to save the MailItem object first (MailItem.Save) to make sure MAPI (and Redemption) can see the latest changes. – Dmitry Streblechenko Dec 12 '16 at 23:49

Redemption in MS Access / Outlook (trying to include a separate message file in email)

1 Answers1