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.
