Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Access » Envío de jpg por correo electrónico

Access - Envío de jpg por correo electrónico

Volver
Nuevo Tema
<<>>
 
Vista:

Envío de jpg por correo electrónico

Publicado por Heildumo (1 intervención) el 14/03/2002 16:09:56
Hola, me gustaría saber si alguien puede ayudarme, diciéndome cómo envío por medio de código de Access una imagen por mail; yo puedo enviar formularios, consultas, pero no he podido encontrar la manera de hacerlo con imágenes.

Muchas gracias!!
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 Alejandro

Envío de jpg por correo electrónico

Publicado por Alejandro (4142 intervenciones) el 20/04/2023 22:48:58
Sí, se puede enviar una imagen por correo electrónico desde Access usando código VBA. Para hacerlo, se necesita usar la biblioteca de objetos de Microsoft Outlook y el método Attachments.Add. A continuación, te muestro un ejemplo de cómo hacerlo:

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
Sub enviarCorreoConImagen()
 
    Dim objOutlook As Object
    Dim objMail As Object
    Dim objAttachment As Object
    Dim rutaArchivo As String
 
    Set objOutlook = CreateObject("Outlook.Application")
    Set objMail = objOutlook.CreateItem(0)
 
    'Ruta de la imagen a enviar
    rutaArchivo = "C:\ruta\de\la\imagen.jpg"
 
    With objMail
        .To = "destinatario@email.com"
        .Subject = "Correo con imagen"
        .HTMLBody = "Este es un correo con una imagen adjunta."
 
        Set objAttachment = .Attachments.Add(rutaArchivo)
        objAttachment.DisplayName = "Imagen.jpg"
 
        .Send
    End With
 
    Set objAttachment = Nothing
    Set objMail = Nothing
    Set objOutlook = Nothing
 
End Sub

Este código crea un nuevo objeto de correo electrónico en Outlook, agrega la dirección de correo del destinatario, el asunto y el cuerpo del correo electrónico, y luego agrega la imagen como un archivo adjunto usando el método Attachments.Add. Luego, el correo se envía usando el método .Send.

Solo asegúrate de cambiar la ruta de archivo con la ubicación de tu imagen y la dirección de correo electrónico del destinatario con la tuya o la de la persona a la que deseas enviar la imagen.
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