ReMBK200k+ImMKB200k-Out[3][[2]]
In[]:=
f[x_]=E^(IPix)(1-(1+x)^(1/(1+x)));​​​​Timing[NIntegrate[I(f[It]),{t,0,Infinity},WorkingPrecision200000,Method"Trapezoidal",MaxRecursion17]]
Out[]=
$Aborted