asp email xp

hi can someone please post a simple scrpt to send emails out via iis using windows xp, i can get this working on server but not on local install.
LVL 2
synergiqAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

WadskiIT DirectorCommented:
have you got an SMTP service installed on your local install?

Are you using CDONTS ?
0
synergiqAuthor Commented:
here is what i currently have on the server, this however does not work on xp.

<%
Dim sch, cdoConfig, cdoMessage
sch = "http://schemas.microsoft.com/cdo/configuration/"

    Set cdoConfig = CreateObject("CDO.Configuration")

    With cdoConfig.Fields
        'Set CDO Port
       .Item(sch & "sendusing") = 2
        'Set mailserver name either IP address, mail.yoursite.com or localhost
       .Item(sch & "smtpserver") = MailServer
        'Set SMTP port which is 25 by default
       .Item(sch & "smtpserverport") = 25
        'Set number of seconds before timeout
       .Item(sch & "smtpconnectiontimeout") = 60
       .update
   End With

    Set cdoMessage = CreateObject("CDO.Message")

    With cdoMessage
        Set .Configuration = cdoConfig
       .From = MailFrom
       .To = var_email
       .Subject = var_Customer_Address&" (ELECTRIC)"
       .HTMLBody = var_Customer_Address&" (ELECTRIC)"
       .AddAttachment gas_out_box_install&var_formname
       .Send
    End With

    Set cdoMessage = Nothing
    Set cdoConfig = Nothing
%>
0
WadskiIT DirectorCommented:
>  .Item(sch & "smtpserver") = MailServer
You need to change this to the SMTP address of your mailserver.  Locally you can setup an SMTP server in IIS OR you can point it directly to your ISP's Mailserver.  (but you may be required to change this when you put it into a production environment)
0
synergiqAuthor Commented:
I have set the MailServer variable to my remote mail server, but that still does not work here is the error message I am getting.

(0x8004020F)
The event class for this subscription is in an invalid partition
/mobliq/inc_write_install.asp, line 1075


line 1075 reads

<%
Dim sch, cdoConfig, cdoMessage
sch = "http://schemas.microsoft.com/cdo/configuration/"

    Set cdoConfig = CreateObject("CDO.Configuration")

    With cdoConfig.Fields
        'Set CDO Port
        .Item(sch & "sendusing") = 2
        'Set mailserver name either IP address, mail.yoursite.com or localhost
        .Item(sch & "smtpserver") = MailServer
        'Set SMTP port which is 25 by default
        .Item(sch & "smtpserverport") = 25
        'Set number of seconds before timeout
        .Item(sch & "smtpconnectiontimeout") = 60
        .update
    End With

    Set cdoMessage = CreateObject("CDO.Message")

    With cdoMessage
        Set .Configuration = cdoConfig
        .From = MailFrom
        .To = var_email
    .Subject = var_Customer_Address&" (INSTALL)"
        .HTMLBody = var_Customer_Address&" (INSTALL)"
        .AddAttachment gas_out_box_survey&var_formname
        .Send <--------------------------------------------------------------------1075
    End With

    Set cdoMessage = Nothing
    Set cdoConfig = Nothing
%>
0
WadskiIT DirectorCommented:
Is your remote mailserver allowing you to relay through it? Generally it would be set to prevent this type of connection for fear of being used as an open relay.

I don't believe this is an issue with the code as it works on the remote machine just not locally.
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Email Protocols

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.