Access - Enviar un correo

Sub EnviarCorreoDesdeOtraCuenta()

    Dim objOutlook As Object

    Dim objMail As Object

    Dim objNamespace As Object

    Dim objRecipient As Object

    ' Crea una instancia de Outlook

    Set objOutlook = CreateObject("Outlook.Application")

    ' Crea una instancia del Namespace de Outlook

    Set objNamespace = objOutlook.GetNamespace("MAPI")

    ' Agrega el remitente deseado (cuenta de correo) como destinatario

    Set objRecipient = objNamespace.CreateRecipient("direcciondecorreo@dominio.com")

    ' Crea un nuevo correo

    Set objMail = objOutlook.CreateItem(0)

    ' Establece el remitente

    objMail.SentOnBehalfOfName = objRecipient.Address

    ' Configura los detalles del correo

    With objMail

        .To = "destinatario@dominio.com"

        .Subject = "Asunto del correo"

        .Body = "Contenido del correo"

        ' Agrega más propiedades según tus necesidades

    End With

    ' Envía el correo

    objMail.Send

    ' Limpia la memoria

    Set objMail = Nothing

    Set objOutlook = Nothing

    Set objNamespace = Nothing

    Set objRecipient = Nothing

End Sub