Ejecutar un cmdlet-powershell en Exchange 2010 desde cmd

Exchange 2010 soporta la versión de powershell 2.0
En esta versión de Powershell cambian algunos comandos, para empezar cambia la forma de ejecutar la extensión de la consola de exchange-powershell respecto a versiones anteriores.
Para llamar a un cmdlet de exchange 2010 desde la linea de comandos ejecutaremos la siguiente instrucción:
powershell.exe -command “.’C:\Program Files\Microsoft\Exchange Server\V14\bin\RemoteExchange.ps1′;  Connect-ExchangeServer -auto; C:\scripts\miscript.ps1”
donde “miscript.ps1″ es el cmdlet que quiero ejecutar en la ruta “c:\mis scripts”
saludos

Crear un botón personalizado en Outlook

Para crear un botón personalizado en Outlook que realice una acción con un atajo de teclado o que ejecute una macro asociada podemos seguir los siguientes pasos:

1-    Abrir Outlook y hacer click en la barra de herramientas Standard (la que contiene botones como enviar/recibir)

2-    Click en “personalizar”.

3-    En la pestaña “Comandos”, arrastrar un icono de cualquier menú a la barra de herramientas Standard.

4-    Seleccionar el icono que acabamos de arrastrar y con el botón derecho escoger la opción “Solo Texto (siempre)”.

5-    Seleccionar el icono que acabamos de arrastrar y cambiamos el valor del campo “Name” a  &X u otro atajo de teclado. (el valor & indica el atajo de teclado, en este caso Alt+X)

6-    En el campo “Name” también podemos colocar el nombre de la macro si la intención es que se ejecute una macro cada vez que hacemos click en el botón.

macro archivado de mensajes en un pst

El siguiente código permite  mover los mensajes de nuestra bandeja de entrada a una carpeta de nombre  “inbox” en un  fichero local pst de nombre ” archivado”.

————————————————————————————–

Sub archivado()
‘ Mover mensajes seleccionados a la carpeta “inbox” en “Personal Folder”
‘ alt+1

On Error Resume Next

Dim oApp As Outlook.Application
Dim objFolder As Outlook.MAPIFolder
Set oApp = New Outlook.Application
Set objFolder = oApp.GetNamespace(“MAPI”).Folders(“archivado”).Folders(“inbox”)
Dim oEmail As Outlook.MailItem

‘Assume this is a mail folder
If objFolder Is Nothing Then
MsgBox “Esta carpeta no existe !!!!”, vbOKOnly + vbExclamation, “INVALID FOLDER”
End If

If Application.ActiveExplorer.Selection.Count = 0 Then
‘Require that this procedure be called only when a message is selected
Exit Sub
End If

For Each objItem In Application.ActiveExplorer.Selection
If objFolder.DefaultItemType = olMailItem Then
If objItem.Class = olMail Then
objItem.Move objFolder
End If
End If
Next

Set objItem = Nothing
Set objFolder = Nothing
Set objInbox = Nothing
Set objNS = Nothing

End Sub