I think the parenthesis around i and the wrong expression for infinity are the problems. When troubleshooting, it's best to break things up into smaller parts.
f[u_] := NIntegrate[Exp[-i]/i, {i, 1/u, \[Infinity]}] LogLogPlot[f[u], {u, .1, 10000}]
