Private Sub SendSMS(num As String, Msg As String) On Error GoTo Err Inet.Navigate "http://www.mtnsms.com/session.asp?username=USERNAME&password=PASSWOIRD&email=&joinusclic=no&returl=" While Inet.Busy Or Not Inet.ReadyState = READYSTATE_COMPLETE DoEvents Wend ' Envoi du SMS Inet.Navigate Inet.LocationURL & "?smsToNumbers=" & num & "&smsMessage=" & FormatMessage(Msg) & "&smsSig=0" While Inet.Busy Or Not Inet.ReadyState = READYSTATE_COMPLETE DoEvents Wend Err: End Sub