Access - Lotus y Acces

Dim objNotesSession As Object

Dim objNotesDatabase As Object

Dim objNotesDocument As Object

' Iniciar la sesión de Lotus Notes

Set objNotesSession = CreateObject("Notes.NotesSession")

' Abrir la base de datos de correo electrónico

Set objNotesDatabase = objNotesSession.GetDatabase("", "") ' reemplaza las comillas con la ruta de la base de datos de correo electrónico

' Crear un nuevo documento de correo electrónico

Set objNotesDocument = objNotesDatabase.CreateDocument

' Establecer el remitente, el destinatario, el asunto y el cuerpo del mensaje

objNotesDocument.ReplaceItemValue "SendTo", "destinatario@ejemplo.com"

objNotesDocument.ReplaceItemValue "Subject", "Asunto del correo electrónico"

objNotesDocument.ReplaceItemValue "Body", "Cuerpo del correo electrónico"

objNotesDocument.ReplaceItemValue "From", "remitente@ejemplo.com"

' Enviar el correo electrónico

objNotesDocument.Send False

' Limpiar los objetos

Set objNotesDocument = Nothing

Set objNotesDatabase = Nothing

Set objNotesSession = Nothing