Programación Específica > Domino

 Envio Correo Lotus Notes Desde Vb 6.0

(1/1)

tsidkenu:
HOLA;
ALGUIEN SABRA COMO ENVIAR UN CORREO LOTUS NOTES, DESDE VISUAL BASIC 6.0.
MUCHAS GRACIAS.

mustang:
hola, este seria el codigo ke necesitas... le haces los cambios que necesites:


--- Código: Text --- 'Para crear el correo y enviarlo se deben crear los objetosDim sess As New NotesSessionDim bd as new NotesDatabaseDim doc as NotesDocument Set bd = sess.GetDatabase("servidor","correo.nsf")Set doc = bd.CreateDocumentdoc.form = "memo"doc.sendto = direccion.textdoc.subject = tema.textdoc.body = mensaje.textdoc.send(true)unload me ' y luego destruir los objetos Ya para matar la tarea notes que se nos queda abierta: 'Copiar todo esto en modulo de VB, y llamar desde donde lo deseemos al proceso MatarNotes''***********************************************************'Declaracion de constantes y funciones API usadas.''constantes API usadasConst PROCESS_ALL_ACCESS = &H1F0FFF 'funciones API usadasPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As LongPrivate Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As LongPrivate Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long  '***********************************************************'En el programa despues de todo el codigo con el que abrimos una sesion con Notes, abrimos una BD, enviamos el correo,.....'cuando querramos finalizar la sesion con Notes tendremos que localizar si esta abierta la ventana de Notes con FindWindow, si asi es'obtenemos el identificador del proceso de la ventana de Notes con GetWindowThreadProcessId, deberemos abrir una'identificador de proceso para la aplicacion y todos los subprocesos (subventanas) que tenga abiertos con OpenProcess. Y finalmente'mataremos el proceso notes con todos sus subprocesos mediante la funcion TerminateProcess.  Public sub MatarNotes() Dim lngProcessID As LongDim lngReturnValue As LongDim lngProcess As LongDim hwnd as long  hwnd = FindWindow("Notes", vbNullString) 'Obtiene un manejador para la ventana de Notes, devuelve 0 sino existeIf (hwnd <> 0) ThenlngReturnValue = GetWindowThreadProcessId(hwnd, lngProcessID) 'Obtiene el identificador de proceso de la ventana en lngProccesIDlngProcess = OpenProcess(PROCESS_ALL_ACCESS, 0&, lngProcessID) 'Obtiene en lngProcess el identificador para todos los procesos abiertos por la aplicacion identificada por lngProcessIdlngReturnValue = TerminateProcess(lngProcess, 0&) 'finaliza los procesos indicados por lngProcessEnd If End If  Si te sirvio lo comentas

Jose.Grajeda:
Alguien sabe como ver los correo de lotus notes en visual basic

Navegación

[0] Índice de Mensajes