Copy an Outlook Email Contents and Paste in a New Email Keeping Format

more than likely your copy statement is not grabbing the format of the content you want because the RETURN is associated with an ms word document object model. see here:

https://docs.microsoft.com/en-us/off...tor.wordeditor

furthermore, you've got inconsistencies with these 2 blocks of code:

Please Login or Register  to view this content.

and even further, these 2 lines are redundant:

Please Login or Register  to view this content.

lastly, I would seriously doubt that this line:

Please Login or Register  to view this content.

would have any compatibility with this line:

Please Login or Register  to view this content.

formatted text in a word document is not HTML. it has no tags. so, a little work to do here.

on a side note, I've worked for many large companies in my lifetime, and I can tell you, if you do work for McDonalds, that you folks could benefit greatly from a migration away from MS office products. Ever worked with Python? It has a huge amount of resources inside of it that allows it to work with almost any email client in the world. It is widely recognized the world over, and for good reason. If you want to know what it can do, are curious about it, or anything else, let me know and I'll give you some insight. You don't even have to pay me.

Thanks for your reply! I don’t work for McDonalds btw, that email was in my junk as an example, because it’s similar to the emails I want to forward.

There is clearly inconsistencies in my code, unfortunately I can’t code very well and found a few things online but clearly they don’t apply here.

Can you suggest a way I can Copy all the content of an email, and can I call it back to the body of a new email? Can that be done?

FYI thank you for offering your time if I get this I may have questions for you

Originally Posted by lougs7

Can you suggest a way I can Copy all the content of an email, and can I call it back to the body of a new email? Can that be done?

more than likely, yes. see below. (and keep in mind that any code in this post that has ''tags'' in it, which are "<" and ">" symbols,
have been spaced out to get around this forum's security software. If you use these examples, take the spaces out of the code. also images 4, 5 and 6 are in the next post.

based on the image you showed in post #1, it is clear, more than likely, the reason that the images are not showing is because you are doing what I said you were doing, and that was using the inspector. the first thing you need to do is determine whether the images in the email you originally received were embedded in the body of the message, or if they were linked. based on the fact that your forward attempt shows them as broken bitmap icons, more than likely they are embedded images. and there is no way for me to give you an answer on this because I do not know where you received the email from (client used, company you got it from (I assume McDonalds?), type of server that sent it, etc, etc....). so, the best I could do to help you in this regard was to run my own test. image #1 below shows where you can switch the type of email you are sending. image #2 shows you that you cannot embed images when sending plain text new mail items (that is the default format). and, per the first response in this thread: https://answers.microsoft.com/en-us/...5-48b3d41a2638

image #3 shows that you can embed images into a new mail item when you switch to HTML-based composition. image #4 shows you what an HTML email with an embedded image looks like when received through outlook. image #5 shows what results when the code below is run on the email received in image #4. Obviously the picture is not copied. So what that tells us is that the broken images seen in post #1 that come from you attempting to forward the original email, are a result of linked images, not embedded ones. furthermore, you can test what I've just said by printing out the HTML code of the original email you received by running code like this (modified from your original code):

Please Login or Register  to view this content.

and when I printed the HTML source out for the email I used in this test, using the .HTMLbody property of a mail item object, what I got (in part) is in attachment #1.

so, obviously, you can see that the embedded image I used for the test is read by the email client as the code that is in attachment 2.

and thus, as a last resort to test what needs to be tested, in order to help you accomplish your goal, the following new code produced what you see in image #6:

Please Login or Register  to view this content.

Originally Posted by lougs7

FYI thank you for offering your time if I get this I may have questions for you

sure.

so....with everything I've just given you, do you think you can run with it? Why not give it a try and then post back if you can't get the last little bit. deal?

images 4, 5 and 6 attached here:

Hi Phil,

Wow thank you for taking the time to explain in detail the mechnaics of how this works. I did the edits mentioned to arrive at this edited code, the code breaks on me, perhaps I am not setting it up correctly?

Please Login or Register  to view this content.

imgHTML = Mid(strHTML, imgStart, imgEnd - imgStart) this line returns the runtime error 5: Invalid procedure call or argument. Am I doing this right?

Lastly I commented on this part, I wasn't sure if I take this out since olInsp is a Word thing, as you explained
Set olInsp = .GetInspector ' do I delete this from my old code or keep?
Set wdDoc = olInsp.WordEditor 'do I delete this from my old code or keep?
Set rng = wdDoc.Range.FormattedText 'do I delete this from my old code or keep?

If you can help me cross the finish line and tutor me on this last bit I would be tremendously grateful! Thanks Phil waiting to hear back

Wow, im sorry, why was I under the impression your name was VBA Phil, it's definitly Adam lol its clearly in the comments you put. I apologize for that Adam :O ... Any further help is tremendously appreciated.

Originally Posted by lougs7

Wow, im sorry, why was I under the impression your name was VBA Phil.

not too bad. here's some funny info for you, in a variety of languages:

PHP
""VBA Phil"" != ""vba_php"", however ""VBA_P"" = ""vba_p""
https://www.php.net/manual/en/langua...comparison.php

C#.NET
""VBA Phil"" != ""vba_php"", and ""VBA_P"" != ""vba_p""
https://docs.microsoft.com/en-us/dot...lity-operators

VB.NET
""VBA Phil"" <> ""vba_php"", and ""VBA_P"" <> ""vba_p""
https://docs.microsoft.com/en-us/dot...ison-operators

JAVASCRIPT
""VBA Phil"" != ""vba_php"", however ""VBA_P"" = ""vba_p""
https://devdocs.io/javascript/operators/inequality

PYTHON
""VBA Phil"" != ""vba_php"", however ""VBA_P"" == ""vba_p""
https://docs.python.org/3/library/op...s-to-functions

C++
""VBA Phil"" != ""vba_php"", however ""VBA_P"" == ""vba_p""
https://docs.microsoft.com/en-us/cpp...d-exclpt-equal

C
""VBA Phil"" != ""vba_php"", however ""VBA_P"" == ""vba_p""
https://docs.microsoft.com/en-us/cpp...?view=msvc-160

JAVA
""VBA Phil"" != ""vba_php"", however ""VBA_P"" = ""vba_p""
https://docs.oracle.com/javase/tutor...opsummary.html

Gosh, I hope I got all those right! Good learning material there. OK OK, enough time wasted. I will look at your issue now....

Originally Posted by lougs7

imgHTML = Mid(strHTML, imgStart, imgEnd - imgStart) this line returns the runtime error 5: Invalid procedure call or argument. Am I doing this right?

Nope. see below images:

image 1: you kept the image-based HTML code that I used for my test. every image generates different HTML code silly! ha ha ha. thus, change it via this process:

print the HTML content out like I mentioned in a previous post by running through the HTMLbody property and using debug.print. either that, or run the code you just tried and when it breaks, write ?strHTML in the immediate window. copy all of it into notepad. see image 2. copy that code into this line as a replacement for the old. you should know how by now:

Please Login or Register  to view this content.

image 2: me searching for the actual image code that outlook spit out when I created a test email and manually embedded an image into it using outlook's interface menu.

image 3: my replacement code, put into VBA.

image 4: the test email I created manually.

image 5: the result of running the code I gave you on my test email.

Originally Posted by lougs7

Lastly I commented on this part, I wasn't sure if I take this out since olInsp is a Word thing, as you explained
Set olInsp = .GetInspector ' do I delete this from my old code or keep?
Set wdDoc = olInsp.WordEditor 'do I delete this from my old code or keep?
Set rng = wdDoc.Range.FormattedText 'do I delete this from my old code or keep?

I kept all of that in my example, but none of those lines are really needed.

Keep in mind that I just run this new test using the following rules:

1) ran the test in a single instance of outlook. did not run it from excel. and thus, had to do this:

Please Login or Register  to view this content.

2) added new code:

Please Login or Register  to view this content.

you do not have to do any of that because you are running things on your end from inside excel.

3 images are attached here. 2 are found in the following post.

......................

Well I looked up how to insert a signature object into an Outlook email message using code and everyone says it's not possible. For some reason that surprises the heck out of me because Outlook with every other software program in the world has its own object model and every little entity in it should be included in code somewhere. But apparently this is a rare case.

So it seems like you have two options here to get a custom string inserted at the end of the message:

1) you use the default signature that you set manually and then do what they said in that stack overflow link, or

2) you append the string to the end of the HTML body property of the email object like I showed you two posts ago. Do you remember me doing that? That was part of the printing out of the HTML source code as a teaching mechanism for you.

So those two methods are readily available to you if all you want to do is insert your signature at the bottom of the message and everything else is working for you at this time. By the way I don't drink beer it will have to be tea or something else that I can't think of at the moment.

and I'm sorry about talking about a stack overflow Link in my last post but I can't post links to that forum because the moderators here say that's breaking the rules because it's a competing forum to this one. So if you want to see that link, Google these terms:

Www.google.com/search?q=outlook+vba+signature

Okay thanks a lot, it seems that adding the signature will only add it to the top part of the Forward email, not beneath the original email contents being forwarded. Appending the string to the HTML body property too, I believe will add the text to the new body. This is awfully confusing given my low level of expertise coding. Im going to keep trying with what you originally gave me, I wasn't sure if I was editing the code correctly, not going to lie the copying to the Notepad part confused me a bit, ideally the code runs on its own without someone copying to note pad. I will keep trying... You have been really helpful thanks for that

the copy process to notepad was strictly for the purpose of teaching you how to do things and solve problems on your own :-)

there are a million different programs that are compatible with the Windows operating system and you can use virtually any of them to do work around methods regardless of what you're doing via automation or coding work. I use programs all the time for purposes that they are not intended for strictly to get work done especially for corporate people because corporate people have no idea what they're doing and most of them fight endlessly all day long because they're bored to tears. :-) and that's what gives people like me work to do because they constantly contact consultants to try and help fix the issues that they cause themselves due to their political infighting on an endless basis LOL

But back on point here..... You are very close to the solution anyway and I could probably produce one for you with regard to code that does exactly what you want that runs from inside an Excel application but I would probably have to be paid a little money for it because that's a lot of work. But then again you've already got most of it produced yourself. That's obvious based on the screenshots that you've posted after your test runs on your end. So if you need any more help just ask