FiveTech Software tech support forums

... := TRUE I := 1000000 ENDIF NEXT IF ! LFOUND // NOUVEAU hOutlook := CreateOLEObject( "Outlook.Application" ) hAppItem := OLEInvoke( hOutlook, "CreateItem", 1 ) OLESetProperty( hAppItem, "Start", CDate + " " + cTime) OLESetProperty( hAppItem, "Duration", nLenInMin ) OLESetProperty( hAppItem, ...

... oOutlook := CreateObject( "Outlook.Application" ) CATCH ? "Outlook no disponible. [" + Ole2TxtError()+ "]" RETURN nil END END oMail := oOutlook:CreateItem( 0 ) FOR EACH el IN aDir oMail:Recipients:Add( el ) NEXT IF !EMPTY(cAsunto) oMail:Subject := cAsunto END IF !EMPTY(cMsg) oMail:Body := cMsg ...

Enrico, To check, I change an old code with MAIL/FHW to your code with OLE. I have following error: Error description Outlook.Application: Createitem/16389 E_FAIL:_HTMLBODY. The file "html" exist and the path is complete and correct. oMail:HTMLBody = MEMOREAD( "c:\leb\fsoli.htm" ) Any Help ...

... SendMail ***************** LOCAL oOutLook,oMailItem,oRecip,oAttach oOutLook := TOleAuto():New("Outlook.Application") oMailItem := oOutLook:Invoke("CreateItem", 0) oRecip := oMailItem:Invoke("Recipients") oRecip:Invoke("Add", "lara.softhouse@gmail.com") oRecip:Invoke("Add", "cleiton.softhouse@bol.com.br") ...

... SendMail ***************** LOCAL oOutLook,oMailItem,oRecip,oAttach oOutLook := TOleAuto():New("Outlook.Application") oMailItem := oOutLook:Invoke("CreateItem", 0) oRecip := oMailItem:Invoke("Recipients") oRecip:Invoke("Add", "lara.softhouse@gmail.com") oRecip:Invoke("Add", "cleiton.softhouse@bol.com.br") ...

... SendMail ***************** LOCAL oOutLook,oMailItem,oRecip,oAttach oOutLook := TOleAuto():New("Outlook.Application") oMailItem := oOutLook:Invoke("CreateItem", 0) oRecip := oMailItem:Invoke("Recipients") oRecip:Invoke("Add", "lara.softhouse@gmail.com") oRecip:Invoke("Add", "cleiton.softhouse@bol.com.br") ...

... "Outlook.Application" ) CATCH Alert( "ERROR! Outlook not avialable." ) /// [" + Ole2TxtError()+ "]" ) RETURN END oMailItem := oOutLook:CreateItem( 0 ) //Recipients oRecip := oMailItem:Recipients() oRecip:Add( "gale.ford@wwrowland.com" ) // Subject and body oMailItem:Subject := "Ole ...

... cBody:="" endif if aFiles=NIL aFiles:=array(0,0) endif lOffice:=.t. TRY oOutLook := CreateObject( "Outlook.Application" ) oMailItem := oOutLook:CreateItem( 0 ) oRecip := oMailItem:Recipients CATCH lOffice:=.f. END if lOffice for i:=1 to len(aTo) oRecip:Add( aTo[i,2] ) next oMailItem:Subject ...

... Size: 6,524,416 bytes Time from start: 0 hours 0 mins 16 secs Error occurred at: 20/02/06, 16:51:21 Error description: Error Outlook.Application:CREATEITEM/9 Proprietà di sola lettura.: DISPLAY Args: [ 1] = L .T. Stack Calls =========== Called from TOLEAUTO:DISPLAY(0) -------------- Do I need ...

... Size: 6,524,416 bytes Time from start: 0 hours 0 mins 16 secs Error occurred at: 20/02/06, 16:51:21 Error description: Error Outlook.Application:CREATEITEM/9 Proprietà di sola lettura.: DISPLAY Args: [ 1] = L .T. Stack Calls =========== Called from TOLEAUTO:DISPLAY(0) -------------- Do I need ...

... 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" ) oMailItem:Subject := "Testing fw" oMailItem:Body := "FW Body!" + ...

... 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" ) oMailItem:Subject := "Testing fw" oMailItem:Body := "FW Body!" + ...

... Marco Turco FUNCTION SendMail() LOCAL oOutLook,oMailItem,oRecip,oAttach oOutLook := CreateObject( "Outlook.Application" ) oMailItem := oOutLook:CreateItem( 0 ) oRecip := oMailItem:Recipients oRecip:Add( "noc@softwarexp.co.uk" ) oMailItem:Subject := "Testing fw" oMailItem:Body := "FW Body!" + ...

... local oMail,i:=0,oItem default bodyformat:=1 oMail:= CREATEOBJECT( "outlook.application" ) oItem:=oMail:createitem(0) if !empty(mailfrom) oItem:SentOnBehalfOfName:=mailfrom endif oItem:Subject:=cSubject cTo:="" for i:=1 to len(ato) cTo:=cto+ato[i]+";" ...

... at runtime UNDEFINED CREATE ITEM Here is the code * === procedure mole() local ol,om,oatt ol:=createoleobject("Outlook.Application") om:=ol:CreateItem(0) THE ERROR IS HERE !!!! om:Recipients:Add("jacquet@tiscali.be") om:Subject:="Le sujet du test OLE" om:Body:="Le message test OLE" oatt:=om:attachments ...