Hi,

I'm using Outlook 2003, and have created a series of forms linked by Actions.
Content :
Employees create a training request with details and motivation, send it to
Supervisor. Supervisor chooses to support this (Action: new reply-only form),
and sends on to HR to check for alternatives, and so forth.
Problem :
The reply-only form is not saved in the supervisor's Sent Items, but does
reach HR and cc to the Employee. I'm attaching my VBScript below.
Background :
- The forms are in an Organizational Forms Library on the company server
- The message class is "IPM.Note.Training B1" etc.
- The action is a Forward, include original message text
- I have unchecked the "Save form definition with item" checkbox
- I've tried Item.Save in the Item_Send, but nothing happens.

What should I do, what can I check?
Thanks,
Rikkart


Function Item_Open()
If Item.Sent="False" Then
Item.Subject=""
Item.CC=Item.UserProperties("Employee Name")
End If
End Function

Function Item_Send()
Item.UserProperties.Find("HR Name").Value = Item.To
Item.UserProperties.Find("BudgetOwner Name").Value = Item.BCC
Item.BCC = ""
Subject1="Supervisor supports Training Request :
"+Item.UserProperties("Training course title")
Subject2=" for "+Item.UserProperties("Employee Name")+" (DonTR)"
Item.Subject=Subject1+Subject2
Item.UserProperties.Find("Training Spvsupp Date").Value=Date
Item.UserProperties.Find("TRstatus").Value="SpvSupp"
End Function

< I also have code on Item_Read and CommandButton1_Click(), but don't think
they are relevant?>

If ever anyone runs into a similar problem : somehow the
MailItem.DeleteAfterSubmit property had been set to True.
Adding "Item.DeleteAfterSubmit = False" in my code prevents future/user
problems

Thanks to Sue Mosher:
http://www.outlookcode.com/threads.a...messageid=6919


"Rikkart Van Gassen" wrote:

> Hi,
>
> I'm using Outlook 2003, and have created a series of forms linked by Actions.
> Content :
> Employees create a training request with details and motivation, send it to
> Supervisor. Supervisor chooses to support this (Action: new reply-only form),
> and sends on to HR to check for alternatives, and so forth.
> Problem :
> The reply-only form is not saved in the supervisor's Sent Items, but does
> reach HR and cc to the Employee. I'm attaching my VBScript below.
> Background :
> - The forms are in an Organizational Forms Library on the company server
> - The message class is "IPM.Note.Training B1" etc.
> - The action is a Forward, include original message text
> - I have unchecked the "Save form definition with item" checkbox
> - I've tried Item.Save in the Item_Send, but nothing happens.
>
> What should I do, what can I check?
> Thanks,
> Rikkart
>
>
> Function Item_Open()
> If Item.Sent="False" Then
> Item.Subject=""
> Item.CC=Item.UserProperties("Employee Name")
> End If
> End Function
>
> Function Item_Send()
> Item.UserProperties.Find("HR Name").Value = Item.To
> Item.UserProperties.Find("BudgetOwner Name").Value = Item.BCC
> Item.BCC = ""
> Subject1="Supervisor supports Training Request :
> "+Item.UserProperties("Training course title")
> Subject2=" for "+Item.UserProperties("Employee Name")+" (DonTR)"
> Item.Subject=Subject1+Subject2
> Item.UserProperties.Find("Training Spvsupp Date").Value=Date
> Item.UserProperties.Find("TRstatus").Value="SpvSupp"
> End Function
>
> < I also have code on Item_Read and CommandButton1_Click(), but don't think
> they are relevant?>
>