Este es el código que tiene el Send Email. y no veo que haya ningún try catch. Es más las únicas opciones que contempla es que te hayas dejado campos vacíos. Con lo que si da error no te va a devolver el tipo de error. Si miramos los outputs del SEND EMAIL no existen. Tal vez puedas configurarte una actividad que verifique el estado de la conexión. Te dejo link que lo mismo te puede ayudar en esa tarea:
https://docs.microsoft.com/es-es/office/vba/api/outlook.namespace.exchangeconnectionmodeDim app = CreateObject("Outlook.Application")
Dim mail = app.CreateItem(0)
Dim addressCount As Integer
If [To] <> "" Then
Dim toAddresses = Split([To], ";")
For addressCount = LBound(toAddresses) To UBound(toAddresses)
Dim recipient = mail.Recipients.Add(toAddresses(addressCount))
recipient.Resolve
If recipient.Resolved Then recipient.Type = OlMailRecipientType.olTo
Next
End if
If CC <> "" Then
Dim ccAddresses = Split([CC], ";")
addressCount = 0
For addressCount = LBound(ccAddresses) To UBound(ccAddresses)
Dim recipient = mail.Recipients.Add(ccAddresses(addressCount))
recipient.Resolve
If recipient.Resolved Then recipient.Type = OlMailRecipientType.olCC
Next
End If
If BCC <> "" Then
Dim bccAddresses = Split([BCC], ";")
addressCount = 0
For addressCount = LBound(bccAddresses) To UBound(bccAddresses)
Dim recipient = mail.Recipients.Add(bccAddresses(addressCount))
recipient.Resolve
If recipient.Resolved Then recipient.Type = OlMailRecipientType.olBCC
Next
End If
mail.Subject = Subject
mail.HTMLBody = Message
For Each att As String In Attachments.Split(";"c)
If att = "" Then Continue For
mail.Attachments.Add(att)
Next
mail.Save
mail.Send
------------------------------
Jesús Miguel Bravo Díaz
RPA Developer
Atento
Europe/Madrid
------------------------------
