| Pregunta: | 10134 - VB Y LOTUS NOTES |
| Autor: | Jose Luis Atanasio |
| Necesito hacer una aplicacion para enviar por mail (Lotus Notes) unos registros que estan contenidos en una planilla de Excel. El tema es asi: Por medio de controles DATA me conecto a esta base de Excel y lo que necesito es que segun el codigo que tiene un campo de la base se envie un mail por cada registro de la base al destinatario que corresponda (el destinatario es otro campo de la base). En definitiva necesito recorrer toda la base y que segun el codigo envie el mail a un destinatario. El problema es que tiene que ser mediante Lotus Notes y no se si existe algun ocx y otra cosa para conectar Visual con Notes. Por favor si alguien me puede ayudar desde ya le quedo agradecido. | |
| Respuesta: | José Ariel Limandri |
| Usa esta funcion 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 si queres te puedo mandar un OCX para mandar mails a travez de un SMTP sin importancia del cliente de correo | |