Photo to Calendar Note Field

[lms]

In the past, we create the code lines inside the script of a contact form which puts the words from certain fields of the contact fields in the note field of the calendar event of that contact. And we had two different lines re the text areas and the date areas which are below. So what can I do to put a Photo of the Contact in the Note field? The Photo field is OlkContactPhoto1.

Dim txtintrodate
Dim txtintroperson

if item.getinspector.modifiedformpages("General").controls("Intro Date").text <> "None" then txtintrodate = "Intro Date" & ": " & vbcrlf & item.getinspector.modifiedformpages("General").controls("Intro Date").text & vbcrlf
if item.getinspector.modifiedformpages("General").controls("TextBox5").text <> "" then txtintroperson = "Intro Person" & ": " & vbcrlf & item.getinspector.modifiedformpages("General").controls("TextBox5").text & vbcrlf

itmappt.body =txtintrodate & txtintroperson

[lms]

Any thoughts? Have not heard back from anyone.