Email cdosys problem suddenly and before was working good was sent to blacklist

https://www.abuseat.org/namingproblems.html

Spells out why you are getting on the list...

First you need to figure out what originates the mail, then if it is relayed from inside your organization, how that relay is set up...

You say server 2008, but you don't mention what you are using for email server services.

Well I use windows 2008 server and for mail CDOSYS. i have configure on the relay of II6 the 127.0.0.1 and our IP. We have IIS 7.5 for years but IIs 6.0 since the beginning was used for emails. There is nothing else like that worked and the code:

Dim ObjSendMail

Set ObjSendMail = CreateObject("CDO.Message")

   

'This section provides the configuration information for the remote SMTP server.

   

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 'Send the message using the network (SMTP over the network).

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup"

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False)

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

   

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = youremail

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = yourpassword

   

ObjSendMail.Configuration.Fields.Update

Set a Fully Qualified Domain Name

At startup, the name that is designated on the Network Identification tab of the System Properties dialog box is automatically used for the fully qualified domain name (FQDN). If you change the name (either manually or by joining a Microsoft Windows 2000 domain), the new name is automatically used for the FQDN the next time the computer is restarted. You do not have to perform any action to update the FQDN for the virtual server.


To override the automatic use of the computer and domain names on the Network Identification tab, change the FQDN in the Advanced Delivery dialog box (this is accessed through the Delivery tab). The Microsoft SMTP Service can then use the designated name instead of the name that is specified on the Network Identification tab. To set the FQDN, follow these steps:

    In the MMC, click to select the SMTP virtual server, and then click Properties on the Action menu.
    On the Delivery tab, click Advanced to open the Advanced Delivery dialog box.
    For Fully-qualified domain name, type the FQDN.

I guess the FQDN is the Full computer name innsystem properties ok?
Now that name I need to include also in the cdosys script replacing the 127.0.0.1 for that name?
I mean 127.0.0.1 is on cdosys script like symptoms server, instead of that we use the FQDN name?

I would use whatever outside address your system is sending mail from...
If your mail is only internal, it shouldn't be triggering blacklists anyway

Is internal only. Now Imdid what you said Imreplaced then FQDN in Delivery advancedntab in MMS settings and now the mails go to queue directory and are stuck there. And also I tested my qualified domain and like a test I resolved the DNS of that qualified domain and points to our IP address is on relay. That is just a comment I don’t know if that is correct.

If your mail is internal only, then just exempt your internal system from doing blacklist lookups on that address... I don't see how internal only mail is triggering a blacklist... It has to be going outside of your organization to an outside recipient

Oh sorry to miss understood. Is internal Immean with the 127.0.0.1 really but we use cdosys to send emails the internet. The CDOSYS script you saw takes data from a user form. Is a support form, the users enter their data and then the email is sent to management on a company.

What could be?

Let me get this straight... You have a web form that creates an email... Does this email ever go outside to say a gmail address or any email server outside of your organization?

Does it go to your company email server to get sent, or does it go to a smart host somewhere? It really shouldn't be trying to send to the internet by itself, and if it is trying to relay thru another server, its helo should just be a FQDN,

Without knowing exactly how or where this goes, or all the servers it might touch, it is a bit harder to diagnose...  

If it is actually adding the ip address you originally posted in your first question, then look at that server to make sure the FQDN is set right...  
It was just recently that they tightened restrictions on helo names and I got hit with it also on our smart hosts... hey had internal domain names, and were not legal outside the building so I had to change them to their outside FQDN's...

Look suppose we have a form like www.hello.com/form.asp then a user navigates that form and enter her/his data then is sent to this asp, where is all the CDOSYS:

<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<META http-equiv="Pragma" CONTENT="no-cache">


<title>Message sent</title>
<style type="text/css">
<!--
.BotonExit2 {
	color: #FFFFFF;
	background-color: #FF0000;
}
-->
</style>
</head>

<body> 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<%
DIM strEmail
strEmail = Request.Form("Email")
IF strEmail <> "" AND inStr(strEmail,"@") <> 0 AND inStr(strEmail,".") <> 0 THEN



'First lets Dim all the variables we need

Dim emailfromr 

Dim email

Dim name

Dim message

Dim company

Dim telephone

Dim address1

Dim city

Dim state

Dim zip

Dim users

Dim app_name

Dim decision_time

Dim OS

Dim bandwidth

Dim DedicatedFirewall

Dim TapeBackup

Dim special_details

Dim MyBody

Dim MyMail

Dim MyEmail

Dim SmtpMail

Dim racecn

Dim cn
 

'Now lets get some values for the variables from the form

smtpserver = "127.0.0.1"

youremail = "myemailto@gmail.com"

yourpassword = "ADDYOURPASSWORD"

email = Request.Form("email")

emailfromr = "info@ourcompany.com"

If email = "" then email ="Invalid Mail"

name = Request.Form("name")

message = Request.Form("message")

company = Request.Form("company")

telephone = Request.Form("telephone")

address = Request.Form("address")

city = Request.Form("city")

state = Request.Form("state")

zip = Request.Form("zip")

users = Request.Form("users")

app_name = Request.Form("app_name")

decision_time = Request.Form("decision_time")

OS = Request.Form("OS")

bandwidth = Request.Form("bandwidth")

DedicatedFirewall = Request.Form("DedicatedFirewall")

TapeBackup = Request.Form("TapeBackup")

special_details = Request.Form("special_details")

cn = Request.QueryString("cn")

 

'Now lets build the body of the email from the data in the form

MyBody = "<p><font face=Arial size=2>" & Chr(13) & vbcrlf

MyBody = MyBody & "Ñame who sent: "& Name & Chr(13) & vbcrlf & "<br>"

MyBody = MyBody & "Email who sent: "& email & vbcrlf & "<br>"

MyBody = MyBody & "Message: "& message & vbcrlf & "<br>"

'Now lets put the variables and other information we need into the mailing script 

TitleRace = "Question "

Dim ObjSendMail

Set ObjSendMail = CreateObject("CDO.Message") 

   

'This section provides the configuration information for the remote SMTP server.

   

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 'Send the message using the network (SMTP over the network).

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup"

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False)

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

   

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = youremail

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = yourpassword

   

ObjSendMail.Configuration.Fields.Update

   

'End remote SMTP server configuration section==

   

ObjSendMail.To = youremail

ObjSendMail.Subject = TitleRace
ObjSendMail.From = emailfromr

   

' we are sending a html email.. simply switch the comments around to send a text email instead

ObjSendMail.HTMLBody = MyBody

'ObjSendMail.TextBody = MyBody no

   

ObjSendMail.Send

   

Set ObjSendMail = Nothing 
%>
 <font face=Arial color=#878787 size=2>We will answer soon.
<br>
<br><br>

<font color=#58D1F0>

<% =Replace(MyBody,vbCr,"<font face=Arial size=2>") %>

</font>

 
<br><br>

<input name="Click Here to Exit or Close this Window" type="hidden" class="BotonExit2" onClick="history.go(-1)" value="Sent other message">
<% ELSE
Response.Write "<p><font face=Arial color=#878787 size=2>Invalid mail.</font></b></p>"

IF strEmail <> "" THEN
ELSE
Response.Write ""
END IF
IF inStr(strEmail,"@") <> 0 THEN
ELSE
Response.Write ""
END IF
IF inStr(strEmail,".") <> 0 THEN
ELSE
Response.Write ""
END IF
%>

<input type="image" src="downcdo.jpg" onmouseover="this.src='downcdoover.jpg'" onmouseout="this.src='downcdo.jpg'" onClick="history.go(-1)" value="Press here to fix" name="Click Here to Back and fill the Form again" />

<%
END IF 
%>

</body>
</html> 

Select allOpen in new window

And this is the file that is located and stuck in queue:
 

Received: from mail pickup service by 127.0.0.1 with Microsoft SMTPSVC;
	 Thu, 5 Apr 2018 21:06:04 -0500
Thread-Topic: Question
thread-index: AdPNS9FgSJXrHYSVQemOqAKb0B9Xjg==
From: <info@ourcompany.com>
To: <myaddress@gmail.com>
Subject: Question of support
Date: Thu, 5 Apr 2018 21:06:04 -0500
Message-ID: <3387587AED38442BB46160167072C792@masterserver.servertx>
MIME-Version: 1.0
Content-Type: multipart/alternative;
	boundary="----=_NextPart_000_0014_01D3CD21.E88B3B50"
X-Mailer: Microsoft CDO for Windows 2000
Content-Class: urn:content-classes:message
Importance: normal
Priority: normal
X-MimeOLE: Produced By Microsoft MimeOLE V6.1.7601.24000
X-OriginalArrivalTime: 06 Apr 2018 02:06:04.0496 (UTC) FILETIME=[D1803D00:01D3CD4B]

This is a multi-part message in MIME format.

------=_NextPart_000_0014_01D3CD21.E88B3B50
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: 7bit

Who: prueba ok 
Email who send: ok@ok.com 
Message: ok 


------=_NextPart_000_0014_01D3CD21.E88B3B50
Content-Type: text/html
Content-Transfer-Encoding: 7bit

<p><font face=Arial size=2>



<br>body
<br>ok 
<br>
------=_NextPart_000_0014_01D3CD21.E88B3B50--

 

Select allOpen in new window

 That last part not moved from queue directory. The strange one month ago exactly that script was working perfect, suddenly happened. Maybe happened like you said you was hit also. How can I fix? The emails were never received and you could imagine the people how they are.
On the scripts just changed with non real example, my mail to for my gmail address, also non real the mail company and server name.

I hope there is a solution.
Regards

One note. Is just one server with one page and it’s form. And of course the is on blacklist like you said me before. But stuck in queue I think is not that.

This is another test changing an IP:

From: postmaster@server.servermaster.servertx
To: info@ourcompany.com
Date: Thu, 5 Apr 2018 22:16:00 -0500
MIME-Version: 1.0
Content-Type: multipart/report; report-type=delivery-status;
	boundary="9B095B5ADSN=_01D3CD5594F88EA400000001127.0.0.1"
X-DSNContext: 7ce717b1 - 1196 - 00000002 - 00000000
Message-ID: <FRaqbC8wS00000001@127.0.0.1>
Subject: Delivery Status Notification (Failure)

This is a MIME-formatted message.  
Portions of this message may be unreadable without a MIME-capable mail program.

--9B095B5ADSN=_01D3CD5594F88EA400000001127.0.0.1
Content-Type: text/plain; charset=unicode-1-1-utf-7

This is an automatically generated Delivery Status Notification.

Delivery to the following recipients failed.

       myemail@gmail.com




--9B095B5ADSN=_01D3CD5594F88EA400000001127.0.0.1
Content-Type: message/delivery-status

Reporting-MTA: dns;127.0.0.1
Received-From-MTA: dns;server.servermaster.servertx
Arrival-Date: Thu, 5 Apr 2018 21:06:04 -0500

Final-Recipient: rfc822;myemail@gmail.com
Action: failed
Status: 5.5.0
Diagnostic-Code: smtp;550-5.7.1 [xxx.xxx.xxx.xx] The IP address sending this message does not have a
550-5.7.1 PTR record setup. As a policy, Gmail does not accept messages from
550-5.7.1 IPs with missing PTR records. Please visit
550-5.7.1  https://support.google.com/mail/answer/81126#authentication for more
550 5.7.1 information. k64si2694593qkd.422 - gsmtp

--9B095B5ADSN=_01D3CD5594F88EA400000001127.0.0.1
Content-Type: message/rfc822

Received: from mail pickup service by 127.0.0.1 with Microsoft SMTPSVC;
	 Thu, 5 Apr 2018 21:06:04 -0500
Thread-Topic: Quesiom
thread-index: AdPNS9FgSJXrHYSVQemOqAKb0B9Xjg==
From: <info@ourcomoany.com>
To: <mygmail@gmail.com>
Subject: Question
Date: Thu, 5 Apr 2018 21:06:04 -0500
Message-ID: <3387587AED38442BB46160167072C792@servermaster.servertx>
MIME-Version: 1.0
Content-Type: multipart/alternative;
	boundary="----=_NextPart_000_0014_01D3CD21.E88B3B50"
X-Mailer: Microsoft CDO for Windows 2000
Content-Class: urn:content-classes:message
Importance: normal
Priority: normal
X-MimeOLE: Produced By Microsoft MimeOLE V6.1.7601.24000
X-OriginalArrivalTime: 06 Apr 2018 02:06:04.0496 (UTC) FILETIME=[D1803D00:01D3CD4B]

This is a multi-part message in MIME format.

------=_NextPart_000_0014_01D3CD21.E88B3B50
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: 7bit


Email: ok@ok.com 
Message: todo ok ya 


------=_NextPart_000_0014_01D3CD21.E88B3B50
Content-Type: text/html
Content-Transfer-Encoding: 7bit

<p><font face=Arial size=2>



<br>Email: ok@ok.com
<br>Message: todo ok ya
<br>
------=_NextPart_000_0014_01D3CD21.E88B3B50--


--9B095B5ADSN=_01D3CD5594F88EA400000001127.0.0.1--

Select allOpen in new window

Same stuck in queue.

Ok I will do. Yes I contacted the black listed and they removed. But you mention to put the our address as the helo name, how can I do that? Where?

I think I posted that earlier...
https://www.experts-exchange.com/questions/29093049/Email-cdosys-problem-suddenly-and-before-was-working-good-was-sent-to-blacklist.html?anchorAnswerId=42523782#a42523782

Ok I got. Any good service or company that accept send emails with API, like the script I typed here of CDOSYS? Just in case and have the output better from there.

I don't use email hosting, so I can't recommend any.  You don't have your own company email? If so, use it...

No comment has been added to this question in more than 21 days, so it is now classified as abandoned.

I have recommended this question be closed as follows:

Accept: Scott Silva (https:#a42524519)

If you feel this question should be closed differently, post an objection and the moderators will review all objections and close it as they feel fit. If no one objects, this question will be closed automatically the way described above.

seth2740
Experts-Exchange Cleanup Volunteer