Converting Notes Names into Internet Addresses
With IBM Connections en route to many Notes shops an interesting problem arose: Many users want to convert their private mailing list into an IBM Connections community (making IBM sales happy, since you need to upgrade to full Connections for that).
I think that is a terrific idea - moving away from occasional mail blast to a rich online collaboration. Unfortunately IBM connections allows the bulk upload of member information only using their Internet addresses, but not the Notes Names that are in the private group documents. The solution is simple:
Go to File - Pre ferences... - Toolbar Customize and add a new button. In this button add this formula:
Update: When you want to save the list to a file to import them into Connections, you need to add 2 (two) empty lines on top. Otherwise it won't accept the import
As usual YMMV
I think that is a terrific idea - moving away from occasional mail blast to a rich online collaboration. Unfortunately IBM connections allows the bulk upload of member information only using their Internet addresses, but not the Notes Names that are in the private group documents. The solution is simple:
Go to File - Pre ferences... - Toolbar Customize and add a new button. In this button add this formula:
result := "";
realresult := "";
@For (n := 1;n <= @Elements (Members );n := n + 1;
look := @Trim ( @NameLookup ( [Exhaustive ];Members [n ]; "InternetAddress" ) );
realresult := @Trim ( @Unique (realresult:look ) );
result := @Trim ( @Unique (result : @If (look= "";@Name ( [Abbreviate ];Members [n ] );look ) ) ) );
FIELD comment := @Implode (result;@NewLine );
@Prompt ( [Ok ]; "Members " + @Text ( @Elements (Members ) ); "Found " + @Text ( @Elements (realresult ) )+ " emails for "+ @Text ( @Elements (Members ) )+ " Notes Names" )
Now open your personal address book (a.k.a Contacts) and select a group in the group view. The button now looks up the internet addresses in the Domino directory for you. It will update the comment field, you you might want to adjust that to your needs. Use the button in the view, not when the document is open. If an eMail is not found (e.g. since it *is* an eMail already, the name will be copied 1:1 into the new list.
realresult := "";
@For (n := 1;n <= @Elements (Members );n := n + 1;
look := @Trim ( @NameLookup ( [Exhaustive ];Members [n ]; "InternetAddress" ) );
realresult := @Trim ( @Unique (realresult:look ) );
result := @Trim ( @Unique (result : @If (look= "";@Name ( [Abbreviate ];Members [n ] );look ) ) ) );
FIELD comment := @Implode (result;@NewLine );
@Prompt ( [Ok ]; "Members " + @Text ( @Elements (Members ) ); "Found " + @Text ( @Elements (realresult ) )+ " emails for "+ @Text ( @Elements (Members ) )+ " Notes Names" )
Update: When you want to save the list to a file to import them into Connections, you need to add 2 (two) empty lines on top. Otherwise it won't accept the import
As usual YMMV
Posted by Stephan H Wissel on 12 October 2011 | Comments (2) | categories: Show-N-Tell Thursday