Access - Lotus Notes

 
Vista:

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 claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Alejandro

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:

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
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 claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar