** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Otros Productos Microsoft
  Mensajes nuevos Mensajes nuevos RSS - Ayuda en outlook
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoAyuda en outlook

 Responder Responder Página  <123>
Autor
Mensaje
Axl666 Ver desplegable
Colaborador
Colaborador


Unido: 18/Octubre/2005
Localización: Mexico
Estado: Sin conexión
Puntos: 858
Enlace directo a este mensaje Enviado: 14/Noviembre/2007 a las 16:57
Hice lo que me comentas de escribirla y apretar F1, y aprace una ventana diciendo que no existe.
 
Gracias por contestar. 
 


Editado por Axl666 - 14/Noviembre/2007 a las 16:57
Arriba
Axl666 Ver desplegable
Colaborador
Colaborador


Unido: 18/Octubre/2005
Localización: Mexico
Estado: Sin conexión
Puntos: 858
Enlace directo a este mensaje Enviado: 14/Noviembre/2007 a las 17:45
Y tengo otra duda, en la imagen que te pongo encerre en un circulo rojo mis buzones de entrada:
 
A) El numero 1 es donde caen mis correos
 
B) El numero 2 en donde quiero que se guarde epecificamnte en la carpeta que dice Cesar
 
Hasta ahorita lo que he podido hacer es guardar mis correos en el buzon de entrada 1 especificamente en la carpeta "Orsonello".
 
Pero lo que quiero hacer es guardar mi correo en el buzon de entrada 2 especificamente en la carpeta "Cesar", me podrias ayudar.
 
 
 
Gracias por tu atención.
 
 
 
 
 


Editado por Axl666 - 20/Noviembre/2007 a las 19:11
Arriba
Jordi-Albert Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 06/Abril/2006
Localización: Alemania
Estado: Sin conexión
Puntos: 4315
Enlace directo a este mensaje Enviado: 14/Noviembre/2007 a las 17:56
son mensajes diferentes y deberían ir en hilos diferentes...
 
Nota: no se ve la imagen
 
nota2: cambia simplemente los nombres de las carpetas....
 
nota3: con respecto al F1, si no te ha funciondo, siempre tienes la opcion de san google.
 
de todas maneras ya te he puesto como funciona la funcion
Arriba
Axl666 Ver desplegable
Colaborador
Colaborador


Unido: 18/Octubre/2005
Localización: Mexico
Estado: Sin conexión
Puntos: 858
Enlace directo a este mensaje Enviado: 14/Noviembre/2007 a las 18:03

Te pido una disculpa.

Lo que me comentas de:
 
Application.OnTime Now + TimeValue("00:00:15"), "acomoda"
La verdad no se en que parte del codigo debo meterlo.
 
Gracias por contestar y una vez mas me disculpo.
 
Arriba
Jordi-Albert Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 06/Abril/2006
Localización: Alemania
Estado: Sin conexión
Puntos: 4315
Enlace directo a este mensaje Enviado: 14/Noviembre/2007 a las 18:11
justo despues de ejecutar tu código puedes poner la instruccion
 
Application.OnTime Now + TimeValue("00:20:00"), "nombredetufuncion"
siendo en este caso 00:20:00 los minutos a dejar pasar y nombredefuncion el nombre de tu própia funcion....
 
puedes llamarla desde donde quieras (y puede ser llamada desde la misma funcion de forma recurrente)
 
Arriba
Axl666 Ver desplegable
Colaborador
Colaborador


Unido: 18/Octubre/2005
Localización: Mexico
Estado: Sin conexión
Puntos: 858
Enlace directo a este mensaje Enviado: 14/Noviembre/2007 a las 18:18
Yo tengo esto en un modulo:
 

Function Acomoda()

  Dim myOlApp As New Outlook.Application
  Dim myNameSpace As Outlook.NameSpace
  Dim myInbox As Outlook.MAPIFolder
  Dim myDestFolder As Outlook.MAPIFolder
  Dim myItems As Outlook.Items
  Dim myItem As Object
  Dim Lcon01 As Long
 
  Set myNameSpace = myOlApp.GetNamespace("MAPI")
  Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
  Set myItems = myInbox.Items
  Set myDestFolder = myInbox.Folders("orsonello")
  Set myItem = myItems.Find("[CreationTime] < '" & Format(DateAdd("n", -20, Now), "dd/mm/yyyy hh:nn AMPM") & "'")
  'Set myItem = myItems.Find("[LastModificationTime] < '" & "Lunes" & " " & Format(DateAdd("n", -20, Now), "ddddd h:nn AMPM") & "'")
  Debug.Print myItems.Count
  Debug.Print Format(DateAdd("n", -20, Now), "dd/mm/yyyy hh:nn AMPM")
  Lcon01 = 0
  While TypeName(myItem) <> "Nothing"
   
    Lcon01 = Lcon01 + 1
    Debug.Print TypeName(myItem)
    'myItem.Move myDestFolder
    Set myItem = myItems.FindNext
    'Debug.Print myItem
  Wend
 
Application.OnTime Now + TimeValue("00:20:00"), "Acomoda"
 
End Function
 
Lo que no se es; desde donde tengo que llamar a la funcion, tal vez paresaca tonta la pregunta pero no se como llamarla para que se ejecute cada 20 minutos la funcion.
 
Y gracias por contestar.
Arriba
Jordi-Albert Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 06/Abril/2006
Localización: Alemania
Estado: Sin conexión
Puntos: 4315
Enlace directo a este mensaje Enviado: 14/Noviembre/2007 a las 18:45
no tienes que llamarla cada 20 minutos....
 
simplemente, tal y como la tienes, debes llamarla UNA SOLA vez y ella misma se llamará cada 20 minutos....
 
Arriba
Axl666 Ver desplegable
Colaborador
Colaborador


Unido: 18/Octubre/2005
Localización: Mexico
Estado: Sin conexión
Puntos: 858
Enlace directo a este mensaje Enviado: 14/Noviembre/2007 a las 18:55
ok, pero en que parte pongo ese codigo para que se inicie cuando entre a outlook.
 
Y gracias por responder nuevamanete y disculpa por hacer tantas preguntas.
Arriba
Jordi-Albert Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 06/Abril/2006
Localización: Alemania
Estado: Sin conexión
Puntos: 4315
Enlace directo a este mensaje Enviado: 14/Noviembre/2007 a las 19:12
prueba con:
 
(del help)
 

Private Sub Application_Startup()
MsgBox "Welcome, " & Application.GetNamespace("MAPI").CurrentUser
Application.ActiveExplorer.WindowState = olMaximized
End Sub

Arriba
Jordi-Albert Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 06/Abril/2006
Localización: Alemania
Estado: Sin conexión
Puntos: 4315
Enlace directo a este mensaje Enviado: 14/Noviembre/2007 a las 19:17
atención, mirate este link (buscado en google con "outlook application_startup" )
 
 
o mejor aún:
 
 
la macro no se ejecutará a no ser que puedas certificarla o bien cambiar el nivel de seguridad


Editado por Jordi-Albert - 14/Noviembre/2007 a las 19:29
Arriba
Axl666 Ver desplegable
Colaborador
Colaborador


Unido: 18/Octubre/2005
Localización: Mexico
Estado: Sin conexión
Puntos: 858
Enlace directo a este mensaje Enviado: 14/Noviembre/2007 a las 20:44
Ya pude hacer que arrarncara al iniciar outlook.
 
Ahora me da error en la siguientes lineas en rojo:
 
Function Acomoda()

  Dim myOlApp As New Outlook.Application
  Dim myNameSpace As Outlook.NameSpace
  Dim myInbox As Outlook.MAPIFolder
  Dim myDestFolder As Outlook.MAPIFolder
  Dim myItems As Outlook.Items
  Dim myItem As Object
  Dim Lcon01 As Long
 
  Set myNameSpace = myOlApp.GetNamespace("MAPI")
  Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
  Set myItems = myInbox.Items
  Set myDestFolder = myInbox.Folders("dr. cinco")
  Set myItem = myItems.Find("[CreationTime] < '" & Format(DateAdd("n", -20, Now), "dd/mm/yyyy hh:nn AMPM") & "'")
  'Set myItem = myItems.Find("[LastModificationTime] < '" & "Lunes" & " " & Format(DateAdd("n", -20, Now), "ddddd h:nn AMPM") & "'")
  Debug.Print myItems.Count
  Debug.Print Format(DateAdd("n", -20, Now), "dd/mm/yyyy hh:nn AMPM")
  Lcon01 = 0
  While TypeName(myItem) <> "Nothing"
   
    Lcon01 = Lcon01 + 1
    Debug.Print TypeName(myItem)
    'myItem.Move myDestFolder
    Set myItem = myItems.FindNext
    'Debug.Print myItem
  Wend
 
 Application.OnTime Now + TimeValue("00:20:00"), "Acomoda"
 

End Function
 
A que se puede deber, y gracias por tu atención.
Arriba
Axl666 Ver desplegable
Colaborador
Colaborador


Unido: 18/Octubre/2005
Localización: Mexico
Estado: Sin conexión
Puntos: 858
Enlace directo a este mensaje Enviado: 14/Noviembre/2007 a las 23:59

Y por cierto espero que en este link puedas ver mi imagen, saludos.

 
Arriba
Axl666 Ver desplegable
Colaborador
Colaborador


Unido: 18/Octubre/2005
Localización: Mexico
Estado: Sin conexión
Puntos: 858
Enlace directo a este mensaje Enviado: 20/Noviembre/2007 a las 17:29
Ya pude hacer que arrarncara al iniciar outlook.
 
Ahora me da error en la siguientes lineas en rojo:
 
Function Acomoda()

  Dim myOlApp As New Outlook.Application
  Dim myNameSpace As Outlook.NameSpace
  Dim myInbox As Outlook.MAPIFolder
  Dim myDestFolder As Outlook.MAPIFolder
  Dim myItems As Outlook.Items
  Dim myItem As Object
  Dim Lcon01 As Long
 
  Set myNameSpace = myOlApp.GetNamespace("MAPI")
  Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
  Set myItems = myInbox.Items
  Set myDestFolder = myInbox.Folders("dr. cinco")
  Set myItem = myItems.Find("[CreationTime] < '" & Format(DateAdd("n", -20, Now), "dd/mm/yyyy hh:nn AMPM") & "'")

  Debug.Print myItems.Count
  Debug.Print Format(DateAdd("n", -20, Now), "dd/mm/yyyy hh:nn AMPM")
  Lcon01 = 0
  While TypeName(myItem) <> "Nothing"
   
    Lcon01 = Lcon01 + 1
    Debug.Print TypeName(myItem)
    'myItem.Move myDestFolder
    Set myItem = myItems.FindNext
    'Debug.Print myItem
  Wend
 
 Application.OnTime Now + TimeValue("00:20:00"), "Acomoda"
 

End Function
 
Ya busque en google y no se porque me da error, alguien me podria ayudar por favor y muchas gracias.
 


Editado por Axl666 - 21/Noviembre/2007 a las 01:57
Arriba
Jordi-Albert Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 06/Abril/2006
Localización: Alemania
Estado: Sin conexión
Puntos: 4315
Enlace directo a este mensaje Enviado: 21/Noviembre/2007 a las 18:36
puede ser (la verdad es que nunca lo he provado) que no puedas llamar a la misma funcion.
 
prueba modificando la llamada como
 
Application.OnTime Now + TimeValue("00:20:00"), "llamarAcomoda"
 
y creas la correspondiente funcion:
 
sub llamarAcomoda()
   call Acomoda
end sub
Arriba
Axl666 Ver desplegable
Colaborador
Colaborador


Unido: 18/Octubre/2005
Localización: Mexico
Estado: Sin conexión
Puntos: 858
Enlace directo a este mensaje Enviado: 21/Noviembre/2007 a las 19:11
Buscando en internet encontre que no existe el metodo Ontime en Outlook (la pagina esta en frances http://www.developpez.net/forums/archive/index.php/t-356948.html).
 
Pero dan la solucion mediante este codigo, pero no le entiendo muy bien ya que es en vbs,
 
 '##############DEBUT ###############
'By Oliv 29 juin 2007
'Lance une macro dans OUTLOOK
Dim theApp, theNameSpace, theMailItem
Set theApp = WScript.CreateObject("Outlook.Application")
On Error Resume Next
'ici on lance une macro du nom de toto dans Outlook.
Call theApp.Acomoda
Set theApp = Nothing
Set theNameSpace = Nothing
Set theMailItem = Nothing
'##############FIN##############################"
 
Y gracias por contestar.
Arriba
 Responder Responder Página  <123>
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable