baddashboard.blogg.se

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. You can use a little extra overhead to create a message with the formatted HTMLBody content, then copy the content to an Appointment item. HTML Text with tags to formatted text in an Excel cell 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.