Páginas
jueves, 30 de abril de 2020
Oulook VBA: Funcion para obtener un mensaje de correo.
Input = Ninguno
Output = Un objeto MailItem (Un mensaje de correo)
El proceso verifica si en la ventana activa se encuentra abierto un mensaje de correo, la funcion devuelve el mensaje para futura manipulación.
Function getMessage()
If TypeName(Application.ActiveWindow) = "Inspector" Then
Set getMessage = Application.ActiveWindow.CurrentItem
Else
Set getMessage = Nothing
End If
End Function
Test:
Sub testFunction()
Set mail = getMessage()
If mail Is Nothing Then
Debug.Print TypeName(mail)
Else
Debug.Print TypeName(mail)
Debug.Print mail.Subject
Debug.Print mail.Body
For Each adjunto In mail.Attachments
Debug.Print adjunto.fileName
Next
End If
End Sub
Suscribirse a:
Enviar comentarios (Atom)
No hay comentarios:
Publicar un comentario