Enviar correo con adjunto desde access por Oultook

Fabián: Ignoro la causa por la que me sale sugerida ésta pregunta, cuando al parecer va dirigida a Dante (mis saludos).

No obstante mira si te puede ser de utilidad éste ejemplo que tengo en Mediafire.

Un saludo >> Jacinto

Jacinto, muchas gracias este ejemplo esta de perlas, aunque todavía me cuesta adaptarlo al código que tengo, no se si me puedas dar una manito.

Este es el evento que me imprime todos los informes que necesito enviar, sin embargo como lo mencione antes no se como asociar el destinatario y su archivo respectivo.

Private Sub btnasignarhoras_Click()
If idprograma.Value > 0 Or idgrupo.Value > 0 Or horaslunes.Value > 0 Or horasmartes.Value > 0 Or horasmiercoles.Value > 0 Or horasjueves.Value > 0 Or horasviernes.Value > 0 Or horassabado.Value > 0 Or horasdomingo.Value > 0 Then
'Comando que actualiza los datos
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.RunCommand acCmdSaveRecord
DoCmd.RunCommand acCmdRefresh
Dim db As Database
Dim rs As Recordset
Dim rsl As Recordset
Dim strSQL As String
Dim DateFormat

DateFormat = Format(Now, "dd-m-yyyy")

Set db = CurrentDb
Set rs = db.OpenRecordset("ConsuCarne")

'Stop
Do Until rs.EOF
'strSQL = "idprograma=" & rs!idprograma & "and idgrupo=" & Me.idgrupo & " and id=" & Me.Id
DoCmd.OpenReport "Generar_Carnes", acViewReport, , "idprograma=" & rs!idprograma & "and idgrupo=" & Me.idgrupo & " and id=" & Me.Id & " AND Participante=" & rs!Participante
DoCmd.OutputTo acOutputReport, "Generar_Carnes", "PDFFormat(*.pdf)", CurrentProject.Path & _
"\Carné" & rs!Participante & " Programa " & idprograma & " " & DateFormat & ".pdf", False, , , acExportQualityPrint
DoCmd.Close acReport, "Generar_Carnes"
rs.MoveNext
Loop
rs.Close

Set rs = Nothing
'_______________________________________________________________________________________________________________________________________________________________________________________________________________
'Enviar el correo con el adjunto

Dim OutApp As Object 'Outlook.Application
Dim OutMail As Object 'Outlook.MailItem
Dim Asunto As String
Dim mensaje As String

'Abre Outlook
Set OutApp = CreateObject("Outlook.Application")
'Crea el mensaje
Set OutMail = OutApp.CreateItem(0)

Asunto = "Carné para el registro de asistencia al programa: " & Me.txtnombreprograma.Value & " ID: N° " & Me.idprograma.Value
mensaje = "Estimado(a) participante," & vbCrLf & vbCrLf & "En el archivo adjunto encontrará el carné que debe utilizar para registrar su asistencia a través de los lectores que se encuentran habilitados en los pisos 5° y 6°del Edificio Fernando Barón. El Certificado de asistencia será elaborado a partir del registro en los lectores, por lo tanto es importante realizar este proceso en cada una de las sesiones presenciales programadas." & vbCrLf & vbCrLf _
& "El registro de asistencia debe realizarse una vez por sesión; y lo puede realizar desde su celular o traer el carné impreso." & vbCrLf & vbCrLf _
& "Nota: Si su dispositivo electrónico cuenta con protector de pantalla como Vidrio Templado o Película Anti espía, se recomienda traer impreso el carné para evitar problemas de lectura sobre su dispositivo móvil." & vbCrLf & vbCrLf & vbCrLf & vbCrLf & "Cordialmente, "

With OutMail
.To = "[email protected]"
.CC = ""
.BCC = ""
.Subject = Asunto
.Body = mensaje
'Se pueden adjuntar ficheros
'.Attachments.Add = [ConsuCarne]![Fichero] & ".pdf"
'.Display 'tambien se puede usar .Send y lo situa en la bandeja de salida
.Send
End With

Set OutMail = Nothing
Set OutApp = Nothing
Else
MsgBox "Completar los datos", vbInformation, "ADVERTENCIA"
End If
End Sub

Fabián: En un análisis superficial de tu código, lo que veo es que el código de envío lo tienes totalmente desconectado del que genera el informe. Si te fijas en el ejemplo, la llamada al "envío" esta después del >> DoCmd.Close... y antes del >> .MoveNext.

'Lo envío por email según lo seleccionado
EnviarMensajeOutlook StrAsunto:="Su Lista de Precios", StrMensaje:="Adjunto Lista de Precios", StrPara:=Rst!eMail, StrAdjuntos:=StrArchivo

Con eso te quiero decir, que puedes:

1.- Meter todo el código que tienes después de las líneas continuas entre tus dos >>

DoCmd.Close acReport, "Generar_Carnes"

'Aquí el Código
Rs. MoveNext

2.- Hacer un procedimiento aparte, y llamarlo >> Desdede donde pongo>> 'Aquí el Código

En cualquiera de los casos, el correo donde pones >> "[email protected]", debería de ser el valor de un Campo del recordset, recogido en una variable y poner >>

.To = El Correo

No he mirado en detalle tus líneas de código, pero si te funciona para 1 debe funcionarte para todos.

Espero que eso pueda ayudarte. Un saludo >> Jacinto

Buena noches jacinto, trate de seguir tus indicaciones sin embargo todavía soy muy novato y no logre enlazar la parte del envió de correo. :( Me podrías dar una manito más.

Fabián: Si puedo y se encantado con ayudarte.

La mejor solución sería que me enviases tu BD, si es que no tienes datos confidenciales, y si los tienes, que dejes varios, pero inventados.

Si decides ésta opción, puedes enviarme un fichero comprimido a [email protected]

Otra solución es que tome tu código e ir analizandolo y adaptandolo, pero me llevará más tiempo y ando escaso del mismo. Ya me comentarás. Un saludo >> Jacinto

Hola Jacinto, muchas gracias por tu ayuda revisando un poco el código, logre realizar lo de todas maneras mil gracias de pronto más adelante necesite nuevamente una consulta y espero poder contar con la ayuda de ustedes.

Nuevamente mil gracias.

Hola Jacinto, quiero hacerte una consulta

de primera mano gracias por los aportes que me has dado me han servido muchísimo.

En el proceso anterior funciona muy bien sin embargo me acaba de surgir un error y no se cual es la mejor forma de corregir, el error es el siguiente "no se pueden abrir más bases de datos. (error 3048)" esto es debido a que la consulta que se realiza para hacer el informe incluye muchas tablas, sin embargo alcanza a realizar 10 informes y enviarlos pero si seleccionamos mas destinatarios sale el error. que puedo hacer para que pueda enviar por lo menos 100 destinatarios y no surja ese error.