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

 

Leer:  VBScript - Guardar Archivos Adjuntos de Correos .MSG Ya Guardados en el Disco Duro
Fernando O.

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.
Fernando O.

Latest posts by Fernando O. (see all)

6
Deja una respuesta

avatar
 
Archivos de fotos e imágenes
 
 
 
Archivos de audio y video
 
 
 
Otros tipos de archivos
 
 
 
2 Hilos de comentarios
4 Respuestas de hilo
0 Seguidores
 
Comentario más reaccionado
Hilo de comentarios más caliente
4 Autores de comentarios
EnriqueFernando O.feloPortal+TipsMELIZA Autores de comentarios recientes

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

  Suscribir  
el más nuevo más antiguo más votado
Notificar de
MELIZA
Guest
MELIZA

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.

felo
Guest
felo

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

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