Why I need to display item

[Richard]

Hi

I am trying to use redemption. A few issues crop up:

1. Why do I need to display the form? It creates an error if I don't.

2. After send, it goes to drafts folder, how do I get it out immediately?

Here's my code:

If Not rs.EOF Then

rs.MoveFirst

Do Until rs.EOF

Set myFolder = nspNameSpace.GetDefaultFolder(olFolderDrafts)
Set emailitem = myFolder.Items
Set FWDItem = emailitem.Item(1).Forward

Set mySafeItem = CreateObject("Redemption.SafeMailItem")
FWDItem.To = rs!Email
FWDItem.DeleteAfterSubmit = True
FWDItem.Display
mySafeItem.Item = FWDItem

mySafeItem.Send
FWDItem.Close olDiscard ' when I display the window it
doesn't close after send, so I need to close manually.

rs.MoveNext

Loop
End If

 

[Sue Mosher [MVP-Outlook]]

1) What error?

2) Perform a send/receive, either manually or by invoking the Send/Receive
button with COmmandBars (see
http://www.outlookcode.com/d/tips/commandbarfun.htm)

FYI, there is a newsgroup specifically for Outlook forms issues "down the
hall" at microsoft.public.outlook.program_forms or, via web interface, at
http://www.microsoft.com/office/com...spx?dg=microsoft.public.outlook.program_forms

 

[Richard]

Hi Sue

Thank you for taking time to help. If I remove the FWDItem.DIsplay, I get
this error message:

 

[Sue Mosher [MVP-Outlook]]

I don't see any Update statement in your code. You do however need an
FWDItem.Save statement before you pass the item to Redemption.

--
Sue Mosher, Outlook MVP
Author of
Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers