Problem with a Memo record

[Silvio.Falconi]

I made a function to save models for email




I have problem when I insert the message ( memo field) in Outlook or another exchange application
because I not have the text I save on my app but



how I can resolve it ?

Perhaps I need to save with different type and How ? ( rtf or html ) how can i save it onto a memo field

[Gale FORd]

Make sure you convert soft CR to hard CR+LF or use memoline() plus CRLF to extract each line into cText you send to email body.

[Otto]

Hello,
we use RTF-format. This is working fine for us.
You can try with our exe. This exe is very similar to yours.

http://www.atzwanger-software.com/fw/xBauSteine.zip

This program has also full text search inside the memo field.

Best regards,
Otto

[Silvio.Falconi]

But the memo field support rtf format text inside ?

[Silvio.Falconi]

I use

@ 90,110 RICHEDIT aGet[3] VAR MM->MESSAGE of oDlgModelli PIXEL SIZE 100,100

and I tried to usse fonts and other effect

How I can save the MM->MESSAGE ?

I tried with
aget[3]:Saveasrtf()

[Otto]

Silvio,
RTF and Memo-fields for me is working fine.
Maybe you need the most resent Fivewin Version.
Best regards,
Otto

[Silvio.Falconi]

Otto, I not Know how save the the richedit into a memo field

I have a dbf with 3 field
and I cannot use update command

please try it

Code: Select all  Expand view

#include "Fivewin.ch"
#include "constant.ch"

#include "richedit.ch"

REQUEST DBFCDX
REQUEST DBFFPT
EXTERNAL ORDKEYNO,ORDKEYCOUNT,ORDCREATE,ORDKEYGOTO

Function test()
   Local hDLL  := LoadLibrary( 'riched20.dll' )
   Local oDlgModelli

   Local cDlgTitle  :="Family"
   Local aGet[3]
    Local  nBottom   := 29.2
   Local  nRight    :=  58
   Local  nWidth    :=  Max( nRight * DLG_CHARPIX_W, 180 )
   Local  nHeight   :=  nBottom * DLG_CHARPIX_H
   Local otn

 RddSetDefault( "DBFCDX" )

   Create_Archive_Modelli_mail()

   USE MAILMOD ALIAS MM


   IF MM->(eof())
        MM->(DbAPPEND())
         Replace mm->MAILNAME with "test"
         Replace mm->MESSAGE with "Prova test"
          MM->(DbCommit())
      endif

   MM->(DbGotop())

DEFINE DIALOG oDlgModelli          ;
         SIZE nWidth, nHeight   PIXEL  TRUEPIXEL ;
         TITLE cDlgTitle



      @ 90,110  RICHEDIT aGet[3] VAR MM->MESSAGE of oDlgModelli PIXEL SIZE 100,100   //UPDATE


     @ 10, 5 BUTTON otn prompt "Save"  ACTION SaveMemo(aGet)
 ACTIVATE DIALOG oDlgModelli  centered


      if hDLL != nil
      FreeLibrary( hDLL )
   endif

   return nil



function SaveMemo(aGet)

   aGet[3]:saveasrtf()

 return nil





    static   Function Create_Archive_Modelli_mail()
      Local cDir :=""

    DbCreate(cDir+'mm', {  {'MAILNAME' , 'C',  30,   0} ,;
                      {'SUBJECT'  , 'C',  30,   0} ,;
                      {'MESSAGE'  , 'M',  10,  0}}, 'DBFCDX')

     close all
      use &(cDir+'mm') new
      select mm
      if FILE(cDir+'MailMod.DBF')
         delete file &(cdir+'MailMod.cdx')
         append from &(cdir+'MailMod')
         dbcommitall()
         close all
         delete file &(cdir+'MailMod.dbf')
         delete file &(cdir+'MailMod.fpt')
      endif
      close all
      rename &(cdir+'mm.dbf') to &(cdir+'MailMod.dbf')
      rename &(cDir+'mm.fpt') to &(cDir+'MailMod.fpt')
      close all
    return nil