Cuando exportamos un archivo pst de Outlook este nos guarda todas las configuraciones excepto las cuentas de correo que tuviésemos creadas. En versiones anteriores a la versión XP de Outlook se incluía un asistente para exportar dichas cuentas. A partir de la versión mencionada no tenemos ese asistente. Palel [MVP Outlook] descubrió la forma de hacerlo mediante el registro y lo explica en esta página. Lo único que yo he hecho ha sido un script que permite realizar esta tarea sin tener que "navegar" por el registro.Espero que os sea útil.

 

 

¿ Cómo crear un MACROBUTTON?

 

 

Un Macrobutton es un comando o código  de campo diseñado para ser ejecutado mediante  dos clic de ratón sobre el campo o bien mediante un clic y al realizar este clic el comando o código llama a una macro para automatizar una tarea. 

Office 2007 viene con un montón de iconos que en versiones anteriores podíamos extraer sin problemas y guardarlos en una carpeta para ser posteriormente utilizados. ¿Cómo se hace en la nueva versión de Microsoft para esta suite ofimática?, pues es muy sencillo. Mónica (may-tux) nos ha hecho un estupendo artículo de imprescincible lectura, con un xml y una macro curradísimos que persigue este objetivo. Además repasaremos como personalizar la Ribbon o Barra de Opciones, apoyándonos en un artículo ya escrito por nuestra compañera Marta. Espero que lo disfrutéis, lo tenéis disponible desde nuestra página amiga teladerana.es.

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