KNOWLEDGE BASE
Log In    |    Knowledge Base    |    4D Home
Tech Tip: How to extract text from a 4D Write document and paste it in an e-mail body
PRODUCT: 4D Write | VERSION: | PLATFORM: Mac & Win
Published On: February 6, 2002
Your current browser may not allow you to download the asset. We recommend Mozilla Firefox or Google Chrome.
Log In

Version 6.5.x and 6.7.x

Since 4D Write stores text in its own format, you must extract pure text out of the document before pasting it into your e-mail body. The example below extracts text from a 4D Write document stored in a picture field and pastes it in an e-mail body.


ALL RECORDS([Table 1]) `Selecting all Records

For(i;1;Records in selection([table 1])) `Loop through all records

Temp:=WR New offscreen area `Creating an offscreen area

WR PICTURE TO AREA (Temp;[Table 1]Doc_) `Placing template in offscreen area

vText:=WR Get text (Temp;0;25) `Grabbing the first 25 characters in the area Temp

WR DELETE OFFSCREEN AREA (Temp) `Deleting the offscreen area


$error:=SMTP_New ($smtp_id)

$error:=SMTP_Host ($smtp_id;"mymailhost.com")

$error:=SMTP_From ($smtp_id;"someone@somewhere.com")

$error:=SMTP_Subject ($smtp_id;"Discounts on Ad Space!")

$error:=SMTP_To ($smtp_id;"someone@outthere.com";1) `Replace the "To" header with new value

$error:=SMTP_Body ($smtp_id;vText) `Placing the text into the body

$error:=SMTP_Send ($smtp_id)

Next Record([Table 1])

End for