Inicio MS / Office VBScript  – Guardar los archivos adjuntos catalogado por remitente y Eliminar adjunto del Correo

VBScript  – Guardar los archivos adjuntos catalogado por remitente y Eliminar adjunto del Correo

201
5
COMPARTIR


El siguiente VBScript es una variante de los publicados en el articulo “VBScript – Guarda los archivos adjuntos dentro de la carpeta del Remitente catalogado con fecha” Este VBScript crea una carpeta para cada remitente y va catalogando los archivos adjuntos dentro de carpetas por fecha y va eliminando los archivos adjuntos de los correos recibidos.

Respondiendo al comentario

Instrucciones de Uso

1.- Abrir el editor de Visual Basic (ALT+F11).

2.- Insertar un modulo nuevo (Insert > Module).

3.- Copiar el código VBScript.

4.- Guardamos y básicamente podria ser lo único requerido, pero podemos editar la ruta donde se crearan los directorios en la linea 17.

5.- Ahora debemos crear la regla que ejecute el Script cuando cumpla las condiciones.

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

5 Comentarios

  1. Hola me gustaría mucho tu pagina, pregunta realice una macro en Excel para enviar correos masivos hay una forma de como eliminar Los correos enviados desde la macro que los envia? Me seria de mucha ayuda si me dieras una idea de como empezar

    • Buen dia Alberto!

      Puedes indicar en el macro que se elimine el correo despues de enviar con la propiedad MailItem.DeleteAfterSubmit

      instancia.DeleteAfterSubmit = valor (True/False)

      Nos comentas los resultados

      Saludos.

  2. no me lo acepta ya le puse la variable que declaro por ejemplo

    Mailapp.DeleteAfterSubmit = True
    y no me deja
    asip es como tengo mi parte del correo
    for i= 1 To variable de correos

    With Mailapp
    .To =”correo”
    .Subject = “hola”
    .HTMLBody= Aqui pongo lo que lleva el cuerpo del correo
    .Send
    Segun yo deberia de ir aqui pero me sale error de compilacion
    End With
    next i

    llevo como una semana aprendiendo este lenguaje y me esta gustando pero aun no se mucho de como utilizar sus propiedades no se si me puedas orientar mas

  3. jajajaja, ya vi cual era mi error al era antes del .send poner

    .DeleteAfterSubmit = true

    Gracias por darme una idea… en verdad me sirvió de mucho.

    • Buen dia Alberto,

      Me alegra que hayas encontrado la solución y que te funcionara, cualquier consulta aqui estamos, no creas que Visual Basic es mi fuerte pero lo poco que se lo estaré compartiendo :).

      Saludos.

Deja un comentario...