Sign in to follow this  
Followers 0
systemhijack

CDO Message

1 post in this topic

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



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 account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0