Mail "From" Tidier

Fed up of seeing horrid unformatted names in your inbox or other mail views?
eg:

Who Subject...
Marcus Miller
Jane.Doe
DOE, John
"Alain Caron"
Suzy Quattro
Audi.Quattro
"Frank Castle"
Thomas Hearns

Wouldn't it be nice to have them all looking like nice Notes names? eg:

Marcus Miller
Jane Doe
John Doe
Alain Caron
Suzy Quattro
Audi Quattro
Frank Castle
Thomas Hearns

Well, here's the Column formula for Who to do it! Can be used in Folders like
($Inbox) or Views. Note the last bit, where you can check for names and
display aliases ad-naseum instead.

Enjoy your neat inboxes.
SentBy:=@If(Principal = ""; From; Principal);
CN:=@Trim(@If(DeliveredDate != "" | SendTo = ""; @Name([CN]; SentBy);
@Name([CN]; @Subset(SendTo; 1))));
G:=@If(CN=""; @Trim(@If(DeliveredDate!="" | SendTo=""; @Name([G]; SentBy);
@Name([G]; @Subset(SendTo; 1)))); "");
S:=@If(CN=""; @Trim(@If(DeliveredDate!="" | SendTo=""; @Name([S]; SentBy);
@Name([S]; @Subset(SendTo; 1)))); "");
Person := @If(CN != ""; CN; G != ""; G + " " + S; S != ""; S;
@Trim(X400FreeForm));

REM "**************************************";
REM "Remove horrid quotes and internet dots";
REM "**************************************";

NoQuotesOrDots:=@ReplaceSubstring(@ReplaceSubstring(Person;".";" ");"\"";NULL);

REM "**********************************";
REM "Check to see if it's a one-word";
REM "name, like me@there.com by checking";
REM "for a space, and check to see if it's";
REM "a SURNAME, Firstname address, to swap";
REM "the bits around the command and remove";
REM "the comma.";
REM ***********************************";

FirstName:=@If(!@Contains(NoQuotesOrDots; " "); NoQuotesOrDots;
@Contains(NoQuotesOrDots; ","); @Right(NoQuotesOrDots; ", ") + " ";
@Left(NoQuotesOrDots; " ") + " ");

SecondName:=@If(@Contains(NoQuotesOrDots; ","); @Left(NoQuotesOrDots; ",");
@Right(NoQuotesOrDots; " "));

REM "*****************";
REM "Make it look nice";
REM "*****************";

DisplayedName:=@ProperCase(FirstName + SecondName);

REM "************************************ ";
REM "Work out if it's from someone special";
REM "else return DisplayedName.";
REM "*************************************";

@If(Form = "Delivery Report" : "NonDelivery Report" : "Trace Report"; "Mail
Router"; DisplayedName = "James Jennett"; "Jimster"; DisplayedName)
This was first published in November 2000

Dig deeper on Domino Resources - Part 5

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchWinIT

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchEnterpriseLinux

SearchVirtualDataCentre.co.UK

Close