Tip

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

There are Comments. Add yours.

 
TIP: Want to include a code block in your comment? Use <pre> or <code> tags around the desired text. Ex: <code>insert code</code>

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy
Sort by: OldestNewest

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:

Disclaimer: Our Tips Exchange is a forum for you to share technical advice and expertise with your peers and to learn from other enterprise IT professionals. TechTarget provides the infrastructure to facilitate this sharing of information. However, we cannot guarantee the accuracy or validity of the material submitted. You agree that your use of the Ask The Expert services and your reliance on any questions, answers, information or other materials received through this Web site is at your own risk.