Envio de correos con VB6
Publicado por Antoni [email protected] (79 intervenciones) el 07/10/2010 10:23:47
Tengo un programa que envia un correo despues de enviar un fichero por FTP, con las instrucciones que pongo a continuación:
-------------------------------------------------------------------------
Dim objOutlook As Outlook.Application
Dim objMailItem As Outlook.MailItem
On Error GoTo Final
Set objOutlook = CreateObject("outlook.application")
Set objMailItem = objOutlook.CreateItem(olMailItem)
objMailItem.To = FTP_Correo
objMailItem.Body = "Enviados los siguentes ficheros:" + vbCrLf + FTP_Files
objMailItem.Subject = "Ficheros enviados al Servidor"
objMailItem.Send
Set objOutlook = Nothing
-------------------------------------------------------------------------
Funciona bien siempre y cuando el programa de:
"Correo electronico de Microsoft Office Outlock"
que utilizamos en la empresa se este ejecuantando, de lo contrario me da un error.
Mis preguntas
- ¿Puede verificar si el correo esta levantado antes de enviar un mensaje?
- ¿Hay alguna otra forma de hacerlo? Encontre una pero necesitaba una cuenta en GMail
- ¿Se puede poner o cambiar el remitente? Pone el de la persona que envia el correo y quisiera que fuese el del departamento.
Ejemplo
Poner................ [email protected]
en lugar de...... [email protected]
Gracias a todos.
-------------------------------------------------------------------------
Dim objOutlook As Outlook.Application
Dim objMailItem As Outlook.MailItem
On Error GoTo Final
Set objOutlook = CreateObject("outlook.application")
Set objMailItem = objOutlook.CreateItem(olMailItem)
objMailItem.To = FTP_Correo
objMailItem.Body = "Enviados los siguentes ficheros:" + vbCrLf + FTP_Files
objMailItem.Subject = "Ficheros enviados al Servidor"
objMailItem.Send
Set objOutlook = Nothing
-------------------------------------------------------------------------
Funciona bien siempre y cuando el programa de:
"Correo electronico de Microsoft Office Outlock"
que utilizamos en la empresa se este ejecuantando, de lo contrario me da un error.
Mis preguntas
- ¿Puede verificar si el correo esta levantado antes de enviar un mensaje?
- ¿Hay alguna otra forma de hacerlo? Encontre una pero necesitaba una cuenta en GMail
- ¿Se puede poner o cambiar el remitente? Pone el de la persona que envia el correo y quisiera que fuese el del departamento.
Ejemplo
Poner................ [email protected]
en lugar de...... [email protected]
Gracias a todos.
Valora esta pregunta
0
