FiveTech Software tech support forums

... have time I will study this problem. #include "fivewin.ch" #define olFolderContacts 10 ANNOUNCE RDDSYS FUNCTION MAIN( cNomeFile ) LOCAL oOutlook := CREATEOBJECT( "Outlook.Application" ) LOCAL oNameSpace := oOutlook:GetNameSpace("MAPI") LOCAL oContacts := oNameSpace:GetDefaultFolder( ...

... NEXT iField NEXT iContact NEXT iFolder Thanks In advance marco #include "fivewin.ch" #define olFolderContacts 10 FUNCTION MAIN() LOCAL oOutlook := CREATEOBJECT( "Outlook.Application" ) LOCAL oNameSpace := oOutlook:GetNameSpace("MAPI") LOCAL oContacts := oNameSpace:GetDefaultFolder( ...

Thanks for your answer, but unfortunately the same error occurs.

I tried the different possibilities :

oOutlook:Run:Macro("Macro")
oOutlook:Run("Macro")
oMail:Run:Macro("Macro")
oMail:Run("Macro")

Any idea ?

... 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 ...

Here is my code : local oOutlook,oMailItem,wbody wbody:="Cher Confrère, Chère Consœur,"+CRLF+CRLF wbody:=wbody+"Veuillez trouver ici le rapport du médecin de garde " * oOutLook := TOleAuto():New("Outlook.Application") ...

... another applications and so on. My questions is Is it possible to use a program like this #include "fivewin.ch" FUNCION MAIN() LOCAL oOutlook , i LOCAL aDir := DIRECTORY("*.MSG") oOutlook := CreateObject("Outlook.Application") FOR i := 1 TO LEN(aDir) :shock: oOutlook:SomeFunctionToImportmsg( ...

JM,

Usando un objeto OLE, como se explica en esa conversacion

oOutlook := CreateObject( "Outlook.Application" )
...

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") ...

Michel,

Try these lines before calling QUIT:

oMail = nil
oOutLook = nil

Andrés,

Has probado a definir oOutLook:bPainted para que llame a GradientFill() ?

right and I made on function Show LOCAL nPage := AScan( oOutLook:aGroups, { | o | o:lSelected } ) LOCAL nAllPages := Len (oOutLook:aGroups) FOR i := 1 TO nAllPages IIF (Valtype (aCtrl[i]) ="O",aCtrl[i]:Hide(), ) NEXT nTop = oWnd:nHeight - ( Len(oOutLook:aGroups ...

AIDA wrote:...mandame un correo...

¿ A donde ?

En vez de esto oOutlook:=CreateObject("Outlook.Application") se podria hacer oOutlook:=CreateObject("OutlookExpress.Application")

Para evitar los bloqueos del OutLook se podria usar el OutLook-Express con oOutlook:=CreateObject("Outlook.Application"). Ya que este (el OutLook-Express) tiene la opcion de: Menu Herramientas -> Opciones -> Pestaña SEguridad -> Desmarcar la opción: ...

Antonio, It would be great if we could do this: Define outlook2003 oOutlook of oWnd: Prompts "Customer","Inventory"; Dialogs "Customer","Inventory" I know it is a little unusual since we would be defining a outlook bar from code and dialogs from resources ...

... I dont want a Save-Button. I solved the problem like this 1. I created a hidden button with the function oDlg1:Update() ( oDlg1 is the Child of oOutlook ). 2. When I press one of the Office-Bar-Buttons of the Child, the action at first does a click on the hidden button oBtn0:Click() for the ...