systemhijack 0 Posted September 17, 2007 Anyone knows how to fix the Proxy part? Thanks. Func Email($oSmtp, $oFrom, $oTo, $oTimes, $oProxy) $oCdo = ObjCreate("CDO.Message") With $oCdo If $oProxy == "" = 0 Then .SetProxy (2, $oProxy) EndIf .From = $oFrom .To = $oTo EndWith With $oCdo.Configuration.Fields .Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $oSmtp .Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Update EndWith $sTimes = 0 Do $oCdo.Send $sTimes = $sTimes + 1 Until $sTimes = $oTimes Return EndFunc ;==>Email Share this post Link to post Share on other sites