FiveTech Software tech support forums

Maestro, esto és para bajar mis emails?

salu2

Es para leer los emails que haya en tu bandeja de entrada (inbox).

Application
===========
Path and name: c:\FWH1303\samples\teste.exe (32 bits)
Size: 1,966,592 bytes
Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20130326)
FiveWin Version: FWHX 13.02
Windows version: 6.1, Build 7601 Service Pack 1

Time from start: 0 hours 0 mins 0 secs
Error occurred at: 05/14/13, 10:01:13
Error description: Error TOleAuto/65535 : TOLEAUTO:NEW
Args:
[ 1] = C Outlook.Application
[ 2] = U
[ 3] = U

Stack Calls
===========
Called from: => THROW( 0 )
Called from: source\rtl\win32ole.prg => TOLEAUTO:NEW( 0 )
Called from: source\rtl\win32ole.prg => CREATEOBJECT( 0 )
Called from: teste.prg => MAIN( 5 )

System
======
CPU type: AMD Phenom(tm) II X4 820 Processor 2817 Mhz
Hardware memory: 3072 megs

Free System resources: 90 %
GDI resources: 90 %
User resources: 90 %

Windows total applications running: 10
1 , C:\Program Files\Avira\AntiVir Desktop\avgnt.exe
2 , C:\Program Files\Windows Live\Mail\wlmail.exe
3 , C:\Users\Joao\AppData\Local\Google\Chrome\Application\chrome.exe
4 , C:\Windows\Explorer.EXE
5 Advanced Spyware Remover, C:\Program Files\IObit\Advanced Spyware Remover\ASRtray.exe
6 CiceroUIWndFrame, C:\Windows\system32\taskhost.exe
7 DWM Notification Window, C:\Windows\system32\Dwm.exe
8 MSCTFIME UI, C:\Windows\system32\conhost.exe
9 Prompt de Comando - buildx teste, C:\Windows\system32\cmd.exe
10 TaskEng - Processo de Mecanismo do Agendador de Tarefas, C:\Windows\system32\taskeng.exe

Variables in use
================
Procedure Type Value
==========================
THROW
Param 1: O Class: ERROR
Local 1: U
Local 2: U
TOLEAUTO:NEW
Param 1: C "Outlook.Application"
Param 2: U
Param 3: U
Local 1: O Class: TOLEAUTO
Local 2: O Class: ERROR
CREATEOBJECT
Param 1: C "Outlook.Application"
Local 1: U
MAIN
Local 1: U
Local 2: U
Local 3: U
Local 4: U
Local 5: U

Linked RDDs
===========
DBF
DBFFPT
DBFBLOB
DBFNTX

DataBases in use
================

Classes in use:
===============
1 ERROR
2 HASHENTRY
3 HBCLASS
4 TOLEAUTO
5 HBOBJECT
6 TREG32

Memory Analysis
===============
163 Static variables

Dynamic memory consume:
Actual Value: 0 bytes
Highest Value: 0 bytes


Do you have Outlook installed on your computer ?

Antonio Linares wrote:Do you have Outlook installed on your computer ?

No. Windows Live Mail de Windows 7 (seven)

Noo ejiste outlook para windows 7 e si windows live mail.

regards, saludos.

Gracias Antonio.

Funciona perfecto.

Saludos,

Adhemar

Antonio

En algunos Outlook el folder se llama: Bandeja de entrada y en otros Inbox

Como preguntar para saber como está escrito y no de error?

Gracias

Saludos,

Adhemar

Adhemar,

No se si será posible localizar esa carpeta por su nombre, porque además pueden existir varias cuentas. En mi caso, para hacer el ejemplo, di de alta mi cuenta de correo y creo una carpeta con mi email, por eso en el ejemplo uso mi email (que es la carpeta en donde Outlook ha puesto mi correo).

Supongo que podremos listar todos los nombres y compararlos con algo determinado como "Inbox", "Bandeja de entrada", etc.

Prueba con olsn:Folder( n ):Count y olns:Folder( n ):name en un bucle for...

y a su vez puedes revisar las subcarpetas con olsn:Folder( n ):Folders:Count y olsn:Folder( n ):Folders( y ):Name

Gracias Antonio

Hice como me indicas

Code: Select all  Expand view

 For n:=1 to 7
           ?olns:Folder( n ):Count
           ?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

probanste con (s)

Code: Select all  Expand view

?olns:Folders( n ):Count

Supongo que podria funcionar asi:

Code: Select all  Expand view

oFolder := oUserFolder:Folders( "Bandeja de entrada" )
IF oFolder == NIL
   oFolder:= oUserFolder:Folders( "Inbox" )
   IF oFolder == NIL
       MsgInfo("¿ Cómo diantres era tu nombre ?")
   ENDIF
ENDIF

Aunque tambien se puede hacer asi:

Code: Select all  Expand view

oOutLook:= CreateObject("OutLook.Application")
oNameSpace:= oOutLook:GetNameSpace("MAPI")
oNameSpace:Logon()
oFolder:= oNameSpace:GetDefaultFolder(6)

Gracias Distinguidos

Lo solucioné así:

Code: Select all  Expand view

   oFolder := oUserFolder:Folders( 2 ) //Bandeja de entrada/Inbox
 

El:
1 Eliminados
2 Bandeja de entrada
3 Bandeja de salida
4 Enviados
5 Borradores

Saludos,

Adhemar