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 like Harbour (www.xharbour.org).
EMG
Replace CREATEOBJECT() with TOleAuto():New().
EMG
#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 nilOk, 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.
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...
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.
/*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 := NILThanks Carlos, but i must specify a host for sending, and i want to use the standard configuration from Outlook Express....