LinkBack URL
About LinkBacks
askpcguy 
Hello everyone!
I've got the following code (thanks in part to some helpful folks here) which is working but I'm having a tough time changing the font formatting. I'm trying to add code to change the font color after Red to another color but have not found any examples online. Everything mentions the paragraph styling which when I use will put the text on a new paragraph.
--Also, how can I space the table elements? Currently there is almost no spacing and I'd want to put a few tabs between the columns.
Private Sub CommandButton4_Click() Dim OutlookApp As Object Dim mItem As Object Dim MyLink As String MyLink = "http://SomeWebSiteHereOrPlaceHolder=" Set OutlookApp = CreateObject("Outlook.Application") Set mItem = OutlookApp.CreateItem(0) With mItem .To = "PlaceHolder" .Subject = "PlaceHolder" .HTMLBody = "<HTML><BODY><H2><I><P Style='font-family:Arial;font-size:18pt;color:red'>Example <Change font color HERE>Text #1</CHANGE></I></H2></P>" .HTMLBody = .HTMLBody & "<TABLE><TR><TD><B>Example Text #2</TD></B><a href=""" & MyLink & _ TextBox1.Value & """>" & TextBox1.Value & "</a>" & _ "<TR><TD><B>Status:</TD></TR></B>" & ComboBox1.Text & _ "<TR><TD><B>Date/Time Reported:</TD></TR></B>" & TextBox2.Text & _ "<TR><TD><B>Impact Summary:</TD></TR></B>" & TextBox3.Text & _ "<TR><TD><B>Locations Impacted:</TD></TR></B>" & TextBox4.Text & _ "<TR><TD><B>Incident Manager:</TD></TR></B>" & TextBox5.Text & _ "<TR><TD><B>Actions / Progress:</TD></TR></B>" & TextBox6.Text & _ "<TR><TD><B>Root Cause:</TD></TR></B>" & TextBox7.Text & _ "</TABLE></BODY></HTML>" .Importance = 2 .Display End With End Sub
Register To Reply
Bookmarks