• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 316
  • Last Modified:

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.
0
synergiq
Asked:
synergiq
  • 3
  • 2
1 Solution
 
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

Featured Post

Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

  • 3
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now