PaulHInstincticve
Programmer
Hi, we have been running a Windows server for some time and sending email via CDOSYS quite happily from our ASP application with copies going to customers and copies coming to ourselves. This used to work fine but for some reason recently the copies to ourselves, ie to mailboxes at the same domain as the webserver have stopped coming through although we can happily email those mailboxes from elsewhere such as an Outlook mail client. Around the same time this stopped working we moved the mailboxes from being hosted on the website with I think pop3 mailboxes to being an entirely local hosted arrangement (in order to implement new anti spam software - which incidently does not appear to be causing this). There are around 4 suppliers involved in supporting the setup, ourselves for the ASP coding, local IT support for the local mailboxes and a web designer who is working with the ISP and we are really struggling to work this out between us. Can anyone give us direction? I personally suspect a hosting issue and something needing configuring to tell the SMTP server that the mailboxes associated with the domain have moved but suggestions of such do not seem to be getting taken on board by the ISP and my own knowledge of that whole area is pretty weak anyway. Can anyone help? A test script we are using to debug the problem is listed below
lcfrom = "membership@mysite.com"
lcto = "office@mysite.com"
lcsmtpserver = "smtp.mysite.com"
sch = "Set cdoConfig = CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpserverport") = 25
cdoConfig.Fields.Item(sch & "smtpserver") = lcsmtpserver
cdoConfig.Fields.Update
Set objmail=CreateObject("CDO.Message")
Set objmail.Configuration = cdoConfig
objmail.Subject="Test Email Script"
objmail.From=lcfrom
objmail.To=lcto
objmail.replyto=lcfrom
objmail.TextBody="This is a test email generated from our test script"
objmail.Send
lcfrom = "membership@mysite.com"
lcto = "office@mysite.com"
lcsmtpserver = "smtp.mysite.com"
sch = "Set cdoConfig = CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpserverport") = 25
cdoConfig.Fields.Item(sch & "smtpserver") = lcsmtpserver
cdoConfig.Fields.Update
Set objmail=CreateObject("CDO.Message")
Set objmail.Configuration = cdoConfig
objmail.Subject="Test Email Script"
objmail.From=lcfrom
objmail.To=lcto
objmail.replyto=lcfrom
objmail.TextBody="This is a test email generated from our test script"
objmail.Send