This is the code for the action button “Ouvrir la messagerie d’une autre personne” in form Switcher Form for Mail :
tmpOtherName := “{~:04PO280BqLo05iZ7U0BqXAOther…~}”;
tmpManageCalendarFor := @Name([Abbreviate]; @Trim(@GetProfileField(“{~:04PO280BqLo05iZmE0BqXACalendarProfile~}”;“{~:04PO280BqLo05iZvo0BqXAManageCalendarFor~}”)));
tmpChoice := @If(tmpManageCalendarFor != “” & @Elements(tmpManageCalendarFor) > 0;
@Prompt([OkCancelList]: [NoSort]; "{~:04PO280BqLo05iZCo0BqXAOpen Mail File For~}"; "{~:04PO280BqLo05iZJo0BqXASelect a Mail File to Open~}"; @Subset(tmpManageCalendarFor; 1); tmpManageCalendarFor: tmpOtherName);
tmpOtherName);
@If(tmpChoice = 1 | tmpChoice = “”; @Return(0);“”);
entername := @If(tmpChoice = tmpOtherName; “”; tmpChoice);
@Command([OpenCalendar]; entername; [UseMailFrameset])
It should read :
tmpOtherName := “Autres…”;
tmpManageCalendarFor := @Name([Abbreviate]; @Trim(@GetProfileField(“CalendarProfile”;“ManageCalendarFor”)));
tmpChoice := @If(tmpManageCalendarFor != “” & @Elements(tmpManageCalendarFor) > 0;
@Prompt([OkCancelList]: [NoSort]; "Ouvrir la messagerie de"; "Sélectionnez une messagerie à ouvrir."; @Subset(tmpManageCalendarFor; 1); tmpManageCalendarFor: tmpOtherName);
tmpOtherName);
@If(tmpChoice = 1 | tmpChoice = “”; @Return(0);“”);
entername := @If(tmpChoice = tmpOtherName; “”; tmpChoice);
@Command([OpenCalendar]; entername; [UseMailFrameset])