I cannot reproduce the same behaviour. The draft message was removed from the deleted items if I call message.delete. I also noticed you create the draft message in the Mailbox folder. I recommend you create the draft message in the Work-In-Progress folder. Try the code below to remove the draft message from trash entries collection. Hope this helps.
sub ResendMail (Msg)
Set objMail = GroupWise.Account.WorkFolder.Messages.Add(“GW.MESSAGE.MAIL”, fgwDraft)
Set objRecipient = objMail.Recipients.Add(GroupWise.Account.Owner.EmailAddress,,0)
.Priority = fgwNormal
.FromText = Msg.Sender
.Subject = strPrefix & ” ” & Msg.Subject
.BodyText.PlainText = “============= Orginal Message =============” & _
vbcrlf & vbcrlf & _
Set objNewMail = objMail.Send
‘ Removes from TrashEntries collection.
set oTrashEntry = Groupwise.account.Trash.TrashEntries.ItemEx(objMail.MessageID)
if not oTrashEntry is nothing then
set objNewMail = Nothing
Set objRecipient = Nothing
Set objMail = Nothing
Originally posted by GoumJer:
thanks for your reply.
Unfortunatly this doesn’t solve my problem. The draft message still is in the deleted items.
Is there a command which does the same as the
keyboard combination (really delete)?
[This message was edited by Support 1 on August 18, 2005 at 05:08 PM.]