FiveTech Software tech support forums

... #include "fivewin.ch" function Main() Local oOutLook := CreateObject("OutLook.Application") Local oNameSpace := oOutLook:GetNameSpace("MAPI") Local oFolder, n oNameSpace:Logon() //ACIONAR ENVIAR / RECEBER automaticamente //.T. = Abrir DIALOG //.F. = Não Abrir ...

...          ?olns:Folder( n ):name Next n  y me da este error Error description: Error Outlook.Application:GETNAMESPACE/0 S_OK: FOLDER Args: [ 1] = N 1 Saludos, Adhemar

... CreateItemFromTemplate( [in] BSTR, [optional] VARIANT ) STDCALL dispatch FUNC IDispatch CreateObject( [in] BSTR ) STDCALL dispatch FUNC PTR GetNamespace( [in] BSTR ) STDCALL dispatch FUNC void Quit() STDCALL dispatch PROPERTYGET PTR COMAddIns() STDCALL dispatch PROPERTYGET PTR Explorers() ...

Hi, anyone have a solution about this error? I have try: oOutLook := CreateObject("Outlook.Application") oNameSpace := oOutlook:GetNameSpace("MAPI") oMail := oOutLook:CreateItem(0) oMail:Subject := "test" oMail:Body := "test" oMail:Recipients:Add("myemail") ...

... 6 #include "fivewin.ch" FUNCTION MAIN() LOCAL oOutlook := TOleAuto():New( "Outlook.Application" ) LOCAL oNameSpace := oOutlook:getnamespace('MAPI') LOCAL oFolder := oNameSpace:GetDefaultFolder( olFolderInBox ) LOCAL nItems LOCAL oMail LOCAL iMsg nItems := oFolder:Items:Count ...

... Which property have I to use for time? Thanks LOCAL oOutlook := TOleAuto():New( "Outlook.Application" ) LOCAL oNameSpace := oOutlook:getnamespace('MAPI') LOCAL oFolder := oNameSpace:GetDefaultFolder( 5 ) LOCAL nItems LOCAL oMail LOCAL iMsg LOCAL cNomeMsg nItems := oFolder:Items:Count ...

... the inbox - and then checking the messages in the sub folder oOL := TOleAuto():New( "Outlook.Application" ) oNameSpace := oOL:Get( "GetNameSpace", "MAPI" ) oInbox := oNameSpace:Get( "GetDefaultFolder",6) // 6 = Inbox-Folder oCMSFolder := oInbox:Folders("cmsmail") ...

Hi All This code opens the inbox folder oOL := TOleAuto():New( "Outlook.Application" ) oNameSpace := oOL:Get( "GetNameSpace", "MAPI" ) oInbox := oNameSpace:Get( "GetDefaultFolder",6) // 6 = Inbox-Folder Is there a way to open a non default folder. ...

... := 0,; nNameSpace := 0,nLineCount := 0 asize(aData,0) oOL := TOleAuto():New( "Outlook.Application" ) oNameSpace = oOL:Get( "GetNameSpace", "MAPI" ) oInbox = oNameSpace:Get( "GetDefaultFolder", "6" ) // 6 = Inbox-Folder nCount := oInbox:ITEMS:Count() ...

... 10 ANNOUNCE RDDSYS FUNCTION MAIN( cNomeFile ) LOCAL oOutlook := CREATEOBJECT( "Outlook.Application" ) LOCAL oNameSpace := oOutlook:GetNameSpace("MAPI") LOCAL oContacts := oNameSpace:GetDefaultFolder( olFolderContacts ) LOCAL i LOCAL aStruct := {} AADD( aStruct , { "NOME" ...

... #define olFolderContacts 10 FUNCTION MAIN() LOCAL oOutlook := CREATEOBJECT( "Outlook.Application" ) LOCAL oNameSpace := oOutlook:GetNameSpace("MAPI") LOCAL oContacts := oNameSpace:GetDefaultFolder( olFolderContacts ) LOCAL i SET DATE BRITISH FOR i = 1 TO oContacts:Items:Count ...

... to the calendar, but also tasks, in Outlook. What did I change : 1. You need to use CreateOLEObject() in stead of CreateObject(). 2. No use of GetNameSpace() 3. In case of Outlook 2007, Outlook has to be opened, just like Otto said. The Outlook 2007 problem, I solved by searching for "OUTLOOK" ...

... ; lSave := .F., ; lFOUND := .F., ; I := 0 TRY oOutlook := CREATEOBJECT( "Outlook.Application" ) oNameSpace := oOutlook:GetNameSpace("MAPI") ocalendar := oNameSpace:GetDefaultFolder(outlookFolderCalendar ) FOR I = 1 TO ocalendar:Items:Count IF DTOS(ocalendar:Items[ i ...

... oOL := TOleAuto():New( "Outlook.Application" ) lOutlookOK := .T. IF ! lOutlookOK RETURN ( 0 ) ENDIF oNameSpace = oOL:Get( "GetNameSpace", "MAPI" ) oContacts = oNameSpace:Get( "GetDefaultFolder", "6" ) // 6 = Inbox-Folder FOR nContador = 1 TO oContacts:ITEMS:Count() oNewContact ...

... il mio problema: Code: oOL := TOleAuto():New( "Outlook.Application" ) lOutlookOK := .T. IF ! lOutlookOK RETURN ( 0 ) ENDIF oNameSpace = oOL:Get( "GetNameSpace", "MAPI" ) oContacts = oNameSpace:Get( "GetDefaultFolder", "6" ) // 6 = Inbox-Folder FOR nContador = 1 TO oContacts:ITEMS:Count() oNewContact ...