REM "Button caption text: Send memo to Other";
REM "Popup help text: Send a memo to an 'Other Mail' address out of your personal address book";
REM "Icon: '19x19_inbox.gif'";
_vServer := "";
_vNames := "names.nsf";
_vLkpName := @PickList([Custom]:[Single];_vServer:_vNames;"Contacts";"[Contact]";"Select a contact";2);
_vExit1 := @If(_vLkpName="";@Return("");@Success);
_vLkpOther2 := @DbLookup("Notes":"NoCache";_vServer:_vNames;"($Users)";@LowerCase(_vLkpName);"MiscPhone1";[FailSilent]);
_vLkpOther1 := _vLkpOther2:@DbLookup("Notes":"NoCache";_vServer:_vNames;"($Users)";@LowerCase(_vLkpName);"MiscPhone2";[FailSilent]);
_vLkpOther := _vLkpOther1:@DbLookup("Notes":"NoCache";_vServer:_vNames;"($Users)";@LowerCase(_vLkpName);"MiscPhone3";[FailSilent]);
_vTmp := @Name([Abbreviate];_vLkpName);
_vAll := @For(x:=1;x<=3;x:=x+1;@If(_vLkpOther[x]="";_vTmp:=_vTmp;@Contains(_vLkpOther[x];"@");_vTmp:=_vTmp:_vLkpOther[x];"")
);
_vSelect:=@If(@Elements(_vTmp)=1;_vTmp;@Prompt([OkCancelList];"[New Memo]";"Please select an address";"";_vTmp));
_vExit2 := @If(_vSelect="";@Return("");@Success);
@If(!@Contains(Form;"Bookmark":"Memo":"Phone Message":"Reply":"Personal");@Command([MailComposeMemo]);@Prompt([YesNo];"[Forward]";"Do you want to forward the selected memo?");@Command([MailForward]);@Command([MailComposeMemo]));
@UpdateFormulaContext;
@PostedCommand([EditInsertText];_vSelect)