[adinserter name="Despues de Cabecera"]

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

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.
Leer:  VBScript - Respaldar o Copiar los Correos de Outlook a una Carpeta en el Disco Duro

Ejemplo:

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

Outlook - numeros consecutivos - ejemplo

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)

13
Deja una respuesta

avatar
 
Archivos de fotos e imágenes
 
 
 
Archivos de audio y video
 
 
 
Otros tipos de archivos
 
 
 
6 Hilos de comentarios
7 Respuestas de hilo
0 Seguidores
 
Comentario más reaccionado
Hilo de comentarios más caliente
6 Autores de comentarios
Yesenia HerrerafeloFernando O.victorPortal+Tips 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
Eduar Bolaños
Guest
Eduar Bolaños

Hola, excelente código. Funciona muy bien. Quisiera saber si es posible que el consecutivo se obtenga de un Excel que se auto incremento y este se encuentre en una carpeta compartida de un servidor. La necesidad es para aplicar este código en todos los usuarios de la empresa y es necesario que todos vayan con el mismo consecutivo y no individualmente. De antemano muchas gracias.

MELIZA
Guest
MELIZA

Buenos días,

Este código funciona muy bien, te comento estoy tratando de optimizar tiempo con un proceso que manejo, a diario se reciben aproximadamente 30 correos con diferentes formatos y asuntos, mensual debo sacar un informe de estadísticas en donde se especifiquen los correos procesados y el tiempo de respuesta, esto es muy tedioso ya que me toca ir llenando una base en Excel correo por correo, estoy intentando manejarlo en Access con una tabla vinculada a la carpeta de recibidos en Outlook y otra vinculada a la carpeta de Respuestas en Outlook, pero tengo el inconveniente de que existen muchos correos con asunto duplicado, entonces la consulta de Access se vuelve una locura y no me cuadra nada con nada, no se si seria posible aplicar esta misma numeración pero en los CORREOS RECIBIDOS de esta forma cada correo tendría un consecutivo para vincular.

Mil gracias!

victor
Guest
victor

amigo me parece exelente tu articulo, me podrias ayudar en algo, como podria hacer para que en todo correo que desee enviar me aparesca un algo como : Correo N° 0001 OFGD (oficina de gestion documental) te agradeceria

felo
Guest
felo

ayuda empezo funcionando bien y ahora ya no hace nada ?

felo
Guest
felo

LISTO YA SE SOLUCIONO GRACIAS

Yesenia Herrera
Guest

buenas tardes quizás existe la posibilidad de que en vez de que sea un numero consecutivo, le pida al usuario ingresar el numero. Por favor su ayuda

Compartir
Twittear
Pin
Más en Outlook VBScript
VBScript para guardar automáticamente archivos adjuntos Outlook 4
VBScript para guardar automáticamente archivos adjuntos Outlook

Cerrar