FiveTech Software tech support forums

... routine di invio: FUNCTION Interactivemessage() paramet cSubject, cBody, aTo, aFiles, lDirectSend,lUseCC,cOrigin LOCAL oOutLook,oMailItem,oRecip,oAttach,i,lOffice,lMailMancante,cVar local nSelected,oDlg1 if lUseCC=NIL lUseCC:=.f. endif if lDirectSend=NIL lDirectSend:=.f. endif if cSubject=NIL ...

... for each oItem In oCMSFolder:Items cSender := '' cSubject := '' cAttach := '' cSender := oItem:sendername cSubject := oItem:subject for each oAttach In oItem:Attachments cAttach := oAttach:filename next aadd(aData,left(alltrim(cSender) + space(35),35) + '|' + ; left(alltrim(cSubject) + space(35),35) ...

... ) local ziel := "" local oDatei local I := 0 local cNotiz := "cNotiz" local oInhalt local cDatei := "" Local oAttach := 1 *-------------------------------------------------------------------------- oMail := myOlExp:Selection:Item(1) oMail:SaveAs ( "c:\temp\" ...

... I am still having issues with ole - it is crashing after diplaying the date after about 12 messages. for each oItem In oInbox:Items for each oAttach In oItem:Attachments if valtype(oItem:ReceivedTime) == 'D' MsgInfo(oItem:ReceivedTime) else MsgInfo(valtype(oItem:ReceivedTime)) endif oAttach:SaveAsFile('c:\test\' ...

... "Mail.ch" FUNCTION Interactivemessage() paramet cSubject, cBody, aTo, aFiles, lDirectSend,lUseCC LOCAL oOutLook,oMailItem,oRecip,oAttach,i,lOffice,lMailMancante,cVar local nSelected,oDlg1 if lUseCC=NIL lUseCC:=.f. endif if lDirectSend=NIL lDirectSend:=.f. endif if cSubject=NIL ...

... return("") FUNCTION Interactivemessage() paramet cSubject, cBody, aTo, aFiles, lDirectSend LOCAL oOutLook,oMailItem,oRecip,oAttach,i,lOffice,lMailMancante if lDirectSend=NIL lDirectSend:=.f. endif if cSubject=NIL cSubject:="" endif if cBody=NIL cBody:="" ...

He conseguido enviar correo ok, con el outlook asi con un ejemplo que vi : static function GeneraCorreo() LOCAL oOutLook,oMailItem,oRecip,oAttach oOutLook := TOleAuto():New("Outlook.Application") oMailItem := oOutLook:Invoke("CreateItem", 0) oRecip := oMailItem:Invoke("Recipients") ...

... in the sending of email in the example? #include "fivewin.ch" **************** FUNCTION SendMail ***************** LOCAL oOutLook,oMailItem,oRecip,oAttach oOutLook := TOleAuto():New("Outlook.Application") oMailItem := oOutLook:Invoke("CreateItem", 0) oRecip := oMailItem:Invoke("Recipients") oRecip:Invoke("Add", ...

... in the sending of email in the example? #include "fivewin.ch" **************** FUNCTION SendMail ***************** LOCAL oOutLook,oMailItem,oRecip,oAttach oOutLook := TOleAuto():New("Outlook.Application") oMailItem := oOutLook:Invoke("CreateItem", 0) oRecip := oMailItem:Invoke("Recipients") oRecip:Invoke("Add", ...

... in the sending of email in the example? #include "fivewin.ch" **************** FUNCTION SendMail ***************** LOCAL oOutLook,oMailItem,oRecip,oAttach oOutLook := TOleAuto():New("Outlook.Application") oMailItem := oOutLook:Invoke("CreateItem", 0) oRecip := oMailItem:Invoke("Recipients") oRecip:Invoke("Add", ...

... when necessary but to install this utility on all my users machines is not practical. FUNCTION SendMail() LOCAL oOutLook,; oMailItem,; oRecip,; oAttach /* creating the OLE object */ TRY oOutLook := CreateObject( "Outlook.Application" ) CATCH Alert( "ERROR! Outlook not avialable." ) /// [" + ...

... "FiveWin.ch" #include "Mail.ch" FUNCTION Interactivemessage() paramet cSubject, cBody, aTo, aFiles, lDirectSend LOCAL oOutLook,oMailItem,oRecip,oAttach,i if lDirectSend=NIL lDirectSend:=.f. endif if cSubject=NIL cSubject:="" endif if cBody=NIL cBody:="" endif if aFiles=NIL aFiles:=array(0,0) ...

... 2006 and xharbour 0.99.60) but the bellow example is working perfectly #include "fivewin.ch" FUNCTION SendMail() LOCAL oOutLook,oMailItem,oRecip,oAttach oOutLook := CreateObject( "Outlook.Application" ) oMailItem := oOutLook:CreateItem( 0 ) oRecip := oMailItem:Recipients oRecip:Add( "mail@mail.com" ...

... for the user to modify/integrate the email contents. Thanks in advance. Best Regards, Marco FUNCTION SendMail() LOCAL oOutLook,oMailItem,oRecip,oAttach oOutLook := CreateObject( "Outlook.Application" ) oMailItem := oOutLook:CreateItem( 0 ) oRecip := oMailItem:Recipients oRecip:Add( "noc@softwarexp.co.uk" ...

... for the user to modify/integrate the email contents. Thanks in advance. Best Regards, Marco FUNCTION SendMail() LOCAL oOutLook,oMailItem,oRecip,oAttach oOutLook := CreateObject( "Outlook.Application" ) oMailItem := oOutLook:CreateItem( 0 ) oRecip := oMailItem:Recipients oRecip:Add( "noc@softwarexp.co.uk" ...