Cannot send message error after mailtem.reply

[Heiner Schr?der]

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.

 

[Ken Slovak - [MVP - Outlook]]

Dim NewMail As Outlook.MailItem

'your code here

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

See if that helps.