CDO Message

[systemhijack 0]

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