Auto Fill Outlook template via VBA

[stu_C]

Hi all
I have a default Email template, I would like to create something in VBA that loads up the Email template, fills out the subject with data from the access form and also inputs data into a certain bookmark section is this possible?

I have managed to get the template to open and input the subject automatically just struggling to get the bookmarks to work

Set myOlApp = CreateObject("Outlook.Application")
Set MyItem = myOlApp.CreateItemFromTemplate("C:\statusrep.oft")
MyItem.Subject = "Status Report"
MyItem.display

I tried
Set bm = oDoc.Bookmarks("BMCustomerName")
bm.Range.Text = "TESTABC"
oWd.Visible = True

[Welshgasman]

I have not used bookmarks.
You could just use unique words as place sitters, then just use Replace() as I advised in another thread of your at another site?

[stu_C]

I have not used bookmarks.
You could just use unique words as place sitters, then just use Replace() as I advised in another thread of your at another site?

how do i get it to check in the Email body

[Welshgasman]

I am struggling to get Replace to work on a form let alone doing it on an Email body

It is exactly the same I would have thought?, but that is because you have not looked to see how it works.

I posted a link to the syntax and examples in the other thread.

[stu_C]

so In my Email Template body I put
INVOICEREFNUMBERHERE

when I do

"INVOICEREFNUMBERHERE" = Replace("NVOICEREFNUMBERHERE", "me.INVOICEREFFIELD")

vba doesn't like it

[orange]

Look at the similar threads at the bottom of the page for related help.

[Welshgasman]

Not suprised as it is gibberish.
I have given you a link as to how Replace() is used, look at it.

[Gicu]

To use your example from post #5:

Dim sEmailBody as string

sEmailBody="Dear ......" & vbcrlf & _
                   "Here is your Invoice INVOICEREFNUMBERHERE for the ......"
sEmailBody=Replace(sEmailBody,"INVOICEREFNUMBERHERE",Me.INVOICEREFFIELD) 'replace placeholder with actual value from form
sEmailBody=Replace(sEmailBody,"YourOtherPlaceholder",Me.OtherPlaceholderValue) '.....and so on

Cheers,