We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Private Sub project_Write(Cancel As Boolean) Dim projectNotes As String projectNotes = project.Body If originalprojectNotes <> projectNotes Then originalprojectNotes = projectNotes Set mail = Application.CreateItem(olMailItem) mail.Subject = "" & project.Subject & " notes have been updated" mail.HTMLBody = "<font face='arial' colour='#000080' size='2'><p>" & project.Subject & " has been updated. The current notes are:</p><p> " & projectNotes & "</p>><p><font size = '1'>V. 1 - /4501/</p>" mail.To = "firstname.lastname@example.org" mail.Send End If