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
Suscribirse a:
Enviar comentarios (Atom)
No hay comentarios:
Publicar un comentario