A mi me gustan la librería CDO, que no es necesario usar ninguna OCX.
_____ De: [email protected] [mailto:[EMAIL PROTECTED] En nombre de Javier Gonzalez Enviado el: viernes, 16 de marzo de 2007 15:58 Para: vbusers List Member Asunto: [vbusers] Enviar email vbsendmail http://www.freevbcode.com/ShowCode.Asp?ID=109 con este activeX, pude resolver todos mis problemas al momento de enviar mails. Saludos ----- Original Message ----- From: [EMAIL PROTECTED] To: vbusers List Member <mailto:[email protected]> Sent: Friday, March 16, 2007 3:22 PM Subject: [vbusers] Enviar email Cierto, ese problema es a partir de no sé que versión del outlook, y creo que no se puede resolver salvo instalando parches de terceros. Es para que justamente otro programa no tome control del correo (cosa un poco loca, teniendo en cuenta que a su vez, el Outlook está diseñado para ser controlado como un componente COM). Pero buenísimo si se puede resolver con el control MAPI. Yo también lo voy a tener en cuenta. Saludos -----Original Message----- From: Jesús dos Santos <[EMAIL PROTECTED]> To: "vbusers List Member" <[email protected]> Date: Fri, 16 Mar 2007 13:25:08 -0300 Subject: [vbusers] Enviar email Listo, use estos controles y no me preguntó nada. Gracias -----Mensaje original----- De: [email protected] [mailto:[EMAIL PROTECTED] En nombre de Carlos Bernardo Maggiotti Enviado el: viernes, 16 de marzo de 2007 12:32 Para: vbusers List Member Asunto: [vbusers] Enviar email Usando los MAPI controls no seria mas facil? saludos CarlosMag > From: [EMAIL PROTECTED] > To: [email protected] > Subject: [vbusers] Enviar email > Date: Fri, 16 Mar 2007 12:27:20 -0300 > > Disculpe la consulta, al ejecutar esta función, el outlook me larga un > cartel diciendo que vb quiere ejecutar bla bla bla y pide permiso, se > puede evitar esto?? > Muchas gracias > > > -----Mensaje original----- > De: [email protected] [mailto:[EMAIL PROTECTED] En nombre de Daniel > Aisenberg > Enviado el: sábado, 03 de marzo de 2007 10:23 > Para: vbusers List Member > Asunto: [vbusers] Enviar email > > Public Function SendMail(strRecipient As String, strSubject As String, > strBody As String ) As Boolean > ' Objetivo: Envia mails con Outlook > ' Referencia: Microsoft Outlook 9.0 Object Library > > Dim OutlookApp As Object > 'Dim OutlookApp As New Outlook.Application > > Dim OutlookAppNameSpace As Object > 'Dim OutLookNameSpace As Outlook.NameSpace > > Dim ObjMailItem As Object > 'Dim ObjMailItem As Outlook.MailItem > > Set OutlookApp = CreateObject("Outlook.Application") > > Set OutlookAppNameSpace = OutlookApp.GetNamespace("MAPI") > 'Set OutlookAppNameSpace = CreateObject("Outlook.NameSpace") > > Set ObjMailItem = OutlookApp.CreateItem(0) > > On Local Error GoTo er: > > 'No soportado por Outlook 9 > 'ObjMailItem.BodyFormat = olFormatRichText > > 'Set myAttachments = ObjMailItem.Attachments > > With ObjMailItem > > .To = strRecipient > .Recipients.ResolveAll > .Subject = strSubject > > 'No soportado por Outlook 9 > '.BodyFormat = olFormatRichText > > .Body = strBody > .HTMLBody = strBody > > 'Si necesitas adjuntar un archivo... > '.Attachments.Add sTargetFile > > '.BodyFormat = olFormatRichText > '.BodyFormat = olFormatHTML > > 'Si queres desplegarlo antes de mandarlo, cosa que en tu caso > 'creo que no es necesario, pero podria ser que el usuario quiera > ver > 'y eventualmente modificar el correo, antes de mandarlo... > '.Display > End With > > Set ObjMailItem = Nothing > Set OutLookNameSpace = Nothing > Set OutlookApp = Nothing > SendMail = True > > Exit Function > er: > SendMail = False > > > End Function > > > -----Mensaje original----- > De: [email protected] [mailto:[EMAIL PROTECTED] En nombre de > [EMAIL PROTECTED] > Enviado el: Viernes, 02 de Marzo de 2007 02:20 p.m. > Para: vbusers List Member > Asunto: [vbusers] Enviar email > > Hola > > necesito un poco de ayuda una vez mas. > Tengo una pequeña aplicacion programada en vb6 que corre todas las > noches > automaticamente, hasta ahi todo bien, pero el problema esta en que > necesitaria que me envie un email con el reporte de lo ocurrido durante > el > proceso. > Que funcion, API o libreria tengo que utilizar para poder lograrlo. > > Desde ya muchas gracias. > > Saludos > > > -- > No virus found in this incoming message. > Checked by AVG Free Edition. > Version: 7.5.446 / Virus Database: 268.18.6/709 - Release Date: > 03/03/2007 08:12 a.m. > > > > _____ Envía mensajes de correo electrónico directamente a tu blog con MSN. Carga chistes, fotografías y muchas otras cosas. Es gratis. <http://clk.atdmt.com/MSN/go/msnnksac0030000001msn/direct/01/?href=http://ww w.imagine-msn.com/spaces>
