Local iMsg,iConf Declare SHORT InternetGetConnectedState In wininet.Dll; INTEGER @lpdwFlags, Integer dwReserved lConnect=displayState() If lConnect 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") = 'Your SMTP server name here' .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Update Endwith With iMsg .Configuration = iConf .To = "me@hotmail.com" .CC = "" .BCC = "" .From = "me@somewhere.com" .Subject = "Ceci est un essaye" .TextBody = "Le corps du message" .AddAttachment( "C:/" + lcFilename) && Must be a valid file .Send Endwith iMsg = .Null. iConf = .Null. wb = .Null. Else Messagebox("Impossible to send. No connection!") Endif Procedure displayState Local lConnected lConnected = .F. lpdwFlags = 0 If InternetGetConnectedState (@lpdwFlags, 0) = 1 lConnected = .T. Endif Return lConnected Endproc>Hi all