当ブログに掲載しているサンプルは、すべて利用者の自己責任という形でお願いします。
ただし、明らかな不具合がある場合、ご連絡いただければ、訂正記事を出します。
また、こちらのサンプルは、別のサイト等への公開、転載は一切禁止しています。
どうしてもと言う場合は、筆者にあらかじめご連絡ください。
記事そのもののリンクについてはご自由に行っていただいてよいです。

テクてく Lotus 技術者 Slack に参加しよう!

2008年10月1日水曜日

メールアドレスの抽出

文書中のメールアドレスから、アドレス部分だけを抽出する方法。

どのアドレスに送信してきたのかを確認するのに使えるかな。
Address821形式であれば、そのまま抽出すればよいのだが、
Address822形式の場合、フレーズパートが付いてくるので、分かりづらい。

サンプルは、そのフレーズパートを除いてしまうものである。

@For(
 i:=1;
 i<=@Elements(SendTo);
 i:=i+1;
 tmp:=tmp:@If(@ValidateInternetAddress([Address821];SendTo[i])="";
    SendTo[i];
    @Right(@Left(SendTo[i];">");"<")
   )
 );
@For(
 i:=1;
 i<=@Elements(CopyTo);
 i:=i+1;
 tmp:=tmp:@If(@ValidateInternetAddress([Address821];CopyTo[i])="";
    CopyTo[i];
    @Right(@Left(CopyTo[i];">");"<")
   )
 );
@For(
 i:=1;
 i<=@Elements(BlindCopyTo);
 i:=i+1;
 tmp:=tmp:@If(@ValidateInternetAddress([Address821];BlindCopyTo[i])="";
    BlindCopyTo[i];
    @Right(@Left(BlindCopyTo[i];">");"<")
   )
 );

@Prompt([Ok];"メールアドレスの抽出";@Implode(@Unique(@Trim(tmp))))


Notes/Dominoについてなんでも聞いてみよう!
Lotus Notes/Domino カスタマイズとセキュリティ強化 - 株式会社エフ

0 件のコメント: