Redemption/forward

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hallo

i want to forward a message with Redemptio

oleOLs.item=oleIT.forwar
oleOLs.Recipients.Add( (EmEmpfaenger)
oleOls.body=chr(13)+'Weiterleitung eines Email-Melders'+chr(13)+chr(13)+chr(13)+oleOls.bod
oleOls.subject='#XLS_Meld_FW# '+oleOls.subjec
oleols.recipients.resolveall(
oleOls.send(
oleOLs.move( oleOUT

everything works fine, but i can't completly move the email from the draft-folder to the send-folder
The email is in the send-folder, but can't be deleted in the draft-folder. I get an OLE-Error 4096.

Gruss J.Keile
 
1. Move is a function, not a sub: it returns the newly created message in
the target folder
2. You cannot do anything with a message after it is submitted, you must
immediately release it after calling Send
You can move the message to the Outbox first:

set ForwardMsg = oleIT.forward
set ForwardMsg = ForwardMsg.Move(oleOUT )
oleOLs.item=ForwardMsg
oleOLs.Recipients.Add( (EmEmpfaenger) )
oleOls.body=chr(13)+'Weiterleitung eines
Email-Melders'+chr(13)+chr(13)+chr(13)+oleOls.body
oleOls.subject='#XLS_Meld_FW# '+oleOls.subject
oleols.recipients.resolveall()
oleOls.send()

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


Joochen said:
Hallo,

i want to forward a message with Redemption

oleOLs.item=oleIT.forward
oleOLs.Recipients.Add( (EmEmpfaenger) )
oleOls.body=chr(13)+'Weiterleitung eines Email-Melders'+chr(13)+chr(13)+chr(13)+oleOls.body
oleOls.subject='#XLS_Meld_FW# '+oleOls.subject
oleols.recipients.resolveall()
oleOls.send()
oleOLs.move( oleOUT )

everything works fine, but i can't completly move the email from the
Click to expand...
draft-folder to the send-folder.
 
Thank you Dmitr

finally it worked this way: (sorry that is Foxpro-Code not VBA

oleFW=oleIT.forwar
oleFW.move( oleOUT
itmOutMax=oleOut.items.coun
OleOls.item=oleOut.items(itmOutMax
oleOLs.Recipients.Add( (EmEmpfaenger)
oleOls.body=chr(13)+'Weiterleitung eines Email-Melders'+chr(13)+chr(13)+chr(13)+oleOls.bod
oleOls.subject='#XLS_Meld_FW# '+oleOls.subjec
oleols.recipients.resolveall(
oleOls.send(

Gruss J.Keile
 
Did you try to use

oleFW = oleFW.move( oleOUT )
OleOls.item=oleFW

instead of

oleFW.move( oleOUT )
itmOutMax=oleOut.items.count
OleOls.item=oleOut.items(itmOutMax)

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