C
Christoph Sbach
I want to fill out the task body field with the mail message field.
But the line: AssignedItem.Body = item.Message don't work.
What is wrong?
Sub cmdCreateTask_Click
Dim TaskFolder, SourceFolder
Set TaskFolder =
Item.Application.ActiveExplorer.CurrentFolder.Parent.Folders("Supportaufgabe
n")
Set Application.ActiveExplorer.CurrentFolder = TaskFolder
'das Formular benutzen..
Set AssignedItem = TaskFolder.Items.Add("IPM.Task.Neue Aufgabe")
' Eine neue Aufgabe mit den Customfeldern
AssignedItem.userproperties.find("TicketID").Value =
item.userProperties.find("TicketID").Value
AssignedItem.userproperties.find("Gerät").Value =
item.userProperties.find("Gerät").Value
AssignedItem.userproperties.find("Anfordergrund").Value =
item.userProperties.find("Anfordergrund").Value
AssignedItem.userproperties.find("Anforderer").Value =
item.userProperties.find("Anforderer").Value
AssignedItem.Subject = item.Subject 'No Problem
' AssignedItem.Body = item.Message 'Error
' If I re-comment this Line, the Mail-Form create a Task-Form, but without
the Message-Text
AssignedItem.save
End Sub
But the line: AssignedItem.Body = item.Message don't work.
What is wrong?
Sub cmdCreateTask_Click
Dim TaskFolder, SourceFolder
Set TaskFolder =
Item.Application.ActiveExplorer.CurrentFolder.Parent.Folders("Supportaufgabe
n")
Set Application.ActiveExplorer.CurrentFolder = TaskFolder
'das Formular benutzen..
Set AssignedItem = TaskFolder.Items.Add("IPM.Task.Neue Aufgabe")
' Eine neue Aufgabe mit den Customfeldern
AssignedItem.userproperties.find("TicketID").Value =
item.userProperties.find("TicketID").Value
AssignedItem.userproperties.find("Gerät").Value =
item.userProperties.find("Gerät").Value
AssignedItem.userproperties.find("Anfordergrund").Value =
item.userProperties.find("Anfordergrund").Value
AssignedItem.userproperties.find("Anforderer").Value =
item.userProperties.find("Anforderer").Value
AssignedItem.Subject = item.Subject 'No Problem
' AssignedItem.Body = item.Message 'Error
' If I re-comment this Line, the Mail-Form create a Task-Form, but without
the Message-Text
AssignedItem.save
End Sub