Article ID: 183247
Article Last Modified on 6/6/2005
Set OFolder = OSession.Inbox
OFolder.Messages.Delete
Subject = "Message"
Text = "Body for test message "
For i = 1 To 200
Subject = Subject & str(i)
Text = Text & Subject
Set OMsg = OFolder.Messages.Add(Subject:=Subject, Text:=Text)
OMsg.Update
Set OMsg = nothing
Next i
' During or soon after the following call, Visual Basic hangs.
OFolder.Messages.Delete ' < -- Hangs here
Additional query words: ActMsg
Keywords: kbbug kbfix kbcdo120fix kbmsg kbcode KB183247