| Pregunta: | 13347 - ENVIAR CORREO A TRAVES DE LOTUS NOTES |
| Autor: | Apolonio Oliver |
| Hola, Amigos:
Debo implementar una aplicacion en Visual Basic 6.0 (Entorno w98) para que genere mensajes de correo de Lotus Notes. Dispongo de la libreria de objetos de esta aplicacion, pero no tengo el archivo de ayuda de la misma, por lo cual, me es muy dificil utilizar estos objetos en mi aplicacion. Os agradeceria me indicaseis bien el nombre de este archivo de ayuda o algun manual de programacion con esta libreria. Muchas Gracias | |
| Respuesta: | Jose Luis Atanasio |
| Hola. Te comento que esta pregunta yo la hice hace un tiempo y me pasaron el codigo que esta mas abajo. La verdad que acomodandolo a tu gusto funciona perfecto. Espero que te sirva. Suerte.
Private Sub SendMail(sServer As String, sDataBase As String, sSendTo As String, sSubject As String, sBody As String, sAttach As String) Dim Settion As Object Dim Data As Object Dim Doc As Object Dim RichText As Object Dim EmbedObject As Object Screen.MousePointer = vbHourglass Set Settion = CreateObject("Notes.NotesSession") Set Data = Settion.GetDatabase(sServer, sDataBase) Set Doc = Data.CreateDocument Doc.Form = "Memo" Doc.Subject = sSubject Set RichText = Doc.CreateRichTextItem("Body") Call RichText.AddNewLine(1) Call RichText.AppendText(sBody) Call RichText.AddNewLine(2) If sAttach <> "" Then Set EmbedObject = RichText.EmbedObject(1454, "", sAttach, "") End If Doc.SendTo = sSendTo Doc.SaveMessageOnSend = True Call Doc.Send(True) Settion.Close Screen.MousePointer = vbDefault End Sub | |