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.> > > >
_________________________________________________________________
Descubre Live.com - tu propia página de inicio, personalizada para ver
rápidamente todo lo que te interesa en un mismo sitio.
http://www.live.com/getstarted
