TRpcRule0ID121Order52Namevereinfachte WeiterleitungTriggers16ExpertDataFbmRuleNode1B5W630KLI.NextNode=FbmRuleNodeMER0L7E4ZW
FbmRuleNode1B5W630KLI.Protocol=Nachricht wurde automatisch weitergeleitet.
FbmRuleNode1B5W630KLI.Type=TFbmRuleNodeActionProtocol
FbmRuleNode1B5W630KLI.X=96
FbmRuleNode1B5W630KLI.Y=576
FbmRuleNode75HTS5JEOG.FailureNode=FbmRuleNodeGPS65Q8GU7
FbmRuleNode75HTS5JEOG.Field=31
FbmRuleNode75HTS5JEOG.Op=0
FbmRuleNode75HTS5JEOG.Type=TFbmRuleNodeConditionItem
FbmRuleNode75HTS5JEOG.Value=5
FbmRuleNode75HTS5JEOG.X=96
FbmRuleNode75HTS5JEOG.Y=-60
FbmRuleNode83VD5ACB4Q.NextNode=FbmRuleNode1B5W630KLI
FbmRuleNode83VD5ACB4Q.Source=begin\r\n ForwardItem := TFbmItem.Create(ikEmail, 0);\r\n try\r\n Item.LoadAttachmentsContent;\r\n ForwardItem.Assign(Item, [iaoAttachments, iaoProperties, iaoUserFields], iasForward);\r\n if Assigned(ForwardItem.From) then\r\n ForwardItem.From.Text := 'kundenservice@meinefirma.de';\r\n if Assigned(ForwardItem.Recipients) then\r\n ForwardItem.Recipients.Text := Item.UserCache.GetUsernameByID(Item.UserRef) + '@meinefirma.de';\r\n TFbmItemEMailProperties(ForwardItem.Properties).CC.Clear;\r\n TFbmItemEMailProperties(ForwardItem.Properties).BCC.Clear;\r\n ForwardItem.ColorRef := 8;\r\n ForwardItem.Save;\r\n finally\r\n ForwardItem.Free;\r\n end;\r\nend;
FbmRuleNode83VD5ACB4Q.Type=TFbmRuleNodeActionSource
FbmRuleNode83VD5ACB4Q.X=96
FbmRuleNode83VD5ACB4Q.Y=492
FbmRuleNodeANOP88BOQ4.NextNode=FbmRuleNode75HTS5JEOG
FbmRuleNodeANOP88BOQ4.Type=TFbmRuleNodeActionRoot
FbmRuleNodeANOP88BOQ4.X=156
FbmRuleNodeANOP88BOQ4.Y=-120
FbmRuleNodeBBTSP3RSA6.FailureNode=FbmRuleNodeV5QX2O5P31
FbmRuleNodeBBTSP3RSA6.Field=22
FbmRuleNodeBBTSP3RSA6.Op=0
FbmRuleNodeBBTSP3RSA6.SuccessNode=FbmRuleNodeFJ4PD7NFB9
FbmRuleNodeBBTSP3RSA6.Type=TFbmRuleNodeConditionItem
FbmRuleNodeBBTSP3RSA6.Value=198
FbmRuleNodeBBTSP3RSA6.X=96
FbmRuleNodeBBTSP3RSA6.Y=228
FbmRuleNodeFJ4PD7NFB9.NextNode=FbmRuleNode83VD5ACB4Q
FbmRuleNodeFJ4PD7NFB9.Type=TFbmRuleNodeActionVariable
FbmRuleNodeFJ4PD7NFB9.VariableKind=TFbmItem
FbmRuleNodeFJ4PD7NFB9.VariableName=ForwardItem
FbmRuleNodeFJ4PD7NFB9.X=96
FbmRuleNodeFJ4PD7NFB9.Y=372
FbmRuleNodeGPS65Q8GU7.Field=27
FbmRuleNodeGPS65Q8GU7.Op=0
FbmRuleNodeGPS65Q8GU7.SuccessNode=FbmRuleNodeBBTSP3RSA6
FbmRuleNodeGPS65Q8GU7.Type=TFbmRuleNodeConditionItem
FbmRuleNodeGPS65Q8GU7.Value=0
FbmRuleNodeGPS65Q8GU7.X=96
FbmRuleNodeGPS65Q8GU7.Y=84
FbmRuleNodeK0WYQRQVBK.Field=22
FbmRuleNodeK0WYQRQVBK.Op=0
FbmRuleNodeK0WYQRQVBK.SuccessNode=FbmRuleNodeFJ4PD7NFB9
FbmRuleNodeK0WYQRQVBK.Type=TFbmRuleNodeConditionItem
FbmRuleNodeK0WYQRQVBK.Value=199
FbmRuleNodeK0WYQRQVBK.X=600
FbmRuleNodeK0WYQRQVBK.Y=228
FbmRuleNodeMER0L7E4ZW.State=4
FbmRuleNodeMER0L7E4ZW.Type=TFbmRuleNodeActionState
FbmRuleNodeMER0L7E4ZW.X=96
FbmRuleNodeMER0L7E4ZW.Y=660
FbmRuleNodeV5QX2O5P31.FailureNode=FbmRuleNodeK0WYQRQVBK
FbmRuleNodeV5QX2O5P31.Field=22
FbmRuleNodeV5QX2O5P31.Op=0
FbmRuleNodeV5QX2O5P31.SuccessNode=FbmRuleNodeFJ4PD7NFB9
FbmRuleNodeV5QX2O5P31.Type=TFbmRuleNodeConditionItem
FbmRuleNodeV5QX2O5P31.Value=200
FbmRuleNodeV5QX2O5P31.X=348
FbmRuleNodeV5QX2O5P31.Y=228
SourceCodevar
ForwardItem: TFbmItem;
begin
if not (Item.State = isForward) then
begin
if (Item.ColorRef = 0) then
begin
if (Item.UserRef = 198) then
begin
begin
ForwardItem := TFbmItem.Create(ikEmail, 0);
try
Item.LoadAttachmentsContent;
ForwardItem.Assign(Item, [iaoAttachments, iaoProperties, iaoUserFields], iasForward);
if Assigned(ForwardItem.From) then
ForwardItem.From.Text := 'kundenservice@meinefirma.de';
if Assigned(ForwardItem.Recipients) then
ForwardItem.Recipients.Text := Item.UserCache.GetUsernameByID(Item.UserRef) + '@meinefirma.de';
TFbmItemEMailProperties(ForwardItem.Properties).CC.Clear;
TFbmItemEMailProperties(ForwardItem.Properties).BCC.Clear;
ForwardItem.ColorRef := 8;
ForwardItem.Save;
finally
ForwardItem.Free;
end;
end;
Item.AddToProtocol('Nachricht wurde automatisch weitergeleitet.');
Item.State := isDone;
end
else
begin
if (Item.UserRef = 200) then
begin
begin
ForwardItem := TFbmItem.Create(ikEmail, 0);
try
Item.LoadAttachmentsContent;
ForwardItem.Assign(Item, [iaoAttachments, iaoProperties, iaoUserFields], iasForward);
if Assigned(ForwardItem.From) then
ForwardItem.From.Text := 'kundenservice@meinefirma.de';
if Assigned(ForwardItem.Recipients) then
ForwardItem.Recipients.Text := Item.UserCache.GetUsernameByID(Item.UserRef) + '@meinefirma.de';
TFbmItemEMailProperties(ForwardItem.Properties).CC.Clear;
TFbmItemEMailProperties(ForwardItem.Properties).BCC.Clear;
ForwardItem.ColorRef := 8;
ForwardItem.Save;
finally
ForwardItem.Free;
end;
end;
Item.AddToProtocol('Nachricht wurde automatisch weitergeleitet.');
Item.State := isDone;
end
else
begin
if (Item.UserRef = 199) then
begin
begin
ForwardItem := TFbmItem.Create(ikEmail, 0);
try
Item.LoadAttachmentsContent;
ForwardItem.Assign(Item, [iaoAttachments, iaoProperties, iaoUserFields], iasForward);
if Assigned(ForwardItem.From) then
ForwardItem.From.Text := 'kundenservice@meinefirma.de';
if Assigned(ForwardItem.Recipients) then
ForwardItem.Recipients.Text := Item.UserCache.GetUsernameByID(Item.UserRef) + '@meinefirma.de';
TFbmItemEMailProperties(ForwardItem.Properties).CC.Clear;
TFbmItemEMailProperties(ForwardItem.Properties).BCC.Clear;
ForwardItem.ColorRef := 8;
ForwardItem.Save;
finally
ForwardItem.Free;
end;
end;
Item.AddToProtocol('Nachricht wurde automatisch weitergeleitet.');
Item.State := isDone;
end;
end;
end;
end;
end;
end.
Compiled1Created20110706T15:34:55Modified20110706T15:50:22