Why do you call Move? It is a function returning new item; the original
mesasge must be immediately relased, much less sent.

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

"emanson" wrote in message
...
Hello,

Any ideas why in the following the .DeleteAfterSubmit command does not
work?

With itm
.SentOnBehalfOfName = emailaccountname
.To = UserSender
.Unread = True
.VotingResponse = ReasonCode
.Body = UserBody
.Subject = UserSubject
.RemoteStatus = AgentCode
.Mileage = AuditInfo & "," & Date & " " & Time
.FlagRequest = ServerTime
.DeleteAfterSubmit = True
.Move
End With

The code still writes the moved message to the personal namespace delete
folder of the user running the vb6.0 application?