I have got the following problem:

I move an email from the postbox to folder x with:
dim moved_mail as mailitem
dim mail as mailitem
dim x as MapiFolder

set moved_mail = mail.move(x)

This works.

In the next step I'd like to reply to this mail
from this new place:

move_mail.reply

Here I got the mentioned "sent" error.

If I access this mail by x.items(mail.subject)
and start the .reply from this object I got
no error, but this solution won't work for
mails with same subjects.

Any ideas how to solve this problem?

BR
Heiner.

Dim NewMail As Outlook.MailItem

'your code here

Set NewMail = objOutlook.Session.GetItemFromID(moved_mail.EntryID)
NewMail.Reply

See if that helps.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"Heiner Schr?der" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> I have got the following problem:
>
> I move an email from the postbox to folder x with:
> dim moved_mail as mailitem
> dim mail as mailitem
> dim x as MapiFolder
>
> set moved_mail = mail.move(x)
>
> This works.
>
> In the next step I'd like to reply to this mail
> from this new place:
>
> move_mail.reply
>
> Here I got the mentioned "sent" error.
>
> If I access this mail by x.items(mail.subject)
> and start the .reply from this object I got
> no error, but this solution won't work for
> mails with same subjects.
>
> Any ideas how to solve this problem?
>
> BR
> Heiner.