Access - Enviar email con adjunto desde formulario

 
Vista:
sin imagen de perfil

Enviar email con adjunto desde formulario

Publicado por Alejandro Gomez (6 intervenciones) el 21/03/2022 14:23:51
Buenos días, necesito enviar un correo electrónico con un archivo adjunto desde un formulario. El archivo adjunto está dentro del registro activo en un campo del tipo Datos Adjuntos. Se trataría de adjuntar dicho archivo en el mensaje. Actualmente puedo enviar correos sin problemas, lo único que faltaría es adjuntar el archivo en cuestión.
El código que estoy utilizando es:
1
DoCmd.SendObject acSendNoObject, , "HTML (*.html)", "" & Me.email & "", , , , "Solicitamos precio y plazo de entrega para el suministro del siguiente material: " & vbCrLf & Me.descripcion & "", True
Creo que el asunto estaría en acSendNoObject pero no sé cómo resolverlo.
Gracias y un saludo 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
sin imagen de perfil
Val: 99
Ha mantenido su posición en Access (en relación al último mes)
Gráfica de Access

Enviar email con adjunto desde formulario

Publicado por Rafael (225 intervenciones) el 23/03/2022 19:50:07
Muy buenas.
te adjunto un código que tengo yo asociado a un botón de formulario que me envía un adjunto al registro que tengo en dicho formulario.
Lo envía a través de Outlook, para eso tendrás que configurarlos.
Espero que te sirva, a mi va genial:

'Requiere registrar las librería "Microsoft Outlook x.xx Object Library"
' Declara las variables
Dim Olk As Outlook.Application
Dim OlkMsg As Outlook.MailItem
Dim destinatario As String
Dim nombrearchivo As String
nombrearchivo = Me.Apellidos_Propietario

If IsNull(Me.Texto83) Then
MsgBox "Este propietario no dispone de correo electrónico"
Exit Sub
End If

destinatario = Me.Texto83
'Crea los objetos
Set Olk = CreateObject("Outlook.Application")
Set OlkMsg = Olk.CreateItem(olMailItem)
'Exporta el informe
DoCmd.OutputTo acOutputReport, "recibo_individual", acFormatPDF, "C:\USERS\RAFA\DESKTOP\Recibos Mail\" & nombrearchivo & ".pdf", False
'Añade los datos del mensaje y los adjuntos
With OlkMsg
.To = destinatario
.Subject = "Pago recibo"
.Body = "Para conocimiento y efectos, se adjunta Recibo Mensual de Comunidad con el sello de pagado."
.Attachments.Add "C:\USERS\RAFA\DESKTOP\Recibos Mail\" & nombrearchivo & ".pdf"
'.Display ' Muestra el mensaje para enviarlo "a mano" 'Si lo quieres enviar directamente, cambia esta linea por .Send
.Send
End With
' Destruye los objetos
Set OlkMsg = Nothing
Set Olk = 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
sin imagen de perfil

Enviar email con adjunto desde formulario

Publicado por Alejandro (6 intervenciones) el 24/03/2022 08:13:28
Muchas gracias, lo probaré.
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
sin imagen de perfil
Val: 99
Ha mantenido su posición en Access (en relación al último mes)
Gráfica de Access

Enviar email con adjunto desde formulario

Publicado por Rafael (225 intervenciones) el 24/03/2022 20:00:41
Este código no es mío, lo encontré en este foro pero no tenía el nombre del propietrio,te garantizo su funcionamiento.
Gracias al autor de este código
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
sin imagen de perfil

Enviar email con adjunto desde formulario

Publicado por diego (1 intervención) el 05/04/2023 20:27:09
Excelente codigo.
Funciona a la perfección
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
sin imagen de perfil

Enviar email con adjunto desde formulario

Publicado por Liset (1 intervención) el 27/03/2023 19:27:00
Hola yo presento la misma situación que ud describe pero no he podido entender el codigo que le sugirieron, ud pudo trabajar en ellos
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