Here's the code I'm using

SET PROCEDURE TO Inifiles.prg ADDITIVE 

oIni= CreateObjec("Ini_Files")

loExplorer = CreateObject("InternetExplorer.Application")
loExplorer.Navigate2("www.whatismyip.com")
DO WHILE loExplorer.readystate <> 4
ENDDO
loDoc = loExplorer.Document
MyPublicIp = loDoc.Body.Innertext
m.lcReturnYourIP = "UNKNOWN"
if ratc("Your IP is ",MyPublicIp,1) > 0
	m.lcReturnYourIP = strtran(strtran(alltrim(substr(myPublicIp,;
	ratc("Your IP is ",MyPublicIp,1)+11,15)),chr(13)),chr(10))
endif
Thisform.prpip = m.lcReturnYourIP

lcIpActuel = oIni.GetIniEntry("TCP/IP","ISP",'.\Datadis.ini')
IF EMPTY(lcIpActuel)
	lcIpActuel = "192.168.0.1"
ENDIF 
IF !(ALLTRIM(Thisform.prpIp) = ALLTRIM(lcIpActuel))
	DO FORM FrmAvi NAME oFrmAvi  WITH "F","PLAY","Mise à jour de l'adresse du serveur","Un instant S.V.P !"
	Application.AutoYield = .F.
	Thisform.Mailact = 1

	iMsg = Createobject("CDO.Message")
	iConf = Createobject("CDO.Configuration")
	Flds = iConf.Fields
	With Flds
		.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = Thisform.prpSmtp
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = .F.
		.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = .F.

		.Update
	Endwith
	With iMsg
		.Configuration = iConf
		.To = Thisform.prpto
		.CC = ""
		.BCC = ""
		.From = Thisform.prpFrom
		.Subject = "Nouveau IP du serveur"
		.TextBody = "Le nouveau IP est "+Thisform.prpIp
		.Send()
	Endwith
	iMsg = .Null.
	iConf = .Null.

	application.AutoYield = .T.
	oIni.PutIniEntry("TCP/IP","ISP",Thisform.prpIp,".\Datadis.ini")
	oFrmAvi.Release 
ENDIF 

I'm wondering if there's a way to change the http://schemas.microsoft.com lines with code or I can't use the CDO without it.

TIA