adding multiple messgeboxes values to single messagebox in vba

Question

I have this code with me where i can display the message when every outer loop ends. I want to catch all these messages in suppose array or soome list like structure and then at

Answer 1

Not sure to exactly understand what you want, but you might try to add this to a module:

Option Explicit

Dim globalMsg as String
globalMsg = ""

Function customMsg(msg as String)
    MsgBox msg
    globalMsg = globalMsg & VbCrLf & msg
End Function

Just call customMsg("Your Message") to display a MsgBox and at the end, call MsgBox globalMsg to display all the messages as a single message (one per line). There are a lot of other ways to do this, it depends on you. Please be more explicit if you want any further help.

Answer 2

instead of calling msgboxes, create a String and keep adding the messages - at the end of code msgbox(yourString)

for example decalare a string before the main sub

Dim yourFinalMessage As String ' or Dim yourFinalMessage$

instead of

MsgBox "No Appointments items in " & objNavFolder.DisplayName & "'s folder"

say

yourFinalMessage = yourFinalMessage & vbCrLf & & _ 
             "No Appointments items in " & objNavFolder.DisplayName & "'s folder"

keep doing this until the loop ends.

at the end of loop say

msgbox YourFinalMessage