Páginas

miércoles, 25 de junio de 2014

VBA Excel: Funcion que llama un procedimiento para enviar un email.


Pensé que no podia llamar sub procedures desde una funcion. Ojo que tienes que activar la libreria de objectos de Outlook. (Ir a Tools/References y seleccionar Microsoft Office Outlook Object Library)

Sub send_notice(mailsubject As String, process As String)

Dim mlook As Outlook.MailItem

Set mlook = Outlook.Application.CreateItem(olMailItem)
mySubject = mailsubject
mlook.To = "ruben.torres@huawei.com"
mlook.Subject = mailsubject
mlook.Body = "Dear Friend, the " & process & " is complete."
mlook.Send

End Sub


Function status(start As Date, finish As Date)

If start <> 0 And finish <> 0 Then
    
    Call send_notice("hello", "process finished")
    status = "Finished"
Else
    status = "Pending"
End If

End Function

No hay comentarios:

Publicar un comentario