- Detalles
- Escrito por Francisco Oldani
- Categoría: Office
Tengo la costumbre de guardar todos o casi todos los correos. Esto tiene el inconveniente de que el archivo pst va creciendo mucho y manejar un archivo de 500 megas es ... digamos incómodo. Planteé la cuestón de cómo se podrían eliminar ciertos adjuntos sin eliminar el correo y nuestra compañera Marta (MVP de Office) me remitió a http://www.outlookcode.com/codedetail.aspx?id=70 Probé esa macro y funciona perfectamente. No tenéis más que copiar/pegar en un archivo .bas e importarlo directamente el OL 2003. Esta macro graba los adjuntos de los correos seleccionados a una carpeta del disco y luego elimina éste añadiendo una referencia en el correo. Sólo hice una ligera modificación para que si no se selecciona ninguna carpeta para guardar los adjuntos no haga nada. Otra cosa a tener en cuenta: si la extensión del adjunto está bloqueada por OL (por ejemplo .exe) se deberá desbloquear previamente.
Teniendo este código es relativamente sencillo modificar la macro a nuestro gusto. Por ejemplo, para que elimine los correos de cierto tamaño al cabo de cierto tiempo ... En fin, sólo hace falta un poco de imaginación y tirar de Google ;-)
Si lo deseáis podéis descargar el script ya hecho desde nuestra sección de descargas.
------------------------- NO COPIAR ESTA LINEA ---------------------------
Attribute VB_Name = "Módulo1"<br />Sub SaveAttachment()<br />'Declaration<br />Dim myItems, myItem, myAttachments, myAttachment As Object<br />Dim myOrt As String<br />Dim myOlApp As New Outlook.Application<br />Dim myOlExp As Outlook.Explorer<br />Dim myOlSel As Outlook.Selection</p>
<p>'Ask for destination folder<br />myOrt = InputBox("Destino de los adjuntos", "Guarda adjuntos", "C:\")</p>
<p>On Error Resume Next<br />If myOrt <> "" Then
'work on selected items
Set myOlExp = myOlApp.ActiveExplorer
Set myOlSel = myOlExp.Selection
'for all items do...
For Each myItem In myOlSel
'point on attachments
Set myAttachments = myItem.Attachments
'if there are some...
If myAttachments.Count > 0 Then
'add remark to message text
myItem.Body = myItem.Body & vbCrLf & "Adjuntos eliminados:" & vbCrLf
'for all attachments do...
For i = 1 To myAttachments.Count
'save them to destination
myAttachments(i).SaveAsFile myOrt & myAttachments(i).DisplayName
'add name and destination to message text
myItem.Body = myItem.Body & "Archivo: " & myOrt & myAttachments(i).DisplayName & vbCrLf
Next i
'for all attachments do...
While myAttachments.Count > 0
'remove it (use this method in Outlook XP)
myAttachments.Remove 1
'remove it (use this method in Outlook 2000)
'myAttachments(1).Delete
Wend
'save item without attachments
myItem.Save
End If
Next
End If
'free variables
Set myItems = Nothing
Set myItem = Nothing
Set myAttachments = Nothing
Set myAttachment = Nothing
Set myOlApp = Nothing
Set myOlExp = Nothing
Set myOlSel = Nothing
End Sub
------------------------- NO COPIAR ESTA LINEA ---------------------------
- Visto: 22331
- Detalles
- Escrito por monica
- Categoría: Office
El mundo de Microsoft Office nos permite personalizar nuestro entorno de trabajo, además de facilitarnos la labor con las diferentes aplicaciones, adaptándolas a nuestras necesidades. Si nos fijamos al abrir Word XP, vemos que al pie de la ventana tenemos lo siguiente:
Pag. 1 sec 1 1/1 A ( el tamaño de escritura, la linea en la que estamos, y el numero de pulsaciones exactas en la misma linea) pues bien, si con el ratón hacemos doble click sobre cualquiera de ellos, automáticamente nos muestra la ventana de buscar, reemplazar e ir a.
Luego tenemos en color gris muy clarito: GRB - MCA - EXT - SOB , si hacemos doble clic sobre el boton GRB nos abre y nos cierra de una manera mas rapida el diálogo Grabar Macro. Si le damos doble clic sobre el boton MCA, nos aparece arriba la barra de herramientas para controlar nuestros cambios en el documento. Doble clic para seleccionar un texto extenso en el boton EXT. Doble clic sobre SOB y este hará que todo lo que este al lado derecho del cursor que parpadea, se sobreescriba.
Y por último podemos configurar la revisión ortográfica del parrafo que tengamos seleccionado, con algún motor de corrección ortográfico diferente al predeterminado por defecto, y que podremos observar haciendo doble click en el apartado en el que nos muestra el idioma configurado
Poco a poco voy a poneros pequeños trucos, curiosidades, teclas de métodos abreviados, macros de una forma sencilla y fácil de entender con los que vais a poder disfrutar a la hora de trabajar con Windows y que lleguéis a conocer a fondo todas las herramientas que este sistema operativo nos brinda.
Un saludo,
May
- Visto: 21112
- Detalles
- Escrito por Marta
- Categoría: Office
En este artículo vamos a tratar de explicar qué son los modificadores de inicio, cuál es su propósito y cuando debemos usarlos.
Los modificadores de inicio nos permiten definir la forma en la que se carga un programa y pueden ser útiles para diagnosticar errores o bien para especificar parámetros concretos cuando se cargue dicho programa.
- Visto: 29186
- Detalles
- Escrito por Marta
- Categoría: Office
Si vamos al menú Insertar de Word vemos que una de las opciones que nos aparece en la lista desplegable es la de Autotexto que podríamos definir como una serie de elementos que se suelen usar frecuentemente, que suelen ser estandarizados y permiten la función Autocompletar. Si nos situamos a la altura de la entrada de Autotexto nos aparece al lado otro desplegable con las categorías predefinidas que trae Word, tales como Cierre, Saludo, Encabezado y Pie de página, etc.
Lo primero que deberíamos saber es que esas categorías se organizan por estilos y formatos y si seleccionamos un estilo en concreto (por ejemplo, Pie de página) y volvemos de nuevo a las opciones de Autotexto sólamente nos aparecerán aquellas referidas a ese estilo ("Autor, Página, Fecha", "Autor"...).
Se pueden agregar y eliminar elementos de esas entradas y se pueden crear nuevas categorías. Veamos cómo hacerlo
- Visto: 61169
- Detalles
- Escrito por Marta
- Categoría: Office
Eneste artículo trataremos de explicar cómo se crea una macro en Word y cómo se puede añadir un botón a la barra de herramientas de Word para ejecutarla con tan solo un clic.
La macro que he elegido es la siguiente:
Sub HPPSC2410()
Dim sImpresora as String
sImpresora = ActivePrinter
‘ Inserta el nombre de tu impresora
ActivePrinter = “hp psc 2400 series”
Application.PrintOut FileName:=""</span><br /><span class="q0">ActivePrinter = sCurrentPrinter
End Sub
- Visto: 36695
Página 8 de 9