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 ---------------------------

 

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

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.

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

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