email-alert-4-Amibroker.afl

//////////////////////////////////////////////
//Email notifier over Support and Resistance level cross
//Coded by Fahim Morshed - Software Engineer
//Date : 31/08/2022
//////////////////////////////////////////////


_SECTION_BEGIN("Email Alert")

//logscale = ParamToggle("Test Scale", "Off|On", 0 ); //add property of parameters 'Name' & 'Value'
//Use Chart's default options
//SetChartOptions( IIf( logScale==1, 2, 3 ), chartWrapTitle );

// Send Alerts even if Amibroker is minimized or Chart is not active
//RequestTimedRefresh(2, False);

//Chart parameter option for both Buy & Sell
ResistanceAlerts = ParamToggle("Alert for Sell","Disable|Enable",0);
SupportAlerts = ParamToggle("Alert for Purchase","Disable|Enable",0);

drawUPLineValue = Study("UP", GetChartID());
UPLineValueAdj = Prec(drawUPLineValue, 3 );
AdjClosePrice = Prec(LastValue(C), 3);

drawDOWNLineValue = Study("DN", GetChartID());
DOWNLineValueAdj = Prec(drawDOWNLineValue, 3 );

text = Name() + " closed today @ TK. " + AdjClosePrice + " Price is " ;
if(ResistanceAlerts)
{
	if(NullCount(UPLineValueAdj))
	{
		Plot( UPLineValueAdj, "No value set yet", ParamColor( "UP Color", colorCycle ));
	} else {
		Plot( UPLineValueAdj, "UP alert sets @ ", ParamColor( "UP Color", colorCycle ), ParamStyle("Style") );
	}
	AlertIf(AdjClosePrice[0] > UPLineValueAdj[0],"EMAIL",text + "High",5,0);	
}	

if(SupportAlerts)
{
	if(NullCount( DOWNLineValueAdj))
	{
		Plot( DOWNLineValueAdj, "No value set yet", ParamColor( "DOWN Color", colorRed ));
	} else {
		Plot( DOWNLineValueAdj, "DOWN alert sets @ ", ParamColor( "DOWN Color", colorRed ), ParamStyle("Style") );
	}
	AlertIf(AdjClosePrice[0] < DOWNLineValueAdj[0],"EMAIL",text + "Low",5,0);
}

_SECTION_END()