Envio de archivo

Hola Yuri,

Podes enviar un mail usando SMTP y adjuntando el archivo de log. Para este
caso no es necesario tener configurada una cuenta de E-Mail en la PC.
El tema pasa por saber que se entiende por finalizado el dia, como sabes
cuando finaliza el dia ?

Un Saludo, Víctor Koch



"Yuri Aponte" escribió en el mensaje
news:

Hola amigos

Una duda

Tengo una PC que almacena un log de auditoria de mi sistema en un archivo
de texto.

El gerente de la empresa desea que ese log se le envie al terminar el dia.
La Pc en cuestion no tiene configurada ninguna cuenta de correo, entonces
no puedo usar vbsendmail o si?

Es factible crear un programita oculto que llegado un momento guarde ese
archivo en alguna directorio de pagina web de la empresa.

Que me sugieren para enviar ese archivo al gerente de las operaciones del
dia sin que medie ninguna operacion por parte del usuario.

Saludos desde Lima-Peru

Yuri Aponte

De acuerdo con Victor. Si decides usar SMTP, solo
necesitas el ip del servidor de correo. Saludos, Saga

"Victor Koch" <v i c t o r (arroba)correo(punto)waldbott(punto)com(punto)ar>
wrote in message news:

Hola Yuri,

Podes enviar un mail usando SMTP y adjuntando el archivo de log. Para este
caso no es necesario tener configurada una cuenta de E-Mail en la PC.
El tema pasa por saber que se entiende por finalizado el dia, como sabes
cuando finaliza el dia ?

Un Saludo, Víctor Koch



"Yuri Aponte" escribió en el mensaje
news:

Hola amigos

Una duda

Tengo una PC que almacena un log de auditoria de mi sistema en un archivo
de texto.

El gerente de la empresa desea que ese log se le envie al terminar el
dia. La Pc en cuestion no tiene configurada ninguna cuenta de correo,
entonces no puedo usar vbsendmail o si?

Es factible crear un programita oculto que llegado un momento guarde ese
archivo en alguna directorio de pagina web de la empresa.

Que me sugieren para enviar ese archivo al gerente de las operaciones del
dia sin que medie ninguna operacion por parte del usuario.

Saludos desde Lima-Peru

Yuri Aponte

Incluye el controlador mail.ocx que es de dominio público. Luego ...



Private Sub Envia_Email(cMensaje As String, cDeQuien As String, cServidor As
String, Dim cFrom As String, cDestinatario As String, cAsunto As String,
cUsuario As String, cPassword As String )


Espera (5) ' Función que crea un retraso de n segundos Espera 5
segundos, si no, se queda pillado a veces.

With sendmail1
.FromDisplayName = cDeQuien
.SMTPHost = cServidor
.Remitente = cFrom
.Destinatario = cDestinatario
.Asunto = cAsunto
.Mensaje = cMensaje
.UsarLoginSMTP = True
.Usuario = cUsuario
.Password = cPassword
.Codificacion = MIME_ENCODE
.EnviarEmail
End With

End Sub

Gracias a todos

Final del dia se entiende si las labores terminan a las 06 de la tarde, el
gerente quiere que el aplicativo envie el archivo pasada esa hora. Podria
ser digamos a las 08 de la noche por si aca hay una demora en el cierre del
dia.

Ahora, Telerin, como adjunto el archivo?...

Saludos desde Lima-Peru

Yuri Aponte

"Telerín" <correoQUITAESTOtelenetinf.com> escribió en el mensaje de
noticias:#

Incluye el controlador mail.ocx que es de dominio público. Luego ...



Private Sub Envia_Email(cMensaje As String, cDeQuien As String, cServidor
As
String, Dim cFrom As String, cDestinatario As String, cAsunto As String,
cUsuario As String, cPassword As String )


Espera (5) ' Función que crea un retraso de n segundos Espera 5
segundos, si no, se queda pillado a veces.

With sendmail1
.FromDisplayName = cDeQuien
.SMTPHost = cServidor
.Remitente = cFrom
.Destinatario = cDestinatario
.Asunto = cAsunto
.Mensaje = cMensaje
.UsarLoginSMTP = True
.Usuario = cUsuario
.Password = cPassword
.Codificacion = MIME_ENCODE
.EnviarEmail
End With

End Sub

No lo he usado más allá de lo que he puesto. Prueba a ver si con

sendmail1.adjunto

puedes añadir un archivo, yo nunca lo he usado. Tiene un montón de
propiedades más.







"Yuri Aponte" escribió en el mensaje
news:

Gracias a todos

Final del dia se entiende si las labores terminan a las 06 de la tarde, el
gerente quiere que el aplicativo envie el archivo pasada esa hora. Podria
ser digamos a las 08 de la noche por si aca hay una demora en el cierre
del dia.

Ahora, Telerin, como adjunto el archivo?...

Saludos desde Lima-Peru

Yuri Aponte

"Telerín" <correoQUITAESTOtelenetinf.com> escribió en el mensaje de
noticias:#

Incluye el controlador mail.ocx que es de dominio público. Luego ...



Private Sub Envia_Email(cMensaje As String, cDeQuien As String, cServidor
As
String, Dim cFrom As String, cDestinatario As String, cAsunto As String,
cUsuario As String, cPassword As String )


Espera (5) ' Función que crea un retraso de n segundos Espera 5
segundos, si no, se queda pillado a veces.

With sendmail1
.FromDisplayName = cDeQuien
.SMTPHost = cServidor
.Remitente = cFrom
.Destinatario = cDestinatario
.Asunto = cAsunto
.Mensaje = cMensaje
.UsarLoginSMTP = True
.Usuario = cUsuario
.Password = cPassword
.Codificacion = MIME_ENCODE
.EnviarEmail
End With

End Sub