Dmitry

I managed to do it using the createitem method.

Many thanks for your help and advice. Appreciate it.

Richard

"Dmitry Streblechenko" wrote in message
...
I mean where does it come from on your code level? How do you create
it?Why
don't you save it as an MSG file, then for each recipient call
Application.CreateItemfromtempate, add a recipient, send it, do that
again.
Or you can use Safe*Item.Import in Redemption to import an MSG file.

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

"Richard" wrote in message
...
Hi Dmitry

The message is email we send to clients weekly. So, we create a new
message,
save it to the drafts folder and forward it out to our clients.

Richard

"Dmitry Streblechenko" wrote in message
...
Depends on where the original message to be forwarded comes from. How
do
you
make a decision which message needs to be forwarded?

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

"Richard" wrote in message
...
Hi Dmitry

I think I know where the problem is..

If I forward a new email (I forward the item from inbox to drafts),
the
message is empty, but if I drag an old email (i.e. I drag and drop
from
inbox to drafts) it works okay.

Anyway sorry for the previous post, there wasn't any item in the
drafts
folder.

How do I forward the item, and make it show in the mytempitem.body?

Richard


"Dmitry Streblechenko" wrote in message
...
What happens if you display the message body (MsgBox
myTempItem.Body)
before
sending it?

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

"Richard" wrote in message
...
Hi Dmitry

I tried it but resulted with an empty message.

Regards
Richard

"Dmitry Streblechenko" wrote in message
...
Instead of displaying the message, save it first (FWDItem.Save).

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

"Richard" wrote in message
...
Hi

I am using redemption to forward emails.

When I do not display the item, it will send without the
body(message).
But
if I display the item first, then close it and send, everything
is
sent
including the message.

Is there a way around this. It would be nice if there were no
window
opening
and closing when the code is running.

Many thanks in advance
Richard

Part of code:

Set myFolder = myNameSpace.GetDefaultFolder(olFolderDrafts)
Set myItem = myFolder.Items
Set Utils = CreateObject("Redemption.MAPIUtils")

qryResults.MoveFirst

Do Until qryResults.EOF

If a Count Then

Set myTempItem =
CreateObject("Redemption.SafeMailItem")
Set FWDItem = myItem.Item(1).Forward

FWDItem.to = qryResults!EMAIL
FWDItem.Display 'if I don't display, the
message
is
sent
without message.
FWDItem.Close olSave
DoEvents
FWDItem.DeleteAfterSubmit = True

myTempItem.Item = FWDItem
myTempItem.Send