FiveTech Software tech support forums

John wrote:Hi Ask,

thanks for the info, but i have to stick with Harbour, because i can't affort to buy xHarbour.

Best regards,

John.

Xharbour is free .Just download it from www.xharbour.org.Switch to xharbour because harbour has alot of problems.

regards,
A.S.K

xHarbour is free just like Harbour (www.xharbour.org).

EMG

Replace CREATEOBJECT() with TOleAuto():New().

EMG

John,

This code works for me; using FW 2.6 May 2005, Harbour 44, and Outlook Express 6.

James

Code: Select all  Expand view

#include "fivewin.ch"
#include "mail.ch"

function main()
   local oWnd
   define window oWnd
   activate window oWnd on init doit()
return nil

function doit()
   local oMail,aCustomer:={}
   local cSubject:="Test mail"
   local cMessage:="This is a test message."
   aadd(aCustomer,"test@test.nl;test1@test.nl")

   DEFINE MAIL oMail;
   SUBJECT cSubject;
   TEXT cMessage
   oMail:aRecipients:=aCustomer
   ACTIVATE MAIL oMail

   msgInfo("mail sent")

return nil

Ok, i've downloaded xHarbour and changed the directories in my scriptfiles from Harbour to xHarbour (is that all, or do i have to do more?)

after completely compiling this error pops up:
Program with 1st fun: Alert was compiled by older version, PCODE version 0 is no longer supported - Please recompile.

How do i do this and can i expect more of these warnings?

Best regards,

John.

John wrote:Ok, i've downloaded xHarbour and changed the directories in my scriptfiles from Harbour to xHarbour (is that all, or do i have to do more?)


after completely compiling this error pops up:
Program with 1st fun: Alert was compiled by older version, PCODE version 0 is no longer supported - Please recompile.

How do i do this and can i expect more of these warnings?

Best regards,

John.

In your link script replace
echo ..\lib\Fiveh.lib ..\lib\FiveHC.lib + >> b32.bc
with
echo ..\lib\Fivehx.lib ..\lib\FiveHC.lib + >> b32.bc

regards
A.S.K

thanks!

but now it says that PCODE version 5 is not supported from ALERT.PRG...

John,

All the PRGs, including FWH ones, have to be recompiled using the xHarbour build that you are using.

Also, as xHarbour has internally changed recently, your FiveHC.lib will no longer be valid.

The easiest way to solve this is to upgrade your FWH to the current one from https://secure.fivetechsoft.com/english/purchase.html

John wrote:thanks!

but now it says that PCODE version 5 is not supported from ALERT.PRG...

Maybe an older version of xharbour works.Send me a private mail to send you 0.99.4

regards
A.S.K

Antonio,

i just sumitted the orderform for the upgrade.

Best regards,

John.

John,

Your order has just been processed. Thanks.

Hi!

i've just upgraded to FWH27 and xHarbour, but still i'm getting the '501 bad address syntax' error.

It seems i'm not using the correct string for multiple recipients correctly, because for only one recipient it works.

so what's wrong with the code below?

cCustomer:="test@test.nl;test1@test.nl"
aadd(aCustomer,cCustomer)

DEFINE MAIL oMail ;
SUBJECT cSubject ;
TEXT cMessage
oMail:aRecipients:=aCustomer
ACTIVATE MAIL oMail

Best regards,

John.

It seems i'm not using the correct string for multiple recipients correctly, because for only one recipient it works.

As I mentioned in a previous message, that syntax works for me. You could also try a comma or space delimiter instead. Also, try surrounding the address with <>.

James

this is a alternative, using a Dll RkMail.dll for send email

http://202.102.233.250/b2000/ASP/component/email/rkMail.zip


(register the dll using -> c:\>regsvr32 rkmail.dll)

Code: Select all  Expand view

/*creacion de variables locales*/
LOCAL oSMTP
LOCAL cTexto
LOCAL nRecord

/*creacion de objeto*/
oSMTP = CREATEOBJECT('rkMail.SMTP')

/*servidor SMTP de corporacion don bosco*/
oSMTP.AddSMTPHost("mail.cablenet.com.ni")

/*datos del remitente*/
oSMTP.FromAddress = "recepcion@donboscocorp.com"
oSMTP.FromName      = "Recepcion de Corporacion Don Bosco"

/*asunto del correo*/
oSMTP.Subject      = "Registro de llamadas del " + dtoc(thisform.fecha.Value)

/*datos del receptor principal*/
oSMTP.AddRecipient ("Guillermo Castillo - Gerencia", "gcm@donboscocorp.com")

/*datos de receptores secundarios del correo*/
oSMTP.AddBCC ("Margarita Rodriguez", "atencion-a-cliente@donboscocorp.com")
oSMTP.AddBCC ("Carlos Vargas", "cvargaz@donboscocorp.com")

*acumulacion de registro de llamdas
cTexto = ""

cTexto = cTexto +    "Hora...:" + time() + CHR(13)+;
                  "De.....:" + "Carlos Vargas" + CHR(13)+;
                  "Para...:" + "Guillermo Castillo" + CHR(13)+;
                  "Mensaje:" + "Hola Mundo" + CHR(13)+;
                  "Atendio:" + "Si" + CHR(13) + CHR(13)


/*asignacion del cuerpo del correo*/
oSMTP.TextBody = cTexto         

/*adjunto atachment*/      
*oSMTP.AddAttachment("fondo.bmp")

/*verificacion de envio de correo*/
IF !oSMTP.SendMail
   /*error en envio*/
   MsgAlert(oSMTP.Response,"Error en envio de correo!")
ELSE
   *envio exitoso
   MsgInfo("Envio de llamadas por correo exitoso!","Informacion")
ENDIF

/*elimina objeto */
oSMTP := NIL


salu2
carlos vargas

Thanks Carlos, but i must specify a host for sending, and i want to use the standard configuration from Outlook Express....