Cannot send message error after mailtem.reply

  • Thread starter Thread starter Heiner Schr?der
  • Start date Start date
H

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.
 
Dim NewMail As Outlook.MailItem

'your code here

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

See if that helps.
 
Back
Top