Access - Lotus Notes

Lotus Notes

Publicado por JDGaona (5 intervenciones) el 28/05/2002 17:05:01

Alguien podría decirme como hacerle para enviar un e-mail por Lotus Notes desde un codigo VB en MS-Access 97?

Lo he intentado, pero al momento de ejecutarlo me envia directamento a MS-Outlook.

Gracias

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Lotus Notes

Publicado por Alejandro (4142 intervenciones) el 21/04/2023 18:53:42

Para enviar un correo electrónico desde un código VB en Access 97 utilizando Lotus Notes, necesitará agregar una referencia a la biblioteca de objetos de Lotus Notes en su proyecto. Luego, puede utilizar el siguiente código de ejemplo para enviar un correo electrónico:

Dim objNotesSession As Object

Dim objNotesMail As Object

' Inicializar la sesión de Lotus Notes

Set objNotesSession = CreateObject("Notes.NotesSession")

' Iniciar sesión en Lotus Notes

objNotesSession.Initialize

' Crear un nuevo correo electrónico

Set objNotesMail = objNotesSession.CreateDocument("","Memo")

' Agregar información al correo electrónico

With objNotesMail

  .SendTo = "destinatario@dominio.com"

  .CopyTo = "copia@dominio.com"

  .Subject = "Asunto del correo electrónico"

  .Body = "Cuerpo del correo electrónico"

End With

' Enviar el correo electrónico

objNotesMail.Send False

' Liberar objetos de Lotus Notes

Set objNotesMail = Nothing

Set objNotesSession = Nothing

Asegúrese de que Lotus Notes esté instalado en su máquina y de que su perfil de usuario tenga permisos para enviar correos electrónicos. Además, si tiene varias cuentas de correo electrónico configuradas en Lotus Notes, es posible que deba especificar la cuenta de correo electrónico que desea utilizar para enviar el correo electrónico en el campo "Principal" de la propiedad "objNotesSession".

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar