Visual Basic - Codigo para enviar un email automaticamente

Life is soft - evento anual de software empresarial
   
Vista:
Imágen de perfil de HLeal

Codigo para enviar un email automaticamente

Publicado por HLeal (2 intervenciones) el 24/06/2015 17:03:37
Hola... conoceran algun codigo parra email automaticamente todos los dias?
Gracias de antemano...



pd;;;; saben si podemos modificar los mensajes que ya hemos enviado aqui en el foro anteriormente? Necesito cambiar un dato de mi codigo que puse en un mensaje anterior...

Si no me gustaria eliminarlo y generar otro mensaje correctamente...

Gracias de nuevo
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
Imágen de perfil de Andres Leonardo

Codigo para enviar un email automaticamente

Publicado por Andres Leonardo (698 intervenciones) el 24/06/2015 18:08:48
Yo hice uno que envia con mis credenciales de Outllok... tu deseas eso o que sea de un sender que no es tuyo??

Para el envio es una tarea programada que invoka un exe

Saludos.
Andres
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

Codigo para enviar un email automaticamente

Publicado por Jorge (13 intervenciones) el 31/08/2015 23:21:11
Hola Andrés.
Oye no tienes un código en VB6 para realizar esa función?
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
Imágen de perfil de Andres Leonardo

Codigo para enviar un email automaticamente

Publicado por Andres Leonardo (698 intervenciones) el 01/09/2015 00:42:01
Si claro
Debes ir a Referencias y escoger - Microsoft Outlook (version desde la 11 a la 15) Outllok Lybrary

Y pones este codigo para enviar -- automatico lo hago por que lo tengo en una tarea programada que lee el exe que me envia el correo todas las mañanas con una información cualquier duda me avisas.


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub sendmail()
On Error GoTo Eterror:
Dim strPath$, ColAttach  ' , OTLApp, OutlookItem, ColAttach
Dim OTLApp As New Outlook.Application
Dim OutlookItem As Outlook.MailItem
 
 
Set OTLApp = CreateObject("Outlook.Application")
Set OutlookItem = OTLApp.CreateItem(olMailItem)
OutlookItem.To = "correo@dominiocom"
OutlookItem.CC = los otros correos
'OutlookItem.BCC = Copia ocula
 
   'El Asunto del Correo
    OutlookItem.Subject = El correo del & " " & Format(Me.lblfecha.Caption, "YYYYMMDD")
 
 
    OutlookItem.Body = texto & vbCr & "Este Correo fue Generado a las " & Format(Time, "HH:MM:SS")
 
    Set ColAttach = OutlookItem.Attachments
 
            ColAttach.Add strPath, olByValue, C, "File Attachment"
 
    ' SI deseo que se muestre DISPLAY, caso contrario directo el SEND
    'OutlookItem.Display
    'OutlookItem.Send    
 
Eterror:
    'MsgBox Err.Description
 
End Sub
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

Codigo para enviar un email automaticamente

Publicado por Jorge (13 intervenciones) el 01/09/2015 23:25:16
Gracias Andrés. Yo estoy empezando con VB6. Estoy implementando un sistema sencillo de vigilancia. Esta parte la necesito para enviar automáticamente a una dirección de correo las fotografias que se generan a diferentes horas como parte del sistema de vigilancia que te comento.
Voy a ver cómo adapto esto que me envias, (seguramente te estaré molestando con dudas al respecto :D )
Mil 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

Codigo para enviar un email automaticamente

Publicado por Jorge (13 intervenciones) el 15/10/2015 23:14:11
Hola Andrès.
Mira estoy tratando de implementar el código para enviar automáticamente un E-Mail, pero no lo he logrado.
Tengo problemas al compilar, por ejemplo, con la "C" que està en la fila de "ColAttach.Add strPath, olByValue, C, "File Attachment"", y haciendo modificaciones logro compilar pero al ejecutar el programa me lleva a configurar el Outlook y se bloquea.
Yo habia supuesto que sòlo debìa cambiar la lìnea 10: OutlookItem.To = "correo@dominiocom", escribiendo la direcciòn de correo donde querìa que llegara la informaciòn y "File Attachment" con el path del archivo a enviar, pero no lo he logrado.
Disculpa que te moleste nuevamente.
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
Imágen de perfil de Andres Leonardo

Codigo para enviar un email automaticamente

Publicado por Andres Leonardo (698 intervenciones) el 15/10/2015 23:42:17
Hola Jorge tienes razon...

Primero configura una sesion de Outlook en esa maquina ...(ya que mi aplicacion es de usuario no de Servidor.... ) pero en todo caso podrias poner una sesion de outlook. intentalo me avisas.

Ademas en mi proyecto yo utilizo un codigo que me lee todos los archivos de una ruta para adjuntarlos

Set ColAttach = OutlookItem.Attachments

C = 1
For Each Archivo In temporal.Files 'Esta es la ruta
strPath = Archivo
ColAttach.Add strPath, olByValue, C, "File Attachment"
C = C + 1
Next Archivo

**Te adjunto toda la funcion nuevamente

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Sub sendmail()
On Error GoTo Eterror:
Dim strPath$, ColAttach
Dim OTLApp As New Outlook.Application
Dim OutlookItem As Outlook.MailItem
 
Set temporal = fs.GetFolder(App.Path & "\txt")     'La ruta donde estan los archivos ....
Set OTLApp = CreateObject("Outlook.Application")
Set OutlookItem = OTLApp.CreateItem(olMailItem)
'Rs.Close
OutlookItem.To = "username@dominio.com"
    OutlookItem.Subject = "Titulo del Correo o Subject "
 
    OutlookItem.Body = "Texto que deseas enviar "
 
    'Esto es la rutina para adjuntar N Archivos y son los que estanen la ruta de arriba
    Set ColAttach = OutlookItem.Attachments
 
        C = 1
        For Each Archivo In temporal.Files
            strPath = Archivo
            ColAttach.Add strPath, olByValue, C, "File Attachment"
            C = C + 1
        Next Archivo
 
    OutlookItem.Display
    OutlookItem.Send
    End If
 
    'Esta parte es para que ya que las envie las Muevo a otra ruta .. tu podrias solo eliminarlo
    For Each Archivo In temporal.Files
        filename2 = App.Path & "\sent\" & Archivo.Name
        strPath = Archivo
        Set fs = CreateObject("Scripting.FileSystemObject")
        fs.CopyFile Archivo, filename2
        Kill Archivo
    Next Archivo
 
 
Eterror:
    'MsgBox Err.Description
    XError = True
 
End Sub
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

Codigo para enviar un email automaticamente

Publicado por Jorge (13 intervenciones) el 20/10/2015 22:46:49
Gracias Andrés. Voy a hacer las modificaciones a ver què pasa. Es lo ùnico que me falta y ya me anda carrereando el cliente :)
Saludos.
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

Codigo para enviar un email automaticamente

Publicado por Jorge (13 intervenciones) el 26/10/2015 19:39:21
Hola Andrés.
Pues fíjate que esto no quiere funcionar :(
Cargué la referencia de Outlook, utilizo el último código que enviaste y... nada. No pasa absolutamente nada.
Disculpa las molestias,
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

Codigo para enviar un email automaticamente

Publicado por Juan Gilberto (277 intervenciones) el 27/10/2015 18:05:51
Deberias de publicar tu codigo... La solucion que te da Andres si funciona

Lo unico que debes de tener en cuenta es que en la pc donde lo quieras ejecutar debe de funcionar el MS Outlook y debe de existir al menos una cuenta de correo dada de alta
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

Codigo para enviar un email automaticamente

Publicado por Jorge (13 intervenciones) el 04/11/2015 23:42:21
Hola Juan Gilberto, gracias por contestar. Sí, seguramente debo estar cometiendo por ahí algún error, como comentaba al principio aun soy novato en VB, vengo del NetCobol, que aunque tiene un formato prácticamente igual a VB, aquí hay algunas funciones que no he encontrado allà. Voy a seguir intentándolo. Es lo único que me falta para terminar esta aplicación.
Gracias nuevamente.
Saludos Andrès.
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

Codigo para enviar un email automaticamente

Publicado por Jorge (13 intervenciones) el 05/11/2015 20:35:43
Hola, este es el código que estoy utilizando.
Eliminé el "End If" de la línea 18.
Cargué la Referencia "Microsoft Outlook 12.0 Object Library".
En un equipo en el que Outlook funciona y hay por lo menos una cuenta registrada, si hay un archivo .txt en el directorio donde tengo instalada la aplicación, este código debería funcionar???

Gracias de antemano.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub sendmail()
On Error GoTo Eterror:
Dim strPath$, ColAttach
Dim OTLApp As New Outlook.Application
Dim OutlookItem As Outlook.MailItem
 
Set temporal = fs.GetFolder(App.Path & "\txt")
Set OTLApp = CreateObject("Outlook.Application")
Set OutlookItem = OTLApp.CreateItem(olMailItem)
 
OutlookItem.To = "jorge_torres_v2007@hotmail.com"
 
OutlookItem.Subject = "Sistema Tienda 1"
 
OutlookItem.Body = "Horario Nocturno"
 
Set ColAttach = OutlookItem.Attachments
 
C = 1
For Each Archivo In temporal.Files
    strPath = Archivo
    ColAttach.Add strPath, olByValue, C, "File Attachment"
    C = C + 1
Next Archivo
 
OutlookItem.Send
 
Eterror:
    XError = True
 
End Sub
 
 
Private Sub Command1_Click()
sendmail
 
End Sub
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

Codigo para enviar un email automaticamente

Publicado por Jorge (13 intervenciones) el 24/11/2015 20:03:40
Anybody there? ;(
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