systemhijack Posted September 17, 2007 Share 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 Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now