• Martes 4 de Agosto de 2020, 01:20

Autor Tema:  Envio Correo Lotus Notes Desde Vb 6.0  (Leído 5886 veces)

tsidkenu

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Envio Correo Lotus Notes Desde Vb 6.0
« en: Viernes 16 de Noviembre de 2007, 22:32 »
0
HOLA;
ALGUIEN SABRA COMO ENVIAR UN CORREO LOTUS NOTES, DESDE VISUAL BASIC 6.0.
MUCHAS GRACIAS.

mustang

  • Miembro MUY activo
  • ***
  • Mensajes: 133
    • Ver Perfil
Re: Envio Correo Lotus Notes Desde Vb 6.0
« Respuesta #1 en: Jueves 22 de Noviembre de 2007, 17:30 »
0
hola, este seria el codigo ke necesitas... le haces los cambios que necesites:

Código: Text
  1.  
  2. 'Para crear el correo y enviarlo se deben crear los objetos
  3. Dim sess As New NotesSession
  4. Dim bd as new NotesDatabase
  5. Dim doc as NotesDocument
  6.  
  7. Set bd = sess.GetDatabase("servidor","correo.nsf")
  8. Set doc = bd.CreateDocument
  9. doc.form = "memo"
  10. doc.sendto = direccion.text
  11. doc.subject = tema.text
  12. doc.body = mensaje.text
  13. doc.send(true)
  14. unload me
  15.  
  16. ' y luego destruir los objetos
  17.  
  18. Ya para matar la tarea notes que se nos queda abierta:
  19.  
  20. 'Copiar todo esto en modulo de VB, y llamar desde donde lo deseemos al proceso MatarNotes
  21. '
  22. '***********************************************************
  23. 'Declaracion de constantes y funciones API usadas.
  24. '
  25. 'constantes API usadas
  26. Const PROCESS_ALL_ACCESS = &H1F0FFF
  27.  
  28. 'funciones API usadas
  29. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  30. Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
  31. Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
  32. Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
  33.  
  34.  
  35. '***********************************************************
  36. 'En el programa despues de todo el codigo con el que abrimos una sesion con Notes, abrimos una BD, enviamos el correo,.....
  37. 'cuando querramos finalizar la sesion con Notes tendremos que localizar si esta abierta la ventana de Notes con FindWindow, si asi es
  38. 'obtenemos el identificador del proceso de la ventana de Notes con GetWindowThreadProcessId, deberemos abrir una
  39. 'identificador de proceso para la aplicacion y todos los subprocesos (subventanas) que tenga abiertos con OpenProcess. Y finalmente
  40. 'mataremos el proceso notes con todos sus subprocesos mediante la funcion TerminateProcess.
  41.  
  42.  
  43. Public sub MatarNotes()
  44.  
  45. Dim lngProcessID As Long
  46. Dim lngReturnValue As Long
  47. Dim lngProcess As Long
  48. Dim hwnd as long
  49.  
  50.  
  51. hwnd = FindWindow("Notes", vbNullString) 'Obtiene un manejador para la ventana de Notes, devuelve 0 sino existe
  52. If (hwnd <> 0) Then
  53. lngReturnValue = GetWindowThreadProcessId(hwnd, lngProcessID) 'Obtiene el identificador de proceso de la ventana en lngProccesID
  54. lngProcess = OpenProcess(PROCESS_ALL_ACCESS, 0&, lngProcessID) 'Obtiene en lngProcess el identificador para todos los procesos abiertos por la aplicacion identificada por lngProcessId
  55. lngReturnValue = TerminateProcess(lngProcess, 0&) 'finaliza los procesos indicados por lngProcess
  56. End If
  57.  
  58. End If
  59.  
  60.  
Si te sirvio lo comentas
El camino del exceso lleva al palacio de la sabiduria.....(William Blake)

Jose.Grajeda

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Re: Envio Correo Lotus Notes Desde Vb 6.0
« Respuesta #2 en: Lunes 4 de Julio de 2011, 16:00 »
0
Alguien sabe como ver los correo de lotus notes en visual basic