Outlook email text only message to rich text format
![outlook email text only message to rich text format outlook email text only message to rich text format](http://cdn.slipstick.com/images/2011/email/font-stationery-dialog.png)
'<- PASTE TEXT INTO APPOINTMENTįorms!frmMain.EmptyValue. VbCrLf & "Estimate Date: " & Forms!frmMain!frmSubTransaction! ObjOutLookApp.Body = vbCrLf & "Estimate ID: " & Forms!frmMain!frmSubTransaction! & _ StrSubject = strSubject & " - " & Forms!frmMain! StrSubject = strSubject & " (" & Forms! & ")" Sometimes, Outlook settings are modified by users and messages are set to be displayed in plain text only. Hit Finish to complete the process This way you can switch from an ANSI PST format to Unicode format. If Not IsNull(DLookup("EstimateID", "tblEstimate", "TransactionID = " & Me.TransactionID.Value)) ThenĭoCmd.OpenForm "frmEditEstimate",, ,, , acHidden '<- OPEN FORMATTED TEXT IN A FORMįorms!frmEditEstimate!ĭoCmd.RunCommand acCmdCopy '<- COPY FORMATTED TEXTĭoCmd.Close acForm, "frmEditEstimate", acSaveNo Next, select Outlook Data File and hitNext. So I cant use it, but if you can improve on it let me know. I works on my home machine, but not on the clients. I have also highlighted the important bits. I have just copied and pasted the entire sub, but the answer is in there I promise.
OUTLOOK EMAIL TEXT ONLY MESSAGE TO RICH TEXT FORMAT CODE
This code is tested and works in Access 2013. Set wdDoc_Appt = MyApptInspector.WordEditor Set MyApptInspector = objMyApptItem.GetInspector Set wdDoc_Msg = MyMsgInspector.WordEditor Set MyMsgInspector = objMyMsgItem.GetInspector Then use the GetInspector property to interact with the body of each item via a Word editor, and copy the formatted text that way. Set objMyApptItem = objOutlook.CreateItem(1) 'Appointment Item 'DLookup("EstimateText", "tblEstimateItems", "EstimateID = 78") Set objMyMsgItem = objOutlook.CreateItem(0) 'Message Item StrSubject = "Some text" 'Forms!frmMain.LastName 'more stuff to add Put the body text in the message, skip the body in the appointment for now. Start by creating a message and an appointment and populating them as desired. Design your template for each format individually or use the. 1.) to switch between the HTML, RTF and plain text format. Use the buttons in the Format group ( Fig. You can also quickly convert your template from one format to another. You can use a little extra overhead to create a message with the formatted HTMLBody content, then copy the content to an Appointment item. The template editor allows you to design individual templates for HTML, RTF and plain text email messages. HTML Text with tags to formatted text in an Excel cell
![outlook email text only message to rich text format outlook email text only message to rich text format](https://www.technipages.com/wp-content/uploads/2013/06/Outlook-2013-Options.png)
It seems many people have solution for Excel, but I am struggling to get them to work in Access: Is there a way I can send or convert the rich text to Outlook in a format it will recognise? (Maybe using the clipboard) The problem is that I want to insert Rich text into the Body but it doesn't format correctly, as it shows all the HTML tags instead e.g: example text RTFBody = StrConv(strBody, vbFromUnicode) Set objOutLookApp = objOutlook.CreateItem(1) Set objOutlook = CreateObject("Outlook.Application") StrBody = DLookup("EstimateText", "tblEstimateItems", "EstimateID = 78") '& Forms!frmMain!frmSubTransaction!) StrSubject = Forms!frmMain.LastName 'more stuff to add I have a button in Access that opens Outlook, creating an appointment.