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

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

 

Califica este articulo

Fernando O.

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.

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

  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.

  2. ayuda , funciona bien al momento de recibir los correos , pero cuando me contestan el correo , me genera otro folio , lo que no quiero es que vuelva a generar un folio cuando ya lo tengo , ojala me puedan apoyar

    • Buen dia Felo

      Se debe agregar un registro con Asunto, EntryID y folio asignado; de lo contrario si manejas gran cantidad de correos realizar una búsqueda en cada correo recibido no seria viable por el tiempo que le tomaría en realizar la búsqueda.

      Es el proceso del script, agrega un folio a cada correo recibido sin importar si es respuesta,
      Si deseas que realice la personalización del script puedes solicitar el servicio.

      Excelente dia.

Deja un comentario...

Compartir
Twittear
+1
Compartir
Pin
Stumble