>CONTINUED (GOT CUT OFF)...
*^&&*#@ SORRY, I CAN’T SEND ANY MESSAGES LONGER THAN ABOUT 1 PAGE *^&&*#@
=============== THE CODE FOLLOWS ===============================
01 thisform.addobject("OLEMAPISession1","olecontrol",;
"MSMAPI.mapiSession")
02 thisform.addobject("OLEMAPIMsg1","olecontrol",;
"MSMAPI.mapiMessages")
03 lcMessage=ALLTRIM("Multiple documents follow")+CHR(13)+CHR(10)+" "
04 * Message header, 2 blank lines pre attachments
05 lcSubject="Selected Documents"
06 lcRecipient=ALLTRIM(Thisform.txtprodn_caddrbkid.value)
07 lcAddress="
jimshannon@earthlink.com"
08*Compose an email message and set the subject line and message text:
09 thisform.OLEMAPIMsg1.compose
10 thisform.OLEMAPIMsg1.RecipDisplayName=lcAddress
11 thisform.OLEMAPIMsg1.msgsubject=lcSubject
12 thisform.OLEMAPIMsg1.msgnotetext=lcMessage
13 * -- Add attachmen
**** Visual AccountMate Authorized Dealer *****
Specializing in Visual Foxpro system development
using State of the Art RAD tools (Visual ProMatrix,
FoxExpress, Codebook) to provide fast, inexpensive,
SOLID end user systems. (If only it were that easy )