remove "forwarded content" while replying to customer

[westconn1]

here is the sample i was working with

For Each msg In myFolder.Items
If InStr(msg.Subject, "FW:") > 0 Then Stop: Exit For
Next
Dim m As MailItem

Set m = msg
strt = InStrRev(msg.Body, "Original Message")
strt = InStr(strt, msg.Body, vbNewLine) + 2
m.Body = Mid(msg.Body, strt)
strt = InStr(m.Body, "=") + 1
nd = InStr(strt, m.Body, "]")
r = Mid(m.Body, strt, nd - strt)
m.Recipients.Add r
m.Subject = "this is a test"
m.send

you can get the original subject and remove the FW: or replace with RE:
add your reply before the original body
i am sure this can be improved on a lot