Trying to add a disclaimer to an open email without removing the current body text

Ok, I will start by saying that I have never programmed for Outlook, so this is a guess.

Assuming that .CurrentItem does what it says on the tin, then I would suggest that you try changing:

Please Login or Register  to view this content.

To:

Please Login or Register  to view this content.

Simplest way, I think, would be to store the Subject and Body in temporary variables BEFORE you overwrite them. Then you can restore them afterwards. For example

Before:

Please Login or Register  to view this content.

After:

Please Login or Register  to view this content.

If you are satisfied with the solution(s) provided, please mark your thread as Solved.


New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save


You may also want to consider thanking those people who helped you by clicking on the little star at the bottom left of their reply to your question.

So where would I add this in my code? Very sorry, I’m not a coder so I’m just trying to learn and figure this out!

Sub AddCUI()
Set myFolder = Application.ActiveWindow.CurrentItem
Set myItem = Application.ActiveWindow.CurrentItem
myItem.Display
With myItem
.Subject = "CUI\" & .Subject
.HTMLBody = "text here" & .HTMLBody
.Display
End With
End Sub

I just want to be able to run the macro a second time to remove the disclaimer from the email without removing any other text. If that makes sense?

Maybe this

Please Login or Register  to view this content.

The code as shown first displays the current item, saves the subject and body, changes the subject and body, displays (could be changed to send) the amended current item, and finally restores the subject and body. There is not, IMO, a need for a two stage process.

Is there a command that I can enter to basically tell the code "if it already has CUI in the subject, don't add it again"?

Well, yes. You know what the subject contains, so test for Left(.Subject, 3) = "CUI".

As I said, I don't program Outlook so I can't offer definitive advice. That said, you should have the building blocks to do what you have described. I just don't know why you want to.