Hacer mailing desde access con Lotus Notes
Luis
me gustaria saber si unas bases de datos hechas en Access
con las que hacemos mailing a nuestros clientes con
outlook nos funcionaran tambien con notes que es el nuevo
sistema de correo que nos han implantado.
Hemos realizado varias pruebas y no nos funciona, échadme
una mano
Victor Delgadillo
experiencia con Lotus, y probablemente no se te pueda guiar.
--
Victor Delgadillo [MVP Access]
Miami, Florida
Consultas al grupo, asi todos nos beneficiamos.
Vea los MVP: http://www.microsoft.com/communities/mvp/mvp.mspx
"Luis" <anon...@discussions.microsoft.com> wrote in message
news:3fad01c488f5$638433f0$a301...@phx.gbl...
Valentín Playá Serra
yo hago mailings desde Access usando Notes pero la forma de hacerlo es
completamente distinta a la de Outlook. Creo que lo que tengas para Outlook
no te va a valer para Notes.
Si quieres más información para empezar con Notes te puedo enviar algún
código de ejemplo.
Saludos,
Valentín Playá Serra
Sonotronic S.A.
Madrid, España
*********************************************************
"Luis" <anon...@discussions.microsoft.com> escribió en el mensaje
news:3fad01c488f5$638433f0$a301...@phx.gbl...
Valentín Playá Serra
yo hago mailings desde Access usando Notes pero la forma de hacerlo es
completamente distinta a la de Outlook. Creo que lo que tengas para Outlook
no te va a valer para Notes.
Si quieres más información para empezar con Notes te puedo enviar algún
código de ejemplo.
Saludos,
Valentín Playá Serra
Sonotronic S.A.
Madrid, España
*********************************************************
"Luis" <anon...@discussions.microsoft.com> escribió en el mensaje
news:3fad01c488f5$638433f0$a301...@phx.gbl...
anon...@discussions.microsoft.com
algun ejemplo
Gracias de nuevo
>-----Mensaje original-----
>.
>
Luis
puedes enviar codigos de ejemplo te lo agradecería en el
alma.
Muchas gracias,
Luis
>-----Mensaje original-----
>.
>
Valentín Playá Serra
te adjunto el código de una función que tengo para 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.
Si necesitas algo más dímelo.
Saludos,
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
***********************************************************************
"Luis" <anon...@discussions.microsoft.com> escribió en el mensaje
news:ba1901c48922$9ab1bf50$a601...@phx.gbl...
Luis
voy a probarlo y ya te contare.
Saludos,
Luis
>-----Mensaje original-----
>.
>
Luis
el codigo funciona con ficheros anexados, sabes alguna
forma de enviar informe, tabla o consulta directamente
desde access con notes
Gracias otra vez,
Saludos,
Luis
>-----Mensaje original-----
>.
>
Luis
el codigo funciona con ficheros anexados, sabes alguna
forma de enviar informe, tabla o consulta directamente
desde access con notes
Gracias otra vez,
Saludos,
Luis
>-----Mensaje original-----
>.
>
Valentín Playá Serra
los anexos pueden ser cualquier tipo de archivo. La única forma que yo
conozco de hacer lo que quieres es guardar el informe como .snp y después
anexarlo al mensaje de Notes, o exportar la tabla o consulta como .xls y
anexar el libro creado.
Saludos,
Valentín Playá Serra
Sonotronic S.A.
*********************************************************
"Luis" <anon...@discussions.microsoft.com> escribió en el mensaje
news:baf001c4892d$2b072a40$a601...@phx.gbl...
Luis
por ultimo nosotros necesitamos saber a que empresas
enviamos el correo en la función
.SAVEMESSAGEONSEND = False
la he puesto como true y asi me queda en elementos
enviados del Notes lo que no me queda es a la persona que
se le ha enviado, sabes la manera para que me aparezca.
Muchas gracias y siento ser tan pesado pero ando un
poquito perdido con esto.
Saludos,
Luis
>.
>
Valentín Playá Serra
no puedo probarlo ahora pero creo que en los elementos enviados de Notes
queda una copia normal del mensaje enviado con las direcciones de los
destinatarios. Aunque al principio parece útil guardar los mensajes en
Notes, a mí no me pareció una buena solución porque después hay que
borrarlos y es un lio.
Lo que yo hago es mantener una tabla en Access con la fecha de envio de cada
uno de los mensajes cuando es correcto el resultado del envio. De esta forma
evito guardar en Notes los mensajes y tengo en Access un histórico de todos
los mensajes enviados.
Por si te sirve te envío el código que llama a la función.
Saludos,
Valentín Playá Serra
Sonotronic S.A.
*****************************************************
Set rstEnvios = coEnviosPendientes.OpenRecordset
Do Until rstEnvios.EOF
ResultadoEnvio = EnviarNotificacion(rstEnvios!IdNotificacion,
rstEnvios!IdEmpleado, Nz(rstEnvios!AsuntoLiteral, "") & " " &
Nz(rstEnvios!AsuntoVariable, ""), Nz(rstEnvios!CuerpoMensaje, ""))
If ResultadoEnvio = 1 Then
rstEnvios.Edit
rstEnvios!FechaEnvio = Now()
rstEnvios.UPDATE
MensajesCorrectos = MensajesCorrectos + 1
ElseIf ResultadoEnvio = 2 Then
MensajesError = MensajesError + 1
Exit Do
End If
rstEnvios.MoveNext
Loop
MsgBox ("Envio finalizado. Enviados: " & MensajesCorrectos & ", Errores:
" & MensajesError)
*********************************************************************
"Luis" <anon...@discussions.microsoft.com> escribió en el mensaje
news:46ee01c48931$03af00e0$a301...@phx.gbl...