Saltar al contenido

VBScript – Agregar numeros consecutivos en Asunto a los correos enviados Outlook

Valora la información: 1 estrella2 estrellas3 estrellas4 estrellas5 estrellas (Ninguna valoración todavía)
VBScript - Agregar numeros consecutivos en Asunto a los correos enviados OutlookCargando…

Hace poco nos consultaron para ver si existe una forma de poner un números consecutivos a los correos que se envían, no nos había tocado que nos solicitaran algo similar anteriormente, pero por medio de VBScript sabemos que algunas cosas se pueden personalizar o automatizar.

Código VBScript

Este código crea una llave de registro en la ruta de Outlook llamada Invoices (este ultimo se puede modificar si lo desean) [La idea de guardar la numeración en el registro fue tomada de poremsky], después de creada la llave de registro este inicializa en el campo iDefault en cero este se puede modificar si desean que comience en otra numeración (por ejemplo: 10000), después toma el valor que se encuentra en el registro y se lo agrega al Asunto de los correos enviados.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim intNumber As Long
    Dim sAppName As String
    Dim sSection As String
    Dim sKey As String
    Dim lRegValue As Long
    Dim iDefault As Integer
    sAppName = "Outlook"
    sSection = "Invoices"
    sKey = "Current Invoice Number"
    iDefault = 0
    lRegValue = GetSetting(sAppName, sSection, sKey, iDefault)
    If Item.Class = olMail Then
        If lRegValue = 0 Then lRegValue = iDefault
        SaveSetting sAppName, sSection, sKey, lRegValue + 1
        Item.Subject = "[" & CStr(lRegValue) & "] " & Item.Subject
        Item.Save
    End If
End Sub

 

Instrucciones de uso

  • Abrimos el Editor de Visual Basic [ALT+F11] (Ver: No abre el Editor de Visual Basic en Outlook)
  • Copiamos el código del script anterior.Outlook - numeros consecutivos
  • Si deseamos modificamos los valores de los campos sSection (Que es el nombre del registro) y iDefault (Que es la numeración donde comenzara por defecto se puso 0).
  • Guardamos y nuestros correos nuevos que enviemos comenzaran a tener la numeración.

Ejemplo:

En la siguiente imagen podemos ver como llegaron numerados nuestros correos.

Outlook - numeros consecutivos - ejemplo

Leer entrada anterior
Convertir XML a Excel ✅ Fácilmente (Importar XML a Excel sin programas)
Convertir XML a Excel ✅ Fácilmente (Importar XML a Excel sin programas)

Desde que la facturación electrónica entro marcha los contadores o personas que llevamos nuestra propia contabilidad nos vimos en la...

Cerrar