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
