FileMaker で Google Apps (Gmail) の PermanentLink を取得するカスタム関数

自分用に、Google Apps の個々のメールの PermanentLink を取得する FileMaker の カスタム関数を作りました。理屈は、別記事：Google Apps (Gmail) で PermanentLink を取得する方法 の通りです。

____________________
GetGmailURL ( webviewerObjectName ; shvaOption )
____________________

// Created: 2011/02/15
// by bison
//
// Parameter:
// 　webviewerObjectName : Webビューアのオブジェクト名
// 　shvaOption : 0 の場合 shvaパラメータを省略します。
// 　　1 もしくは 空値 ( "" ) の場合は ?shva=1 を付けます。
// Explanation:
// 　GMail (Google Apps) の個別メッセージURLの場合、
// 　個々のメッセージのパーマネントURL を返します。
// 　それ以外の場合、当該Webビューアで表示中のURLを返します。
/////////////////
Let (
[
$myurl = GetLayoutObjectAttribute ( webviewerObjectName ; "source" ) ;
$gmailJudgeText = "https://mail.google.com/mail/" ;
$startPos = Length ( $gmailJudgeText ) ;
$gmailFlag = Left ( $myurl ; $startPos ) = $gmailJudgeText ;
$spos = Position ( $myurl ; "/" ; 1 ; PatternCount ( $myurl ; "/" ) ) // Position of last slash
] ;

Case ( $gmailFlag ;
Replace ( $myurl ; $startPos ; $spos - $startPos ;
Case ( shvaOption = 0 or IsEmpty ( shvaOption ) ; "/#all" ;
"/?shva=1/#all" ) )
; $myurl ) // Case
)

____________________

※ shvaOption については、Gmail's SHVA ParameterGmailで日本語を検索した際の不具合あたりを参照してください。