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

 

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.

6 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.

    • Hola felo, una alternativa semi-funcional sería que al crear la regla habilites la opción “excepto si el asunto o el cuerpo del mensaje contiene”….y ahí indicas el texto ‘RE:’ lo cual hace referencia a un correo que te están dando respuesta. En ese caso no se generaría nuevo número. Ya sería demasiada coincidencia si algún mensaje contuviera ese RE:

Deja un comentario...

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.

Compartir
Twittear
Pin
Más en Outlook VBScript
VBScript – Guardar los Archivos Adjuntos en Carpetas Especificas Automáticamente Outlook

VBScript – Guardar Correos Seleccionados en un Archivo TXT Outlook

VBScript – Guardar Correos Entrantes a una Carpeta en el Disco (.MSG) Outlook

Cerrar