| Pregunta: | 26017 - ACUSE DE RECIBO CON NOTES |
| Autor: | Esther Moraleda |
| He realizado una aplicación de Visual Basic que envía correos electrónicos a través de Lotus Notes. Me gustaría saber si es posible utilizando los objetos de Notes, implementar el acuse de recibo en cada envío de un correo. Gracias | |
| Respuesta: | Esther Moraleda |
| 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 '***********Para el acuse de recibo ****************************** Call Doc.ReplaceItemValue("ReturnReceipt", "1") 'Si no se quiere acuse de recibo poner valor "0" '******************************************************************** Doc.SendTo = sSendTo Doc.SaveMessageOnSend = True Call Doc.Send(True) Settion.Close Screen.MousePointer = vbDefault End Sub | |