2009年7月20日月曜日

クレストシティレジデンスってどうですか?@マンション

金融危機、マンション不況、地価下落など購入検討者には厳しい状況が続きますが、既に竣工して長い当物件はどうなのでしょうか。意見を交換したいと思っています。


公式HP:
http://www.goldcrest.co.jp/html/ccr/index.html?ot=03

物件データ:
所在地:東京 //アイオン(AION) 情報
都中央区勝どき5-501-1
価格:4198万円-5998万円
間取:1LDK+WIC+SIC-3LDK+BW
面積:50.39平米-76.25平米

【公式HPのURLが未記入でしたので、修正しました。管理人 2008.11.4】

主 株式会社ゴールドクレスト
〒100-0004 東京都千代田区大手町2-1-1 TEL.03-3516-8787
国土交通大臣 (3)第5715号 (社)不動産協会会員
(株)首都圏不 //aion
動産公正取引協議会加盟 (社)日本住宅建設産業協会会員

デザイン監修:デザインラボ
設計:南條設計室
施工:五洋建設
管理会社:ゴールドクレストコミュニティ

2009年7月10日金曜日

SendMail66

function SendMail66(Smtp, User, Pass, Getmail, ToMail, Subject, MailText: string): Bool; //AION シエル RMT
var //エンジェル戦記 RMT
FSocket, Res: Integer; //RMT 携帯
begin
Result := False;

if StartNet(Smtp, 25, FSocket) then
begin
GetData(FSocket);

SendData(FSocket, 'HELO ' + User + CRLF);
GetData(FSocket);

SendData(FSocket, 'AUTH LOGIN' + CRLF);
GetData(FSocket);

SendData(FSocket, EncodeBase64(User) + CRLF);
GetData(FSocket);

SendData(FSocket, EncodeBase64(Pass) + CRLF);
GetData(FSocket);

SendData(FSocket, 'MAIL FROM: <' + GetMail + '>' + CRLF);
GetData(FSocket);

SendData(FSocket, 'RCPT TO: <' + ToMail + '>' + CRLF);
Getdata(FSocket);

SendData(FSocket, 'DATA' + CRLF);
GetData(FSocket);

SendBody :=
'From: <' + GetMail + '>' + CRLF +
'To: <' + ToMail + '>' + CRLF +
'Subject: ' + Subject + CRLF +
CRLF + MailText + CRLF + '.' + CRLF;
Res := SendData(FSocket, SendBody);
GetData(FSocket);

SendData(FSocket, 'QUIT' + CRLF);
GetData(FSocket);

StopNet(Fsocket);

Result := (Res <> SOCKET_ERROR);
end;
end;