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: //www.imagine-msn.com/spaces>
