2

Esa es la cuestión, necesito que un archivo "x" se envíe por correo a una hora "y" lo que tengo es esto, pero es solo para enviar texto plano:

Sub Item_PropertyChange(ByVal Name)
   Select Case Name
   Case “Status”
           if Item.Status = 2 then ‘2 = Completed
                   Set NewItem = Application.CreateItem(0)
                   NewItem.To = “[email protected]”
                   NewItem.Recipients.ResolveAll
                   NewItem.Subject = “ASUNTO”
                   NewItem.Body = “Cuerpo mensaje.”
                   NewItem.Display
           End IF
   End Select
   End Sub

2 respuestas 2

1

Aparte de las ideas de crear un servicio de windows

Introducción a las aplicaciones de servicios de Windows

debes poder planificar la tarea para que aplique el scheduler con una librería como ser

Task Scheduler Engine

de esta forma no tiene que usar un timer


Otra alternativa sería usando el Windows Task Scheduler

Task Scheduler Managed Wrapper

Con este podrías definir tareas directo en windows

0

Para que este corriendo el programa puedes:

  1. Tener un servicio de windows o

  2. Tener un programa corriendo en el system tray (son las aplicaciones que estan corriendo junto al reloj del sistema)

Para programar un servicio de windows te puedes basar en este tutorial

Para crear una aplicación en el system tray

O mejor aún, combinarlos

Finalmente para enviar correos con archivos adjuntos te puedes basar en este código

En esta parte es donde se esta adjuntando el archivo

If FileExists(AttachmentFile) Then _
             .Attachments.Add(AttachmentFile)

En el código no viene la parte de las credenciales para el sevidor SMTP, pero básicamente es:

SMTP_Client_instance = New System.Net.NetworkCredential(usuario, password)

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.