Skip to main content
Super User

Return to Question

Post Timeline

Bumped by Community user
Bumped by Community user
Added details
Source Link
David.P
David.P
  • 752
  • 3
  • 21
  • 39

Is there an even easier (or maybe a little more user-friendly) way to inject a few lines of HTML source code into an Outlook email, than using a macro like shown over there:

Edit the HTML source code while composing a message in Outlook

Outlook HTML source code window of the above macro: HTML source code window of the above macro

Edit 1: Here are some more links on this. It seems that there is no easier way around to be found on the web.

https://www.outlook-apps.com/insert-html-to-outlook-emails https://www.howto-outlook.com/howto/edit-html-source-code-email.htm#quickinstall https://www.werockyourweb.com/community/edit-source-in-outlook-emails/#comment-18745

The code from the last link (see below) is pretty neat. It switches between HTML source and WYSIWYG inside the Outlook message window itself. However, there seem to be problems when switching back to WYSIWYG and Outlook obviously interpreting some of the code as mail text (or something).

May 23, 2008 9:07 am The Other Way

Use these macros to switch the current email between source view and HTML view.

The first will take a HTML message and convert it into a text message, retaining the tags.

Once you’ve edited it and are ready to send, the 2nd one will convert the text message back to HTML.

Evil Overlord

Sub HTML2Text()
Dim objApp As Application
Dim objItem As MailItem
Dim strBody As String
Set objApp = CreateObject("Outlook.Application")
Set objItem = objApp.ActiveInspector.CurrentItem
If (objItem.BodyFormat = olFormatHTML) Then
strBody = objItem.HTMLBody
objItem.HTMLBody = ""
objItem.Body = strBody
objItem.BodyFormat = olFormatPlain
End If
End Sub

Sub Text2HTML()
Dim objApp As Application
Dim objItem As MailItem
Dim strBody As String
Set objApp = CreateObject("Outlook.Application")
Set objItem = objApp.ActiveInspector.CurrentItem
If (objItem.BodyFormat = olFormatPlain) Then
strBody = objItem.Body
objItem.Body = ""
objItem.HTMLBody = strBody
objItem.BodyFormat = olFormatHTML
End If
End Sub

Edit 2: Here is a surprisingly straightforward approach:

I wrote my code in notepad++, viewed it in Chrome, and then copied it into my email. Worked beautifully!

Is there an even easier (or maybe a little more user-friendly) way to inject a few lines of HTML source code into an Outlook email, than using a macro like shown over there:

Edit the HTML source code while composing a message in Outlook

Outlook HTML source code window of the above macro: HTML source code window of the above macro

Edit 1: Here are some more links on this. It seems that there is no easier way around to be found on the web.

https://www.outlook-apps.com/insert-html-to-outlook-emails https://www.howto-outlook.com/howto/edit-html-source-code-email.htm#quickinstall https://www.werockyourweb.com/community/edit-source-in-outlook-emails/#comment-18745

The code from the last link (see below) is pretty neat. It switches between HTML source and WYSIWYG inside the Outlook message window itself. However, there seem to be problems when switching back to WYSIWYG and Outlook obviously interpreting some of the code as mail text (or something).

May 23, 2008 9:07 am The Other Way

Use these macros to switch the current email between source view and HTML view.

The first will take a HTML message and convert it into a text message, retaining the tags.

Once you’ve edited it and are ready to send, the 2nd one will convert the text message back to HTML.

Evil Overlord

Sub HTML2Text()
Dim objApp As Application
Dim objItem As MailItem
Dim strBody As String
Set objApp = CreateObject("Outlook.Application")
Set objItem = objApp.ActiveInspector.CurrentItem
If (objItem.BodyFormat = olFormatHTML) Then
strBody = objItem.HTMLBody
objItem.HTMLBody = ""
objItem.Body = strBody
objItem.BodyFormat = olFormatPlain
End If
End Sub

Sub Text2HTML()
Dim objApp As Application
Dim objItem As MailItem
Dim strBody As String
Set objApp = CreateObject("Outlook.Application")
Set objItem = objApp.ActiveInspector.CurrentItem
If (objItem.BodyFormat = olFormatPlain) Then
strBody = objItem.Body
objItem.Body = ""
objItem.HTMLBody = strBody
objItem.BodyFormat = olFormatHTML
End If
End Sub

Edit 2: Here is a surprisingly straightforward approach:

I wrote my code in notepad++, viewed it in Chrome, and then copied it into my email. Worked beautifully!

Is there an even easier (or maybe a little more user-friendly) way to inject a few lines of HTML source code into an Outlook email, than using a macro like shown over there:

Edit the HTML source code while composing a message in Outlook

Outlook HTML source code window of the above macro: HTML source code window of the above macro

Edit 1: Here are some more links on this. It seems that there is no easier way around to be found on the web.

https://www.outlook-apps.com/insert-html-to-outlook-emails https://www.howto-outlook.com/howto/edit-html-source-code-email.htm#quickinstall https://www.werockyourweb.com/community/edit-source-in-outlook-emails/#comment-18745

The code from the last link (see below) is pretty neat. It switches between HTML source and WYSIWYG inside the Outlook message window itself. However, there seem to be problems when switching back to WYSIWYG and Outlook obviously interpreting some of the code as mail text (or something).

May 23, 2008 9:07 am The Other Way

Use these macros to switch the current email between source view and HTML view.

The first will take a HTML message and convert it into a text message, retaining the tags.

Once you’ve edited it and are ready to send, the 2nd one will convert the text message back to HTML.

Evil Overlord

Sub HTML2Text()
Dim objApp As Application
Dim objItem As MailItem
Dim strBody As String
Set objApp = CreateObject("Outlook.Application")
Set objItem = objApp.ActiveInspector.CurrentItem
If (objItem.BodyFormat = olFormatHTML) Then
strBody = objItem.HTMLBody
objItem.HTMLBody = ""
objItem.Body = strBody
objItem.BodyFormat = olFormatPlain
End If
End Sub

Sub Text2HTML()
Dim objApp As Application
Dim objItem As MailItem
Dim strBody As String
Set objApp = CreateObject("Outlook.Application")
Set objItem = objApp.ActiveInspector.CurrentItem
If (objItem.BodyFormat = olFormatPlain) Then
strBody = objItem.Body
objItem.Body = ""
objItem.HTMLBody = strBody
objItem.BodyFormat = olFormatHTML
End If
End Sub
Added details
Source Link
David.P
David.P
  • 752
  • 3
  • 21
  • 39

Is there an even easier (or maybe a little more user-friendly) way to inject a few lines of HTML source code into an Outlook email, than using a macro like shown over there:

Edit the HTML source code while composing a message in Outlook

Outlook HTML source code window of the above macro: HTML source code window of the above macro

Edit:Edit 1: Here are some more links on this. It seems that there is no easier way around to be found on the web.

https://www.outlook-apps.com/insert-html-to-outlook-emails https://www.howto-outlook.com/howto/edit-html-source-code-email.htm#quickinstall https://www.werockyourweb.com/community/edit-source-in-outlook-emails/#comment-18745

The code from the last link (see below) is pretty neat. It switches between HTML source and WYSIWYG inside the Outlook message window itself. However, there seem to be problems when switching back to WYSIWYG and Outlook obviously interpreting some of the code as mail text (or something).

May 23, 2008 9:07 am The Other Way

Use these macros to switch the current email between source view and HTML view.

The first will take a HTML message and convert it into a text message, retaining the tags.

Once you’ve edited it and are ready to send, the 2nd one will convert the text message back to HTML.

Evil Overlord

Sub HTML2Text()
Dim objApp As Application
Dim objItem As MailItem
Dim strBody As String
Set objApp = CreateObject("Outlook.Application")
Set objItem = objApp.ActiveInspector.CurrentItem
If (objItem.BodyFormat = olFormatHTML) Then
strBody = objItem.HTMLBody
objItem.HTMLBody = ""
objItem.Body = strBody
objItem.BodyFormat = olFormatPlain
End If
End Sub

Sub Text2HTML()
Dim objApp As Application
Dim objItem As MailItem
Dim strBody As String
Set objApp = CreateObject("Outlook.Application")
Set objItem = objApp.ActiveInspector.CurrentItem
If (objItem.BodyFormat = olFormatPlain) Then
strBody = objItem.Body
objItem.Body = ""
objItem.HTMLBody = strBody
objItem.BodyFormat = olFormatHTML
End If
End Sub

Edit 2: Here is a surprisingly straightforward approach:

I wrote my code in notepad++, viewed it in Chrome, and then copied it into my email. Worked beautifully!

Is there an even easier (or maybe a little more user-friendly) way to inject a few lines of HTML source code into an Outlook email, than using a macro like shown over there:

Edit the HTML source code while composing a message in Outlook

Outlook HTML source code window of the above macro: HTML source code window of the above macro

Edit: Here are some more links on this. It seems that there is no easier way around to be found on the web.

https://www.outlook-apps.com/insert-html-to-outlook-emails https://www.howto-outlook.com/howto/edit-html-source-code-email.htm#quickinstall https://www.werockyourweb.com/community/edit-source-in-outlook-emails/#comment-18745

The code from the last link (see below) is pretty neat. It switches between HTML source and WYSIWYG inside the Outlook message window itself. However, there seem to be problems when switching back to WYSIWYG and Outlook obviously interpreting some of the code as mail text (or something).

May 23, 2008 9:07 am The Other Way

Use these macros to switch the current email between source view and HTML view.

The first will take a HTML message and convert it into a text message, retaining the tags.

Once you’ve edited it and are ready to send, the 2nd one will convert the text message back to HTML.

Evil Overlord

Sub HTML2Text()
Dim objApp As Application
Dim objItem As MailItem
Dim strBody As String
Set objApp = CreateObject("Outlook.Application")
Set objItem = objApp.ActiveInspector.CurrentItem
If (objItem.BodyFormat = olFormatHTML) Then
strBody = objItem.HTMLBody
objItem.HTMLBody = ""
objItem.Body = strBody
objItem.BodyFormat = olFormatPlain
End If
End Sub

Sub Text2HTML()
Dim objApp As Application
Dim objItem As MailItem
Dim strBody As String
Set objApp = CreateObject("Outlook.Application")
Set objItem = objApp.ActiveInspector.CurrentItem
If (objItem.BodyFormat = olFormatPlain) Then
strBody = objItem.Body
objItem.Body = ""
objItem.HTMLBody = strBody
objItem.BodyFormat = olFormatHTML
End If
End Sub

Is there an even easier (or maybe a little more user-friendly) way to inject a few lines of HTML source code into an Outlook email, than using a macro like shown over there:

Edit the HTML source code while composing a message in Outlook

Outlook HTML source code window of the above macro: HTML source code window of the above macro

Edit 1: Here are some more links on this. It seems that there is no easier way around to be found on the web.

https://www.outlook-apps.com/insert-html-to-outlook-emails https://www.howto-outlook.com/howto/edit-html-source-code-email.htm#quickinstall https://www.werockyourweb.com/community/edit-source-in-outlook-emails/#comment-18745

The code from the last link (see below) is pretty neat. It switches between HTML source and WYSIWYG inside the Outlook message window itself. However, there seem to be problems when switching back to WYSIWYG and Outlook obviously interpreting some of the code as mail text (or something).

May 23, 2008 9:07 am The Other Way

Use these macros to switch the current email between source view and HTML view.

The first will take a HTML message and convert it into a text message, retaining the tags.

Once you’ve edited it and are ready to send, the 2nd one will convert the text message back to HTML.

Evil Overlord

Sub HTML2Text()
Dim objApp As Application
Dim objItem As MailItem
Dim strBody As String
Set objApp = CreateObject("Outlook.Application")
Set objItem = objApp.ActiveInspector.CurrentItem
If (objItem.BodyFormat = olFormatHTML) Then
strBody = objItem.HTMLBody
objItem.HTMLBody = ""
objItem.Body = strBody
objItem.BodyFormat = olFormatPlain
End If
End Sub

Sub Text2HTML()
Dim objApp As Application
Dim objItem As MailItem
Dim strBody As String
Set objApp = CreateObject("Outlook.Application")
Set objItem = objApp.ActiveInspector.CurrentItem
If (objItem.BodyFormat = olFormatPlain) Then
strBody = objItem.Body
objItem.Body = ""
objItem.HTMLBody = strBody
objItem.BodyFormat = olFormatHTML
End If
End Sub

Edit 2: Here is a surprisingly straightforward approach:

I wrote my code in notepad++, viewed it in Chrome, and then copied it into my email. Worked beautifully!

added 1891 characters in body
Source Link
David.P
David.P
  • 752
  • 3
  • 21
  • 39

Is there an even easier (or maybe a little more user-friendly) way to inject a few lines of HTML source code into an Outlook email, than using a macro like shown over there:

Edit the HTML source code while composing a message in Outlook

Outlook HTML source code window of the above macro: HTML source code window of the above macro

Edit: Here are some more links on this. It seems that there is no easier way around to be found on the web.

https://www.outlook-apps.com/insert-html-to-outlook-emails https://www.howto-outlook.com/howto/edit-html-source-code-email.htm#quickinstall https://www.werockyourweb.com/community/edit-source-in-outlook-emails/#comment-18745

The code from the last link (see below) is pretty neat. It switches between HTML source and WYSIWYG inside the Outlook message window itself. However, there seem to be problems when switching back to WYSIWYG and Outlook obviously interpreting some of the code as mail text (or something).

May 23, 2008 9:07 am The Other Way

Use these macros to switch the current email between source view and HTML view.

The first will take a HTML message and convert it into a text message, retaining the tags.

Once you’ve edited it and are ready to send, the 2nd one will convert the text message back to HTML.

Evil Overlord

Sub HTML2Text()
Dim objApp As Application
Dim objItem As MailItem
Dim strBody As String
Set objApp = CreateObject("Outlook.Application")
Set objItem = objApp.ActiveInspector.CurrentItem
If (objItem.BodyFormat = olFormatHTML) Then
strBody = objItem.HTMLBody
objItem.HTMLBody = ""
objItem.Body = strBody
objItem.BodyFormat = olFormatPlain
End If
End Sub

Sub Text2HTML()
Dim objApp As Application
Dim objItem As MailItem
Dim strBody As String
Set objApp = CreateObject("Outlook.Application")
Set objItem = objApp.ActiveInspector.CurrentItem
If (objItem.BodyFormat = olFormatPlain) Then
strBody = objItem.Body
objItem.Body = ""
objItem.HTMLBody = strBody
objItem.BodyFormat = olFormatHTML
End If
End Sub

Is there an even easier (or maybe a little more user-friendly) way to inject a few lines of HTML source code into an Outlook email, than using a macro like shown over there:

Edit the HTML source code while composing a message in Outlook

Outlook HTML source code window of the above macro: HTML source code window of the above macro

Is there an even easier (or maybe a little more user-friendly) way to inject a few lines of HTML source code into an Outlook email, than using a macro like shown over there:

Edit the HTML source code while composing a message in Outlook

Outlook HTML source code window of the above macro: HTML source code window of the above macro

Edit: Here are some more links on this. It seems that there is no easier way around to be found on the web.

https://www.outlook-apps.com/insert-html-to-outlook-emails https://www.howto-outlook.com/howto/edit-html-source-code-email.htm#quickinstall https://www.werockyourweb.com/community/edit-source-in-outlook-emails/#comment-18745

The code from the last link (see below) is pretty neat. It switches between HTML source and WYSIWYG inside the Outlook message window itself. However, there seem to be problems when switching back to WYSIWYG and Outlook obviously interpreting some of the code as mail text (or something).

May 23, 2008 9:07 am The Other Way

Use these macros to switch the current email between source view and HTML view.

The first will take a HTML message and convert it into a text message, retaining the tags.

Once you’ve edited it and are ready to send, the 2nd one will convert the text message back to HTML.

Evil Overlord

Sub HTML2Text()
Dim objApp As Application
Dim objItem As MailItem
Dim strBody As String
Set objApp = CreateObject("Outlook.Application")
Set objItem = objApp.ActiveInspector.CurrentItem
If (objItem.BodyFormat = olFormatHTML) Then
strBody = objItem.HTMLBody
objItem.HTMLBody = ""
objItem.Body = strBody
objItem.BodyFormat = olFormatPlain
End If
End Sub

Sub Text2HTML()
Dim objApp As Application
Dim objItem As MailItem
Dim strBody As String
Set objApp = CreateObject("Outlook.Application")
Set objItem = objApp.ActiveInspector.CurrentItem
If (objItem.BodyFormat = olFormatPlain) Then
strBody = objItem.Body
objItem.Body = ""
objItem.HTMLBody = strBody
objItem.BodyFormat = olFormatHTML
End If
End Sub
Source Link
David.P
David.P
  • 752
  • 3
  • 21
  • 39