Outlook

Apuntes de outlook 2007

Teclas rápidas

• Nuevo mail: Ctrl + M M mayúscula, es decir, Shift + M
• Nueva nota: Ctrl + N
• Nueva tarea: Ctrl + T
• Nuevo documento de office: Ctrl + H
• Nueva carpeta: Ctrl + E
• Ir a ficha de mails: Ctrl + 1
• Ir a calendario: Ctrl + 2
• Ir a ficha de contactos: Ctrl + 3
• Ir a ficha de tareas: Ctrl + 4
• Ir a ficha de notas: Ctrl + 5
• Ir a carpetas: Ctrl + 6
  

Guardar como, formatos

YYYY_MM_DD_HHmm_SENDER_RECEIVER__Subject.msg

YYYY_MM_DD_HHmm_SENDER_RECEIVER__Subject_ConAdjunto.msg

2013_10_29_1820_satercero_yo__Traspaso de almacen_ConAdjunto.msg

Macro para guardar

Todavía está en beta, no consigo seleccionar/crear el directorio de grabación.
Lo que hago ahora es pereguntar el ticket y después lo uso para grabar el correo empezando con ese número en una carpeta fija C:\WORK\AXAPTA_WORKING pero luego hay que moverlo a mano y queda guarro.

Function SaveMailHardDisk()
    Dim myApp           As Application
    Dim myNameSpace     As NameSpace
    'Dim tkNumber        As String
    Dim myItem          As Object
    Dim myFileName      As String
    Dim path            As String
    Dim selectedItems As Selection
    
    tkNumber = InputBox("Ticket")
    path = "C:\WORK\AXAPTA_WORKING\"
       
    Set exp = ActiveExplorer
                   
    Set selectedItems = exp.Selection
            
    For i = 1 To selectedItems.Count
        Set myItem = selectedItems.item(i)
        myFileName = tkNumber & "_" & Format(myItem.CreationTime, "yyyy_mm_dd_hhnn__") & Left(myItem.SenderName, 8) & "__" & Left(myItem.ReceivedByName, 8) & "__" & myItem.Subject
        
        If myItem.Attachments.Count > 1 Then
            myFileName = myFileName & "__ConAdjunto"
        End If
        
        myFileName = Replace(myFileName, "/", "_")
        myFileName = Replace(myFileName, "\", "_")
        myFileName = Replace(myFileName, ":", "_")
        myFileName = Replace(myFileName, "?", "_")
        myFileName = Replace(myFileName, Chr(34), "_")
        myFileName = Replace(myFileName, "<", "_")
        myFileName = Replace(myFileName, ">", "_")
        myFileName = Replace(myFileName, "|", "_")
        
        MsgBox (myFileName)
        myItem.SaveAs path & myFileName & ".msg", olMSG
        MsgBox "Mail saved"
    Next i
End Function