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
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.
