F_MAIL_ERROR_TO_STRING

///////////////////////////////////////////////////////////////////////////////////////////////////////////////

// Function Name : f_mail_error_to_string
// Argument Name : a_mailreturncode, Arg Type : mailreturncode, Pass By : Value
//                           a_message, Arg Type : String, Pass By : String
//                           a_display, Arg Type : Boolean, Pass By : Boolean
// Return Type :      String
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
//            a_Message            Error message to prepend to return string
//            a_Display            Boolean (TRUE=display error messagebox)
///////////////////////////////////////////////////////////////////////////////////////////////////////////////

String    s

Choose Case a_MailReturnCode
    Case mailReturnAccessDenied!
        s = 'Access Denied'
    Case mailReturnAttachmentNotFound!
        s = 'Attachment Not Found'
    Case mailReturnAttachmentOpenFailure!
        s = 'Attachment Open Failure'
    Case mailReturnAttachmentWriteFailure!
        s = 'Attachment Write Failure'
    Case mailReturnDiskFull!
        s = 'Disk Full'
    Case mailReturnFailure!
        s = 'Failure'
    Case mailReturnInsufficientMemory!
        s = 'Insufficient Memory'
    Case mailReturnInvalidMessage!
        s = 'Invalid Message'
    Case mailReturnLoginFailure!
        s = 'Login Failure'
    Case mailReturnMessageInUse!
        s = 'Message In Use'
    Case mailReturnNoMessages!
        s = 'No Messages'
    Case mailReturnSuccess!
        s = 'Success'
    Case mailReturnTextTooLarge!
        s = 'Text Too Large'
    Case mailReturnTooManyFiles!
        s = 'Too Many Files'
    Case mailReturnTooManyRecipients!
        s = 'Too Many Recipients'
    Case mailReturnTooManySessions!
        s = 'Too Many Sessions'
    Case mailReturnUnknownRecipient!
        s = 'Unknown Recipient'
    Case mailReturnUserAbort!
        s = 'User Abort'

    Case else
        s = 'Other'
End Choose

If a_Display Then
    MessageBox ( 'Mail Return Code', a_Message + ' ' + s, Exclamation!)
End If

Return s