Access - Envio de correos Access 2007 a traves del outlook

   
Vista:

Envio de correos Access 2007 a traves del outlook

Publicado por Francisco (7 intervenciones) el 10/01/2016 10:14:57
Buenos dias, tengo hecha una aplicacion de gestion en ms access 2007, en la cual genero correos con las facturas que tengo que enviar a los clientes. La idea es que al enviar los datos al outlook, me genere el correo en la carpeta bandeja de salida y el propio outllok automaticamente los envie. El problema es que al mandar los datos y generar el correo este se me crea en la carpeta borrador, con lo cual tengo que reenviar todos los correos manualmente uno a uno desde el outlook. ¿Alguien me podria indicar si en el codigo que les indico le falta algo para que los correos que genero vayan a la bandeja de salida?, Gracias

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
45
46
47
48
49
50
51
52
Do
  cCorrecto = vbNo
  Do
 
  If DCount("Nombre", "Admin", "Nombre= '" & rsCorreoFacturaTaller("empleado") & "'") > 0 Then
    Correo = DFirst("Email", "Admin", "Nombre= '" & rsCorreoFacturaTaller("empleado") & "'")
  Else
    cCorrecto1 = vbNo
    Do
      Correo = InputBox("ADMINISTRADOR SIN EMAIL. INTRODUZCA LA DIRECCION DE CORREO")
      cCorrecto1 = MsgBox("SON CORRECTOS ESTOS DATOS?", vbYesNo)
      If cCorrecto1 = vbYes Then
         Set rsAdmin = currentdb().OpenRecordset("ADMIN", dbOpenDynaset)
         rsAdmin.AddNew
         rsAdmin("NOMBRE") = rsCorreoFacturaTaller("empleado")
         rsAdmin("Email") = Correo
         rsAdmin.Update
      End If
    Loop While cCorrecto1 = vbNo
  End If
 
  Cabecera = InputBox("INTRODUZCA EL ASUNTO DEL CORREO PARA ADMINISTRADOR ")
  Mensaje = InputBox("INTRODUZCA EL MENSAJE QUE CONTENDRA EL CORREO PARA ADMINISTRADOR ")
  cCorrecto = MsgBox("SON CORRECTOS ESTOS DATOS?", vbYesNo + vbInformation)
Loop While cCorrecto = vbNo
 
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.To = Correo
.CC = ""
.BCC = ""
.Subject = Cabecera
.Body = Mensaje
 
'Se pueden adjuntar ficheros
'FOR MUEVE REGISTROS EN FUNCION DE NUMERO DE ADMINISTRADORES
  For N = 1 To DCount("EMPLEADO", "Venta_factura_taller", "EMPLEADO='" &         rsCorreoFacturaTaller("EMPLEADO") & "'") Step 1
    .   Attachments.Add mypath & "\" & (DFirst("NombreArchivoPDF", "Venta_factura_taller", "ENTRADA1_TA= " &   rsCorreoFacturaTaller("ENTRADA1_TA"))) & ".PDF"
       rsCorreoFacturaTaller.MoveNext
      ncontador = ncontador + 1
  Next N
  .Display ' aqui abro el outlook con el email creado
End With
 
Set OutMail = Nothing
Set OutApp = Nothing
If ncontador = rsCorreoFacturaTaller.RecordCount Then
Exit Do
End If
Loop
End If
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

Envio de correos Access 2007 a traves del outlook

Publicado por jose (741 intervenciones) el 12/01/2016 17:36:12
estuve mirando y no veo error en tu codigo, parecido lo tengo hecho en algunas aplicaciones y no da problemas

Has probado en vez de Dispaly poner SEND para ver si lo envia sin visulaizarlo?


otra solución es usar firefox
si te interesa, usa esta aportacion del Sabio de Access NECCKITO

http://siliconproject.com.ar/neckkito/index.php/component/content/article/95-ejemplos-explicados/ejemplos-de-codigo/308-plantilla-ejemplos
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