//+------------------------------------------------------------------+
//|                                                    MailAlert.mq4 |
//|                      Copyright ｩ 2010, MetaQuotes Software Corp. |
//|                                        http://www.metaquotes.net |
//+------------------------------------------------------------------+
#property copyright "Copyright ｩ 2010, MetaQuotes Software Corp."
#property link      "http://www.metaquotes.net"

/*    メールアラートプログラム
      　指定した基準レートに対して、指定したらアラーム幅分
        レートが上昇（あるいは下降）した場合に、
        メール送信を行う。
*/        

   int mail =0;
   extern string KjnRateL = "↓基準レート";
   extern double KjnRate = 1.385;
   extern string AlertHabaL = "↓アラーム幅";
   extern double AlertHaba = 0.005;
   
   
//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+------------------------------------------------------------------+
int init()
  {
//----
         Alert("");
         Alert(WindowExpertName(), " START");
         Alert( "KjnRate:" + KjnRate + " AlertHaba:" + AlertHaba);
         Comment("                      KjnRate:" + KjnRate + " AlertHaba:" + AlertHaba );
   
//----
   return(0);
  }

//+------------------------------------------------------------------+
//| expert start function                                            |
//+------------------------------------------------------------------+
int start()
  {
//----

      //　基準レートより、アラーム幅分、上昇した場合、
      if(Bid >= KjnRate + AlertHaba)
      {
         KjnRate = KjnRate + AlertHaba;
         mail("Rate Inf");
      }

      //　基準レートより、アラーム幅分、下降した場合、
      else if (Bid <=  KjnRate - AlertHaba)
      {
         KjnRate = KjnRate - AlertHaba;
         mail("Rate Inf");
      }

//----
   return(0);
  }
  
//+------------------------------------------------------------------+
// メール、アラート表示、コメントを別メソッド化
//+------------------------------------------------------------------+
//
int mail(string word)
   {
         // 不要なものはコメント化します。
         SendMail(WindowExpertName(), AccountServer() + Symbol() + " Bid: "+ Bid + " Ask: "+Ask + " KjnRate:" + KjnRate + " AlertHaba:" + AlertHaba + " word:" + word);
         Alert( " KjnRate:" + KjnRate + " AlertHaba:" + AlertHaba);
         Comment("                      KjnRate:" + KjnRate + " AlertHaba:" + AlertHaba );


   return(0);
   }
  
//+------------------------------------------------------------------+
//| expert deinitialization function                                 |
//+------------------------------------------------------------------+
int deinit()
  {
//----

         Alert(WindowExpertName(), " END");
   
//----
   return(0);
  }
//+------------------------------------------------------------------+