Solved

asp email xp

Posted on 2007-04-03
5
313 Views
Last Modified: 2013-11-30
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.
0
Comment
Question by:synergiq
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 2
5 Comments
 
LVL 16

Expert Comment

by:Wadski
ID: 18842280
have you got an SMTP service installed on your local install?

Are you using CDONTS ?
0
 
LVL 2

Author Comment

by:synergiq
ID: 18842288
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
 
LVL 16

Expert Comment

by:Wadski
ID: 18842339
>  .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
 
LVL 2

Author Comment

by:synergiq
ID: 18842421
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
 
LVL 16

Accepted Solution

by:
Wadski earned 500 total points
ID: 18842614
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

Featured Post

The Ultimate Checklist to Optimize Your Website

Websites are getting bigger and complicated by the day. Video, images, custom fonts are all great for showcasing your product/service. But the price to pay in terms of reduced page load times and ultimately, decreased sales, can lead to some difficult decisions about what to cut.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Resolve Outlook connectivity issues after moving mailbox to new Exchange 2016 server
As tax season makes its return, so does the increase in cyber crime and tax refund phishing that comes with it
This video Micro Tutorial shows how to password-protect PDF files with free software. Many software products can do this, such as Adobe Acrobat (but not Adobe Reader), Nuance PaperPort, and Nuance Power PDF, but they are not free products. This vide…
Do you want to know how to make a graph with Microsoft Access? First, create a query with the data for the chart. Then make a blank form and add a chart control. This video also shows how to change what data is displayed on the graph as well as form…

691 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question