Inicio MS / Office

VBScript – Agregar número consecutivos en Asunto a los correos recibidos Outlook

2


Ultima Actualización del Artículo: Sep 27, 2016

El siguiente artículo es contestando a una consulta que nos realizo uno de nuestros usuarios; el código es una modificación del mostrado en el artículo VBScript – Agregar numeros consecutivos en Asunto a los correos enviados Outlook.

El siguiente VBScript agrega un número consecutivos en el asunto a los correos recibidos en Outlook, el cual almacena el consecutivo en una llave de registro.

Instrucciones de uso

1.- Abrimos el Editor de Visual Basic [ALT+F11] (Ver: No abre el Editor de Visual Basic en Outlook)

2.- Insertar un modulo nuevo (Insert > Module).

3.- Copiar el código VBScript.

4.- Podemos modificar los valores (Opcional) de los campos sSection (Que es el nombre del registro), sSection (El cual es el nombre de la llave) iDefault (Que es la numeración donde comenzara por defecto se puso 0).

5.- Guardamos

6.- Creamos la regla para los correos el cual se desea agregar el consecutivo.

Para mas información de configuración ver: Como utilizar el Editor VBA en Office (Utilizar Macros VBScript) y Outlook – Crear y configurar reglas

Código VBScript

Public Sub EmailSubjectSerialNumber(itm As Outlook.MailItem)
    Dim intNumber As Long
    'Dim Cancel As Boolean
    'Dim Item As Object
    Dim sAppName As String
    Dim sSection As String
    Dim sKey As String
    Dim lRegValue As Long
    Dim iDefault As Integer
    sAppName = "Outlook"
    sSection = "received"
    sKey = "Current received Number"
    iDefault = 0
    lRegValue = GetSetting(sAppName, sSection, sKey, iDefault)
    If itm.Class = olMail Then
        If lRegValue = 0 Then lRegValue = iDefault
        SaveSetting sAppName, sSection, sKey, lRegValue + 1
        itm.Subject = "[" & CStr(lRegValue) & "] " & itm.Subject
        itm.Save
    End If
End Sub

 

COMPARTIR
Mi nombre es Fernando, soy analista de sistemas actualmente trabajo en una empresa con mas de 200 empleados que utilizan equipo de computo al cual se les da soporte en el departamento. Uno de mis pasatiempos fuera de la empresa es escribir artículos para PortalMasTips donde documento los problemas, inquietudes y detalles interesantes que se presentan.

2 Comentarios

  1. Buen día!

    El código funciona perfecto!!! cree la regla para que se aplique a todos los correos recibidos y efectivamente ya no sufro generando el informe y adicional queda un numero de radicado con toda la trazabilidad del correo, en verdad te agradezco mucho todo el apoyo.

Deja un comentario...