Error while plotting a function, having an integration in equation

I am trying to plot a function which also includes a definite integration but I am getting an error (invalid integration variable or limit(s)
Here is the code which I am trying

    w = 1.26*10^8;
    k = 1.38*10^-23;
dynamicImag[T_?NumericQ, s_?NumericQ, d_?NumericQ, A_?NumericQ, 
  t_?NumericQ] := A*(1 - NIntegrate[(w*t*(((1/(Sqrt[2*Pi]*s*H))*Exp[(-(Log[(H/d)])^2/(2*s^2))])))/((1 + (w^2*t^2*Exp[((2*H)/(k*T))]))), {H, 0, 6.0*10^-22}])
   PlotImag = Plot[dynamicImag[T, 0.24, 8*10^-23, 1*10^-4, 1*10^-12], {T, 0, 1.6}, PlotRange -> All]