G-Day all

I know this has probably been covered by quite a few
but I wanted to put some more out for those who
haven't tried it yet...

Here is some code I am using, and although it's not
complete it will give some insight...

I am using a form to capture a few variables... the
ones that start with vf_ so you would need to replace
this...

  SET VAR vf_emailname TEXT = NULL
  SET VAR vf_claimno TEXT = NULL
  EDIT USING email
  SET VAR vf_emailname = (ULC(.vf_emailname))
  IF vf_emailname IS NOT NULL OR vf_claimno IS NOT NULL THEN
      SET VAR vm_crlf TEXT = '%0D%0A'
      SET VAR vm_defaultcomp TEXT = '@tcorp.com'
      SET VAR vm_emailaddress TEXT = (.vf_emailname + .vm_defaultcomp)
      SET VAR vm_subject TEXT = 'Workmans Compensation Claim Filed'
      SET VAR vm_body1 TEXT = +
      'This following workmans compnesation claim was filed on '
      SET VAR vm_body2 TEXT = 'The injury occured on '
      SET VAR vm_body3 TEXT = 'Details are as follows:'
      SET VAR vm_body4 TEXT = 'Name:..........'
      SET VAR vm_body5 TEXT = 'Company:.......'
      SET VAR vm_body6 TEXT = 'Claim Number...'
      SET VAR vm_body7 TEXT = 'Category:......'
      SET VAR vm_body8 TEXT = 'Description:...'

      SELECT datereported INTO vm_dtrptd indicatory vm_i1 FROM injuries
+
      WHERE claimnum = .vf_claimno
      SELECT injurydate INTO vm_dtinjry indicatory vm_i2 FROM injuries +
      WHERE claimnum = .vf_claimno
      SELECT lname INTO vm_lname indicatory vm_i3 FROM injuries +
      WHERE claimnum = .vf_claimno
      SELECT fname INTO vm_fname indicatory vm_i4 FROM injuries +
      WHERE claimnum = .vf_claimno
      SELECT company INTO vm_co indicatory vm_i5 FROM injuries +
      WHERE claimnum = .vf_claimno
      SELECT injurycategory INTO vm_cat indicatory vm_i6 FROM injuries +
      WHERE claimnum = .vf_claimno
      SELECT injurydesc INTO vm_desc indicatory vm_i7 FROM injuries +
      WHERE claimnum = .vf_claimno

      SET VAR vm_body NOTE = NULL
      SET VAR vm_body = (.vm_body + .vf_emailtoname + .vm_crlf)
      SET VAR vm_body = (.vm_body + ' ' + .vm_crlf)
      SET VAR vm_body = (.vm_body + .vm_body1  + ' ' + (CTXT+
      (.vm_dtrptd)) + .vm_crlf)
      SET VAR vm_body = (.vm_body + .vm_body2 + ' ' + (CTXT +
      (.vm_dtinjry)) + .vm_crlf + .vm_crlf)
      SET VAR vm_body = (.vm_body + .vm_body3 + .vm_crlf)
      SET VAR vm_body = (.vm_body + .vm_body4 + ' ' + .vm_lname + +
      ', ' + .vm_fname + .vm_crlf)
      SET VAR vm_body = (.vm_body + .vm_body5 + ' ' + .vm_co + .vm_crlf)
      SET VAR vm_body = (.vm_body + .vm_body6 + ' ' + .vf_claimno +
.vm_crlf)
      SET VAR vm_body = (.vm_body + .vm_body7 + ' ' + .vm_cat +
.vm_crlf)
      SET VAR vm_body = (.vm_body + .vm_body8 + ' ' + .vm_desc +
.vm_crlf)

      SET VAR vm_email2send TEXT = ('mailto:'+.vm_emailaddress+ +
      '?Subject='+.vm_subject+'&body=' + .vm_body)
      LAUNCH .vm_email2send
  ENDIF

The .vm_crlf is one of the cool features I found out...
I used this link:
 http://developer.iplanet.com/viewsource/husted_mailto/mailto_p.html
to input basically what I wanted the message to do and viewed what
was being embedded with the result... and it works... YES..

Hope this helps
Jim Limburg

Reply via email to