Can't make smtp work. Please help.

[gjunk]

https://wiki.freepascal.org/Synapse_-_Email_Examples
I used Example 4.
I have entered and compiled the error checking version of this code using synapse4.
It compiles and runs.
I get the following error in the memo box when I click on button1.

Other undefined Status
SMTP Login: Failed - does server exist? does it accept mail?

I have tried it with smtp servers from Comcast, Gmail and ABQoff.
The emails work both sending and receiving in Thunderbird so the addresses and passwords are correct.
I have tried both port 465 and port 587.
Am I missing something?

procedure SendMail(User, Password, MailFrom, MailTo, SMTPHost, SMTPPort: string; MailData: string); 
procedure TForm1.Button1Click(Sender: TObject);
begin
  SendMail(
    'gjunk@comcast.net',              // Name if authentication required
    'Password',                       // Password if authentication required
    'gjunk@comcast.net',              // MailFrom
    '1test@abqoff.com',              // MailTo
    'smtp.comcast.net',            // Mail server to send to
    '465',                            // Mail server port
    'To: 1test@abqoff.com'           // Otherwise To: is blank on receipt
    + LineEnding + 'Subject: Test'   // Otherwise Subject: is blank on receipt
    + LineEnding +'Gday!'            // Email body
    + LineEnding);
end;     

[bobby100]

Did you included ssl_openssl in uses clausure?
Did you put the ssleay32.dll in the same directory as your executable?

[gjunk]

ssl_openssl is in the uses clause.
ssleay32.dll is in the exe directory.

[TRon]

As a note: comcast seem to require that you to enable 3th party access  Did you configured that ?

[bobby100]

Could you download the SMTP Test Suite and test your connection with the SMTP Client?
https://sourceforge.net/projects/smtp-test-suite/

Just use the same parameters as in your code, and see the response.

If it works for you, take a look at the code of SMTP Test Suite - it is also based on Synapse

[rvk]

I'm not sure from when that example is, but it doesn't work anymore.

When you use port 587, you want TLS. If you use port 465 you want SSL.
At least... that's how it is with smtp.gmail.com.

So the line  if SMTPPort<> '25' then SMTP.FullSSL:=true; is not correct.

You want:

Code: Pascal  [Select][+][-]

1. if SMTPPort = '465' then SMTP.FullSSL := True;

Or if you are sure you are going to use 587 then you can just comment out the FullSSL := true line.

Above changes worked for me.

I think port 587 needs to use the STARTTLS.
And when using FullSSL the STARTTLS is ignored (see the login code) and SSL is done automatically on connect.
(but for smtp.gmail.com that's apparently not allowed.)

[gjunk]

As a note: comcast seem to require that you to enable 3th party access  Did you configured that ?

I have my comcast accounts set up for 3rd party access.

[gjunk]

It seems that comcast is turning off my email access after x number of failed access attempts.
I understand now why they are the most hated company in the world.
It takes me hours to get my access restored.
I will try the 465 and 537 changes when I get some service back.
Can anyone recommend a free email service to use for testing.

[rvk]

Can anyone recommend a free email service to use for testing.

gmail?

For gmail you do need to use an App password. Regular passwords are not allowed for smtp access.

[delphius]

Can anyone recommend a free email service to use for testing.

Gmail?! 

You can look under the hood of smtp connecting to gmail with my proof of concept native pascal tls sendmail unit based on Cryptlib