Access con Lotus Notes
Necesito que me eches una mano para vincular desde Access la posibilidad de mandar informes con Lotus Notes como se puede hacer con Outlook. Mi empresa ha migrado hace poco desde Outlook al sistema de correo de Lotus Notes, y yo tenia la posibilidad que desde mi base de datos mandar informe por Outlook, pero no se como hacerlo para vincularlo con el Notes.
Respuesta de telemaco
1
Pues te cuento que sinceramente no he trabajado con este programa, y hay poca documentación de el... pero encontré este código en la web del búho.. No se site pueda servir:
*****************************
Enviar mails por Notes.
Los parámetros son Usuario que tiene la dirección de email o el Alias de
Notes y el Asunto y Cuerpo que quieras. La función también anexa ficheros
que tiene en una tabla y que creo que te valdrá como ejemplo.
Valentín Playá Serra
Sonotronic S.A.
**************************************************************
Private Function EnviarNotificacion(IdNotificacion, Usuario, Asunto, Cuerpo
As String) As Byte
Dim SesionNotes As Object ' sesión Notes
Dim dbNotes As Object 'Notes DataBase
Dim docNotes As Object 'Notes Document
Dim objAttach As Object
Dim objEmbed As Object
Dim EnviarA As String
Dim CopiarA As String
Dim strArchivosAnexos As String
Dim strAsunto As String
Dim dbs As DAO.DATABASE
Dim rstAnexos As DAO.Recordset
On Error GoTo EnviarNotificacionError
Set dbs = CurrentDb()
Set SesionNotes = CreateObject("Notes.NotesSession")
Set dbNotes = SesionNotes.GETDATABASE("", "")
Call dbNotes.OPENMAIL
Set docNotes = dbNotes.CREATEDOCUMENT()
With docNotes
.SAVEMESSAGEONSEND = False
.SIGNONSEND = False
EnviarA = Usuario
.Subject = Asunto
Call docNotes.REPLACEITEMVALUE("Body", Cuerpo)
Set rstAnexos = dbs.OpenRecordset("Select NombreArchivo from tbAnexos where IdNotificacion = " & IdNotificacion)
Do Until rstAnexos.EOF
Set objAttach = docNotes.CREATERICHTEXTITEM(rstAnexos!NombreArchivo)
Set objEmbed = objAttach.EMBEDOBJECT(1454, "", rstAnexos!NombreArchivo, rstAnexos!NombreArchivo)
rstAnexos.MoveNext
Loop
EnviarNotificacion = 1
Call .SEND(False, EnviarA)
End With
EnviarNotificacionSalir:
Exit Function
EnviarNotificacionError:
If Err.Number = 7294 Then
MsgBox ("El empleado o la dirección " & Usuario & " no se encuentra en la libreta de direcciones")
EnviarNotificacion = 0
Resume Next
End If
If Err.Number = 429 Then
MsgBox ("Error, posiblemente Lotus Notes no esté arrancado")
EnviarNotificacion = 2
Resume EnviarNotificacionSalir
End If
MsgBox Err.Number & "/" & Err.Description
Resume EnviarNotificacionSalir
End Function
**************************
Att:telemaco
*****************************
Enviar mails por Notes.
Los parámetros son Usuario que tiene la dirección de email o el Alias de
Notes y el Asunto y Cuerpo que quieras. La función también anexa ficheros
que tiene en una tabla y que creo que te valdrá como ejemplo.
Valentín Playá Serra
Sonotronic S.A.
**************************************************************
Private Function EnviarNotificacion(IdNotificacion, Usuario, Asunto, Cuerpo
As String) As Byte
Dim SesionNotes As Object ' sesión Notes
Dim dbNotes As Object 'Notes DataBase
Dim docNotes As Object 'Notes Document
Dim objAttach As Object
Dim objEmbed As Object
Dim EnviarA As String
Dim CopiarA As String
Dim strArchivosAnexos As String
Dim strAsunto As String
Dim dbs As DAO.DATABASE
Dim rstAnexos As DAO.Recordset
On Error GoTo EnviarNotificacionError
Set dbs = CurrentDb()
Set SesionNotes = CreateObject("Notes.NotesSession")
Set dbNotes = SesionNotes.GETDATABASE("", "")
Call dbNotes.OPENMAIL
Set docNotes = dbNotes.CREATEDOCUMENT()
With docNotes
.SAVEMESSAGEONSEND = False
.SIGNONSEND = False
EnviarA = Usuario
.Subject = Asunto
Call docNotes.REPLACEITEMVALUE("Body", Cuerpo)
Set rstAnexos = dbs.OpenRecordset("Select NombreArchivo from tbAnexos where IdNotificacion = " & IdNotificacion)
Do Until rstAnexos.EOF
Set objAttach = docNotes.CREATERICHTEXTITEM(rstAnexos!NombreArchivo)
Set objEmbed = objAttach.EMBEDOBJECT(1454, "", rstAnexos!NombreArchivo, rstAnexos!NombreArchivo)
rstAnexos.MoveNext
Loop
EnviarNotificacion = 1
Call .SEND(False, EnviarA)
End With
EnviarNotificacionSalir:
Exit Function
EnviarNotificacionError:
If Err.Number = 7294 Then
MsgBox ("El empleado o la dirección " & Usuario & " no se encuentra en la libreta de direcciones")
EnviarNotificacion = 0
Resume Next
End If
If Err.Number = 429 Then
MsgBox ("Error, posiblemente Lotus Notes no esté arrancado")
EnviarNotificacion = 2
Resume EnviarNotificacionSalir
End If
MsgBox Err.Number & "/" & Err.Description
Resume EnviarNotificacionSalir
End Function
**************************
Att:telemaco
