Problemas al enviar objeto a lotus notes
Usuario
Buenos días, espero que alguien pueda ayudarme.
Lo que quiero hacer es pasar unos datos de una query a un *.xls en el path que yo le diga (Esta parte ya la tengo) y seguidamente quiero que me abra el lotus notes(que es mi programa de correo predeterminado) con una pesteña de nuevo mensaje (a modo de hyperlink)para la dirección, asunto y texto que yo le diga con el archivo adjunto que he creado anteriormente.
He intentado 2 cosas:
Esta me parece la más fácil y correcta pero no funciona:
Public Function ENVIAR_CORREO()
DoCmd. SendObject,,, "dirección del destinatario",,, "Asunto", "Cuerpo del mail", True, "PATH del archivo"
End Function
Parece ser que vba lo compila bien pero en el notes aparece un error que dice
"LOTUS NOTES MAILMAN ERROR" Cadena clase no válida
Y seguidamente vuelve a vba y me dice que no puede enviar este mensaje de correo. Aunque le ponga los parámetros tipo de objeto y nombre y lo inserte como tabla o query tampoco funciona
Lo 2º que he intentado. Esto que me parece más complicado y no la entiendo muy bien ya que me la ha pasado un compañero que tampoco entiende porqué no funciona.
Public Function ENVIAR_CORREO()
Dim MiFichero As String
Dim DirEmail As String
Dim WMail As String
Dim SesLotus As Object
Dim Doc As Object
Dim LotObject As Object
Dim DireccionMAil As String
Dim RutaMail As String
Dim db As Object
Dim RstItem As Object
''asignacion de objetos Notes
Set SesLotus = CreateObject("Notes.NotesSession")
Set db = SesLotus.GETDATABASE("", "names.nsf")
Set Doc = db.CREATEDOCUMENT()
MiFichero = "Path de mi fichero"
WMail = "direccion del destinatario"
Doc.subject = "Asunto"
Set RstItem = Doc.CREATERICHTEXTITEM(Doc, "Body")
Set LotObject = RstItem.EMBEDOBJECT(1454, "", MiFichero, "")
Call Doc.SEND(False, WMail)
End Function
En este caso vba me dice que el componente ActiveX no puede crear el objeto.
Por favor necesito ayuda, por más que me rompo la cabeza no soy capaz de encontrar el problema.
Buenos días, espero que alguien pueda ayudarme.
Lo que quiero hacer es pasar unos datos de una query a un *.xls en el path que yo le diga (Esta parte ya la tengo) y seguidamente quiero que me abra el lotus notes(que es mi programa de correo predeterminado) con una pesteña de nuevo mensaje (a modo de hyperlink)para la dirección, asunto y texto que yo le diga con el archivo adjunto que he creado anteriormente.
He intentado 2 cosas:
Esta me parece la más fácil y correcta pero no funciona:
Public Function ENVIAR_CORREO()
DoCmd. SendObject,,, "dirección del destinatario",,, "Asunto", "Cuerpo del mail", True, "PATH del archivo"
End Function
Parece ser que vba lo compila bien pero en el notes aparece un error que dice
"LOTUS NOTES MAILMAN ERROR" Cadena clase no válida
Y seguidamente vuelve a vba y me dice que no puede enviar este mensaje de correo. Aunque le ponga los parámetros tipo de objeto y nombre y lo inserte como tabla o query tampoco funciona
Lo 2º que he intentado. Esto que me parece más complicado y no la entiendo muy bien ya que me la ha pasado un compañero que tampoco entiende porqué no funciona.
Public Function ENVIAR_CORREO()
Dim MiFichero As String
Dim DirEmail As String
Dim WMail As String
Dim SesLotus As Object
Dim Doc As Object
Dim LotObject As Object
Dim DireccionMAil As String
Dim RutaMail As String
Dim db As Object
Dim RstItem As Object
''asignacion de objetos Notes
Set SesLotus = CreateObject("Notes.NotesSession")
Set db = SesLotus.GETDATABASE("", "names.nsf")
Set Doc = db.CREATEDOCUMENT()
MiFichero = "Path de mi fichero"
WMail = "direccion del destinatario"
Doc.subject = "Asunto"
Set RstItem = Doc.CREATERICHTEXTITEM(Doc, "Body")
Set LotObject = RstItem.EMBEDOBJECT(1454, "", MiFichero, "")
Call Doc.SEND(False, WMail)
End Function
En este caso vba me dice que el componente ActiveX no puede crear el objeto.
Por favor necesito ayuda, por más que me rompo la cabeza no soy capaz de encontrar el problema.
1 Respuesta
Respuesta de nataliagr
1
Acá et paso el código, los paramettros son:
Subject = "asunto del mensaje" - Attachment = "Path del archivo a adjuntar" - Recipient = "Receptores del mail" - BodyText = "Cuerpo del mensaje" - SaveIt = false (o true) dependiendo si te interesa guardar o no el mail en la base de correo
Public Sub SendNotesMail(Subject As String, Attachment As String, Recipient As String, BodyText As String, SaveIt As Boolean)
Dim Maildb As Object 'Base de mail
Dim UserName As String 'Nombre del usuario notes
Dim MailDoc As Object 'Documento de mail
Dim AttachME As Object ' richtextfile
Dim Session As Object 'Sesion en notes
Dim EmbedObj As Object 'Attach
Set Session = CreateObject("Notes.NotesSession")
'EL CODIGO FUNCIONA SIN INICIALIZAR, POR LO TANTO DEJA COMENTADAS LAS 2 LINEAS 'DE ABAJO, PERO SI LLEGARA A TIRARTE ERROR PORQUE FALTA INICIALIZAR, 'DESCOMENTA UNA Y PROBA, SI NO FUNCIONARA, COMENTALA LA PRIMERA Y PROBA CON 'LA SEGUNDA
' Call Session.Initialize("tu_contraseña") 'Pass de tu user de lotus
' Call Session.InitializeUsingNotesUserName("Usuario", "contraseña")
UserName = Session.UserName
Set Maildb = Session.GETDATABASE("Servidor_donde_esta_la_base_de_correo", "Path_de_tu_base_de_correo")
If Maildb.ISOPEN = True Then
Else
Maildb.OPENMAIL
End If
Set MailDoc = Maildb.CREATEDOCUMENT
MailDoc.Form = "Memo"
MailDoc.sendto = Recipient
MailDoc.Subject = Subject
MailDoc.Body = BodyText
MailDoc.SAVEMESSAGEONSEND = SaveIt
If Attachment <> "" Then
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "Attachment")
End If
MailDoc.PostedDate = Now()
MailDoc.SEND 0, Recipient
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj = Nothing
Espero que te sirva, ¿contame cómo fue eso dale?
Subject = "asunto del mensaje" - Attachment = "Path del archivo a adjuntar" - Recipient = "Receptores del mail" - BodyText = "Cuerpo del mensaje" - SaveIt = false (o true) dependiendo si te interesa guardar o no el mail en la base de correo
Public Sub SendNotesMail(Subject As String, Attachment As String, Recipient As String, BodyText As String, SaveIt As Boolean)
Dim Maildb As Object 'Base de mail
Dim UserName As String 'Nombre del usuario notes
Dim MailDoc As Object 'Documento de mail
Dim AttachME As Object ' richtextfile
Dim Session As Object 'Sesion en notes
Dim EmbedObj As Object 'Attach
Set Session = CreateObject("Notes.NotesSession")
'EL CODIGO FUNCIONA SIN INICIALIZAR, POR LO TANTO DEJA COMENTADAS LAS 2 LINEAS 'DE ABAJO, PERO SI LLEGARA A TIRARTE ERROR PORQUE FALTA INICIALIZAR, 'DESCOMENTA UNA Y PROBA, SI NO FUNCIONARA, COMENTALA LA PRIMERA Y PROBA CON 'LA SEGUNDA
' Call Session.Initialize("tu_contraseña") 'Pass de tu user de lotus
' Call Session.InitializeUsingNotesUserName("Usuario", "contraseña")
UserName = Session.UserName
Set Maildb = Session.GETDATABASE("Servidor_donde_esta_la_base_de_correo", "Path_de_tu_base_de_correo")
If Maildb.ISOPEN = True Then
Else
Maildb.OPENMAIL
End If
Set MailDoc = Maildb.CREATEDOCUMENT
MailDoc.Form = "Memo"
MailDoc.sendto = Recipient
MailDoc.Subject = Subject
MailDoc.Body = BodyText
MailDoc.SAVEMESSAGEONSEND = SaveIt
If Attachment <> "" Then
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "Attachment")
End If
MailDoc.PostedDate = Now()
MailDoc.SEND 0, Recipient
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj = Nothing
Espero que te sirva, ¿contame cómo fue eso dale?
Hola amigo,
He probado tu código, y el error que me da es en el momento de crear el objeto, de la misma manera que el otro código que probé ( "El componente ActiveX no puede crear el objeto).
Yo creo que el problema puede estar en el registro del sistema que debe faltarme alguna DLL con las clases del Notes o algo por el estilo, pero no tengo ni idea de como mirarlo y mucho menos solucionarlo.
No obstante agradezco enormemente tu ayuda. Si se te ocurriese alguna otra cosa, la probaré con mucho interés.
Muchas Gracias. Un Saludo.
He probado tu código, y el error que me da es en el momento de crear el objeto, de la misma manera que el otro código que probé ( "El componente ActiveX no puede crear el objeto).
Yo creo que el problema puede estar en el registro del sistema que debe faltarme alguna DLL con las clases del Notes o algo por el estilo, pero no tengo ni idea de como mirarlo y mucho menos solucionarlo.
No obstante agradezco enormemente tu ayuda. Si se te ocurriese alguna otra cosa, la probaré con mucho interés.
Muchas Gracias. Un Saludo.
El código funciona bien porque antes de pasártelo lo probé, asique el problema tiene que ser como vos decís, transcribime la linea exacta donde tira el error
En esta línea: Set Session = CreateObject("Notes.NotesSession") es cuando dice lo que te comenté en el mensaje anterior. (ActiveX no puede crear el objeto).
En el directorio donde tienes el lotus instalado, ejemplo C:\Archivos de programa\Lotus\notes
Busca el archivo de registro de windows llamado notesw32. Reg y hacele doble click, te va a preguntar si lo quieres agregar al registro, le decís que si y volvé a probar el código..
Busca el archivo de registro de windows llamado notesw32. Reg y hacele doble click, te va a preguntar si lo quieres agregar al registro, le decís que si y volvé a probar el código..
