Word to Outlook, utilising a UserForm prior to sending email

[gmayor]

You are right

sMessage = Replace(.txtEditor.Text, "[Force]", sForce)
sMessage = Replace(.txtEditor.Text, "[Officer]", sOfficer)

does not work however

sMessage = Replace(.txtEditor.Text, "[Force]", sForce)
sMessage = Replace(sMessage, "[Officer]", sOfficer)

should.