gotzon
29 de Enero del 2004

Hola amigos. Antes de nada darles las gracias por hacer la comunidad fox un poco mas facil a todos.
Decirles que estoy intentando lo siguiente :
Ejecutar un programa que se recorra la bandeja de entrada de Outlook y de de alta tantos registros en la tabla como correos haya.
Como puedo acceder a la bandeja de entrada de Outlook ?.
Como puedo darlos de alta ?.
Gracias por todo de antemano
Un saludo

Kop.
29 de Enero del 2004

hola
con este codigo yo recorro la bandeja de entrada de outlook y pregunto si el asunto (MsgSubject) del correo es igual a una cadena predeterminada que tengo...si es correcto, pregunto si existe un archivo DBF adjunto :

Inicial = sys(5)+curdir()
Pgh = "f:produccion"

Origen = Pgh+""
oleMAPISession = createobject( "MSMAPI.MAPISession.1" )

With oleMAPISession
.UserName = ""
.Password = ""
.Signon()
If ( .SessionID > 0 )
oleMAPIMessages = createobject( "MSMAPI.MAPIMessages.1" )
oleMAPIMessages.SessionID = .SessionID
Else
Return
Endif
Endwith

X = 940 && en este caso comensare desde el correo 940.
contador = 1
With oleMAPIMessages
.Fetch()
For i = X to .MsgCount-1
.MsgIndex = i
Thisform.text1.value = .MsgSubject
Thisform.text2.value = .MsgDateReceived
IF SUBS(ALLT(thisform.text1.value),1,21) = "Información Terreno :" && pregunto si el asunto es = a un string
T_archivo = subs(.Attachmentpathname,len(.Attachmentpathname)-2,4)
If Upper(T_archivo) = "DBF" && pregunto si el archivo adjunto es un .DBF
vv = "'" + .Attachmentpathname + "'"
DestinoV = Origen+"TerrenoV"+ Subs(VV,Len(vv)-20,len(vv)-3)
DestinoV = subs(destinoV,1,len(destinoV)-1)
Copy File &VV to &DestinoV && creo el camino y copio el archivo adjunto del correo.
Endif
Endif
contador = contador + 1 && incremento para el siguiente correo.
Endfor
Endwith
oleMAPISession.Signoff() && cierra sesion del outlook


Kop.

Kop.
29 de Enero del 2004

mmm los tab para que se vea ordenado el codigo no se ven... :S