Visual Basic - Envio de correos con VB6

Life is soft - evento anual de software empresarial
   
Vista:

Envio de correos con VB6

Publicado por Antoni Masana@meff.com (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................ comercial@empresa.com
en lugar de...... mi_email@empresa.com

Gracias a todos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Envio de correos con VB6

Publicado por Antoni Masana (79 intervenciones) el 12/10/2010 08:57:43
Contestando a mi propia pregunta y por si hay alguien a quien le interese

-------------------------------------------------------------------------
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.SentOnBehalfOfName = Correo_De

objMailItem.To = Correo_Para
objMailItem.CC = Correo_CC
objMailItem.BCC = Correo_CCO

objMailItem.Body = "Enviados los siguentes ficheros:" + vbCrLf + FTP_Files
objMailItem.Subject = "Ficheros enviados al Servidor"

objMailItem.BodyFormat = olFormatPlain
objMailItem.Send

Set objOutlook = Nothing
-------------------------------------------------------------------------

- ¿Puede verificar si el correo esta levantado antes de enviar un mensaje?

Esta linea: objMailItem.BodyFormat = olFormatPlain

En realidad no se para que sirve pero me envia el correo si lo tengo instalado aunque no tenga abierto el programa Outlook

-------------------

- ¿Hay alguna otra forma de hacerlo?

No tengo respuesta

-------------------

- ¿Se puede poner o cambiar el remitente?

objMailItem.SentOnBehalfOfName = Correo_De ' --- Origen
objMailItem.To = Correo_Para ' --- Destinatario
objMailItem.CC = Correo_CC ' --- Con Copia
objMailItem.BCC = Correo_CCO ' --- Con Copia Oculta
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Envio de correos con VB6

Publicado por ale (2 intervenciones) el 12/01/2011 07:15:56
como hago para enviar un archivo por mail?
el archivo suponete que se llama "C:\mi texto.txt"
bueno como hago para que ese archivo me lo manden a mi mail¿?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Envio de correos con VB6

Publicado por Jotch (1 intervención) el 22/03/2012 10:28:50
Hola, para ficheros adjuntos:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Dim objOutlook As Outlook.Application
Dim objMailItem As Outlook.MailItem
Dim objATCH As Outlook.Attachments
 
Set objOutlook = CreateObject("outlook.application")
Set objMailItem = objOutlook.CreateItem(olMailItem)
 
objMailItem.SentOnBehalfOfName =  Correo_De
objMailItem.To = destino
objMailItem.CC = Correo_CC
objMailItem.BCC = Correo_CCO
 
objMailItem.Body = Detalle
objMailItem.Subject = Asunto
If rutaAdjunto <> "" Then
    Set objATCH = objMailItem.Attachments
    objATCH.Add rutaAdjunto
End If
 
 
objMailItem.BodyFormat = olFormatHTML
objMailItem.Send
 
Set objOutlook = Nothing
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

RE:Envio de correos con VB6

Publicado por Elena (3 intervenciones) el 17/06/2013 12:21:15
Hola,

Me funciona perfectamente pero me pide abrir el Outlook al ejecutar:
Set objOutlook = CreateObject("outlook.application")

¿Sabéis cómo se puede hacer si abrirlo?

Gracias,
Elena
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Envio de correos con VB6

Publicado por Miguel (1 intervención) el 11/02/2014 19:56:54
Buen día:

Solicitando su apoyo, en mi caso no deseo cambiar el remitente sino solo el Nombre que se visualiza en el correo cuando este se envía.

Me pueden ayudar con eso por favor
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Envio de correos con VB6

Publicado por Alex (2 intervenciones) el 15/01/2015 16:20:29
Muy bueno... funciona perfecto.. muchas gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar