Hab zwar schon im Forum (hier und bei IBM) gesucht, aber leider ohne Erfolg.
Keine Lösungsansätze gefunden oder brachten die Lösungsansätze keinen Erfolg?
MOD
So jetzt versuch ich's nochmal, in der Hoffnung, irgendjemand kann mir helfen:
Also mein "Markier-Agent" bei Eingang neuer Mail sieht folgendermassen aus:_notesname := @DbTitle;
REM "versch. Möglichkeiten der Emial-Adress-Schreibweise generieren";
_internetmailaddress1 := @ReplaceSubstring(_notesname;" ";".");
_internetmailaddress2 := @ReplaceSubstring(_notesname;" ";"_");
_internetmailaddress3 := @Left(_notesname;" ") + @Right(_notesname;" ");
_internetmailaddress4 := @Left(_notesname;1) + @Right(_notesname;" ");
_internetmailaddress5 := @Left(_notesname;1) + "." + @Right(_notesname;" ");
_internetmailaddress6 := @Left(_notesname;" ") + " i_"+ @Right(_notesname;" ");
_internetmailaddress7 := @Left(_notesname;" ") + ","+ @Right(_notesname;" ");
_internetmailaddress8 := @Right(_notesname;" ") +" "+ @Left(_notesname;" ");
_internetmailaddress9 := @Right(_notesname;" ") +"."+ @Left(_notesname;" ");
_internetmailaddress10 := @Right(_notesname;" ") +"_"+ @Left(_notesname;" ");
_internetmailaddress11:= @Right(_notesname;" ") +","+ @Left(_notesname;" ");
_internetmailaddress :=_internetmailaddress1:_internetmailaddress2:_internetmailaddress3:_internetmailaddress4:_internetmailaddress5:_internetmailaddress6:_internetmailaddress7:_internetmailaddress8:_internetmailaddress9:_internetmailaddress10:_internetmailaddress11;
_name := @LowerCase(@Trim(_internetmailaddress:@Name([CN];_notesname)));
_Copyto := @LowerCase(@Name([CN];CopyTo));
_BlindCopyTo := @LowerCase(@Name([CN];BlindCopyto));
tmpvar:=
@If(
@Contains(_Copyto; _name)|@Contains(@LowerCase(Copyto); _name); 120;
@If(
@Contains(_BlindCopyto;_name)|@Contains(@LowerCase(BlindCopyto);_name); 114;
@If(
@Contains(@LowerCase(SendTo);_name);115;
0)
)
);
FIELD _ViewIcon:=_ViewIcon;
SELECT @If(tmpvar = 0; ""; @SetField("_ViewIcon";tmpvar))
So, jetzt ist meine Idee lt.
http://www-128.ibm.com/developerworks/lotus/library/inbox-asst/index.htmlden Agenten direkt in die Spalte einzufügen.
Original-Agent von IBM:REM "============Assign the icon numbers";
TO1:=3;
TO2:=4;
CC1:=22;
CC2:=21;
BCC:=163;
DISTR:=70;
userName:= @ProperCase(@Name([CN];@UserName));
tmpvar:=@If(
DeliveredDate = ""; 0;
@ProperCase(@Name([CN];SendTo)) = userName; @If(@Elements(SendTo)=1; TO1; TO2);
@ProperCase(@Name([CN];CopyTo)) = userName; @If(@Elements(CopyTo)=1; CC1; CC2);
BlindCopyTo != ""; BCC;
SendTo != ""; DISTR;
0);
@If(DeliveredDate = "";
@If(PostedDate="" | @IsUnavailable(PostedDate);
@If(@IsAvailable(IsMailStationery);
21;
@IsAvailable(_ViewIcon);
_ViewIcon;
58);
@If(Importance="1";
124;
122));
Importance = "1";
150;
@IsAvailable(_ViewIcon);
_ViewIcon;
tmpvar != 0; tmpvar;
$TypeIcon)
Meine abgeänderte Version würde dann so ausschaun:_notesname := @DbTitle;
REM "versch. Möglichkeiten der Emial-Adress-Schreibweise generieren";
_internetmailaddress1 := @ReplaceSubstring(_notesname;" ";".");
_internetmailaddress2 := @ReplaceSubstring(_notesname;" ";"_");
_internetmailaddress3 := @Left(_notesname;" ") + @Right(_notesname;" ");
_internetmailaddress4 := @Left(_notesname;1) + @Right(_notesname;" ");
_internetmailaddress5 := @Left(_notesname;1) + "." + @Right(_notesname;" ");
_internetmailaddress6 := @Left(_notesname;" ") + " i_"+ @Right(_notesname;" ");
_internetmailaddress7 := @Left(_notesname;" ") + ","+ @Right(_notesname;" ");
_internetmailaddress8 := @Right(_notesname;" ") +" "+ @Left(_notesname;" ");
_internetmailaddress9 := @Right(_notesname;" ") +"."+ @Left(_notesname;" ");
_internetmailaddress10 := @Right(_notesname;" ") +"_"+ @Left(_notesname;" ");
_internetmailaddress11:= @Right(_notesname;" ") +","+ @Left(_notesname;" ");
_internetmailaddress :=_internetmailaddress1:_internetmailaddress2:_internetmailaddress3:_internetmailaddress4:_internetmailaddress5:_internetmailaddress6:_internetmailaddress7:_internetmailaddress8:_internetmailaddress9:_internetmailaddress10:_internetmailaddress11;
_name := @LowerCase(@Trim(_internetmailaddress:@Name([CN];_notesname)));
_Copyto := @LowerCase(@Name([CN];CopyTo));
_BlindCopyTo := @LowerCase(@Name([CN];BlindCopyto));
tmpvar:=
@If(
@Contains(_Copyto; _name)|@Contains(@LowerCase(Copyto); _name); 120;
@If(
@Contains(_BlindCopyto;_name)|@Contains(@LowerCase(BlindCopyto);_name); 114;
@If(
@Contains(@LowerCase(SendTo);_name);115;
0)
)
);
@If(DeliveredDate = "";
@If(PostedDate="" | @IsUnavailable(PostedDate);
@If(@IsAvailable(IsMailStationery);
21;
@IsAvailable(_ViewIcon);
_ViewIcon;
58);
@If(Importance="1";
124;
122));
Importance = "1";
150;
@IsAvailable(_ViewIcon);
_ViewIcon;
tmpvar != 0; tmpvar;
$TypeIcon)Das Problem ist nur, bei meinem Agenten stimmt irgendwas nicht?
Kann mir da vielleicht jemand weiterhelfen, wo der Fehler liegt?
Irgendwas funktioniert "hier" bei der Zuordnung der tmpvar-Variable nicht.
Danke im voraus.