W
Wayne
Hi all,
We have an outlook form which is used for internal referrals between
sections of our business. One particular type of referral needs to be sent to
another business who are not running in an Outlook/Exchange environment, but
run Lotus Notes.
While they do receive the emails, they are blank and they can't do anything
with them. I was tinkering around with reformatting the form controls to
output text into item.body, but the receipient is only receiving an email
with our privacy disclaimer (which is automatically appended by our email
gateway), and even then the disclaimer is appearing in raw HTML format.
Is there any way I can have the form put a copy of the control values into
the text of the email, yet still retain a form format, so that recipients
using Outlook can view the referral in a form view, but recipeints using
other systems get a plain text representation of the form values?
I had experimented with the code below... but like I said the recipient was
receiving only HTML code of our privacy disclaimer which is automatically
appended to every email at our gateway...
Function Item_Send()
Item.Body = Request" & chr(13) & "------------" & chr(13) & chr(13) &
"Business Requirement: "
If Item.UserProperties("uservalue1") = True then Item.Body = Item.Body &
"[removed from example]"
If Item.UserProperties("uservalue2") = True then Item.Body = Item.Body &
"[removed from example]"
If Item.UserProperties("uservalue3") = true then Item.Body = Item.Body &
"[removed from example]"
If Item.UserProperties("uservalue4") = true then Item.Body = Item.Body &
"[removed from example]"
If Item.UserProperties("uservalue5") = True then Item.Body = Item.Body &
"[removed from example]"
If Item.UserProperties("uservalue6") = True then Item.Body = Item.Body &
"[removed from example]"
If Item.UserProperties("uservalue7") = True then Item.Body = Item.Body &
"[removed from example]"
Item.Body = Item.Body & "insert some other values here"
End Function
Thank you
We have an outlook form which is used for internal referrals between
sections of our business. One particular type of referral needs to be sent to
another business who are not running in an Outlook/Exchange environment, but
run Lotus Notes.
While they do receive the emails, they are blank and they can't do anything
with them. I was tinkering around with reformatting the form controls to
output text into item.body, but the receipient is only receiving an email
with our privacy disclaimer (which is automatically appended by our email
gateway), and even then the disclaimer is appearing in raw HTML format.
Is there any way I can have the form put a copy of the control values into
the text of the email, yet still retain a form format, so that recipients
using Outlook can view the referral in a form view, but recipeints using
other systems get a plain text representation of the form values?
I had experimented with the code below... but like I said the recipient was
receiving only HTML code of our privacy disclaimer which is automatically
appended to every email at our gateway...
Function Item_Send()
Item.Body = Request" & chr(13) & "------------" & chr(13) & chr(13) &
"Business Requirement: "
If Item.UserProperties("uservalue1") = True then Item.Body = Item.Body &
"[removed from example]"
If Item.UserProperties("uservalue2") = True then Item.Body = Item.Body &
"[removed from example]"
If Item.UserProperties("uservalue3") = true then Item.Body = Item.Body &
"[removed from example]"
If Item.UserProperties("uservalue4") = true then Item.Body = Item.Body &
"[removed from example]"
If Item.UserProperties("uservalue5") = True then Item.Body = Item.Body &
"[removed from example]"
If Item.UserProperties("uservalue6") = True then Item.Body = Item.Body &
"[removed from example]"
If Item.UserProperties("uservalue7") = True then Item.Body = Item.Body &
"[removed from example]"
Item.Body = Item.Body & "insert some other values here"
End Function
Thank you