Access y VBA - Envio de correo con link a web

Envio de correo con link a web

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=85166
Fecha de impresión: 26/Marzo/2026 a las 15:42

Tema: Envio de correo con link a web

Publicado por: 01loko
Asunto: Envio de correo con link a web
Fecha de publicación: 15/Abril/2020 a las 16:41

Estoy intentando enviar un report por correo:

DoCmd.SendObject acReport,... etc.

Funciona bien, pero ahora me planteo una mejora, me gustaria en el cuerpo del mensaje enviar un link a una web (Formato de ejemplo: http://www.mvp-access.com/foro/access-y-vba_forum1.html), la direccion la envio sin problema, pero no consigo enviar el link para que cuando pulsen abra la web.

No se si me he explicado correctamente.

¿Alguna idea de pordonde cojerlo?

Como siempre que recurro a vosotrs, mil gracias por adelantado.

-------------
Recordar de que soy nuevo y estoy aprendiendo.

Respuestas:

Publicado por: Mihura
Fecha de publicación: 15/Abril/2020 a las 17:07

¿ El link quieres enviarlo en el cuerpo del correo o en el informe ?

-------------
Jesús Mansilla Castells.
Saludos desde Móstoles.

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es

Publicado por: 01loko
Fecha de publicación: 15/Abril/2020 a las 17:22

como he dicho, en el cuerpo del mensaje, si es posible.

El report va en PDF, con lo que no creo que se pueda insertar el link activo

-------------
Recordar de que soy nuevo y estoy aprendiendo.

Publicado por: Mihura
Fecha de publicación: 15/Abril/2020 a las 17:28

Una opción sería enviar el correo usando CDO (hay abundantes ejemplos en el foro), con lo que tú te construirías el cuerpo del mensaje, usando la opción formato = html ya puedes hacer lo que quieres.

-------------
Jesús Mansilla Castells.
Saludos desde Móstoles.

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es

Publicado por: 01loko
Fecha de publicación: 15/Abril/2020 a las 17:52

Esto de envio por CDO, supongo que es usando la libreria SMTP for vb, sendmail.dll.

En este caso preguntaba en el envio desde Microsoft Outlook directamente, ya que me interesa el archivo de correos enviados, la firma del usuario, etc.

En el primer caso, que he hecho algun pinito con ello, funciona muy bien y si, se puede enviar directamente html

-------------
Recordar de que soy nuevo y estoy aprendiendo.

Publicado por: Mihura
Fecha de publicación: 15/Abril/2020 a las 18:04

¿Por automatización? ... entonces es lo mismo, declaras el correo como html y p'alante.

¿Has hecho algo?

-------------
Jesús Mansilla Castells.
Saludos desde Móstoles.

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es

Publicado por: xavi
Fecha de publicación: 15/Abril/2020 a las 18:15

01loko escribió:

... la firma del usuario, ...

Me interesa. Yo aun no lo he conseguido por automatización.

Un saludo

-------------
Xavi, un minyó de Terrassa

http://www.llodax.com" rel="nofollow - Mi web

Publicado por: 01loko
Fecha de publicación: 15/Abril/2020 a las 19:08

¿Automatizacion? Eso no se que es, si me explicas, lo miro despacio.

-------------
Recordar de que soy nuevo y estoy aprendiendo.

Publicado por: Mihura
Fecha de publicación: 15/Abril/2020 a las 19:38

Tienes que tener referenciado la librería de Outlook:

Dim OutApp As Outlook.Application, OutMail As Outlook.MailItem
Dim oAccount As Outlook.Account


    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(olMailItem)

    For Each oAccount In OutApp.Session.Accounts
       If oAccount = "xxxx@aaaa.es" Then
          OutMail.SendUsingAccount = oAccount
       End If
    Next
    
    
    
        With OutMail
            
            .To = Me.ListaDestino
        '    .CC = ""           'copia conocimiento
        '    .BCC = ""          'copia oculta
            .Subject = Me.Asunto
            .BodyFormat = olFormatHTML
            .HTMLBody = "<HTML><BODY><Font face='Calibri'><Font size=3>" & Replace(Me.Mensaje, vbCrLf, "<br>") & "</Font><br><br><br>" _
                & "<Font color=Blue>" _
                & "Tecsys Proyectos Informáticos S.L. <br>Mihura<br>" _
                & "E-mail:  xxxx@xxxxx.es<br><br>" _
                & "<Font size=2><Font color=Gray>" _
                & "La información contenida en este mensaje y/o archivo(s) adjunto(s), enviada desde XXXXXXXXXXXXXXXXXXXXXX SL, es confidencial" _
                & "/privilegiada y está destinada a ser leída sólo por la(s) persona(s) a la(s) que va dirigida. Le recordamos que sus datos han sido" _
                & " incorporados en el sistema de tratamiento de XXXXXXXXXXXX SL y que siempre y cuando se cumplan los requisitos" _
                & " exigidos por la normativa, usted podrá ejercer sus derechos de acceso, rectificación, limitación de tratamiento, supresión," _
                & " portabilidad y oposición/revocación, en los términos que establece la normativa vigente en materia de protección de datos," _

                & "</font>" _
                & "</BODY></HTML>"
            .Save
            'adjuntos
            For gl_integer = 0 To Me.ListaAdjuntos.ListCount - 1
                If Not IsNull(Me.ListaAdjuntos.ItemData(gl_integer)) Then
                    .Attachments.Add (Me.ListaAdjuntos.ItemData(gl_integer))
                End If
            Next
            
            
            If Accion = "Ver" Then
                .Display    'Lo vemos
              Else
                .Send       'Lo enviamos
            End If
        End With
    
    Set OutMail = Nothing
    Set OutApp = Nothing

Es un copia/pego/corto que no se vean datos que no se deben ver ... pero la idea de como hacerlo ya lo tienes.

-------------
Jesús Mansilla Castells.
Saludos desde Móstoles.

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es

Publicado por: 01loko
Fecha de publicación: 19/Abril/2020 a las 12:05

Vale, despues de dias dejado de medio lado, ya lo tengo.

http://drive.google.com/open?id=1AGdczXnVpH7upUc4qXh7vtnzCrJC4JQO" rel="nofollow - https://drive.google.com/open?id=1AGdczXnVpH7upUc4qXh7vtnzCrJC4JQO

Envia correos mediante automatizacion, con la firma existente e imagenes.

Gracias a todos por las ideas. Se puede cerrar el hilo (salvo que alguien quiera decir algo mas)

-------------
Recordar de que soy nuevo y estoy aprendiendo.