[vbusers] Enviar email

Fri, 16 Mar 2007 07:30:09 -0800 

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.

Responder a