[SOLVED]Synapse r192 smtpsend(send mail)
lazarus / 38-Networking and Web Programming

----------------------------------------------------------------------
exdatis · 2014-12-12 16:30

I tried to send mail(based on synapse free pascal wiki - example)
unfortunately without success:
Code: [Select]:(uses ... smtpsend, ssl_openssl...)
var
  smtp: TSMTPSend;
begin
  if(not readMailIni) then Exit; //ignore this function
  Result:=False; //function result
  {insert subject}
  memoData.Lines.Insert(0, 'From: ' + cmbSender.Text);{TMemo}
  memoData.Lines.Insert(1, 'to: ' + cmbSendTo.Text);
  memoData.Lines.Insert(2, 'Subject: ' + 'someSubject');
 // ShowMessage(memoData.Lines.Text); --debug msg
  SMTP:=TSMTPSend.Create;
  try
   {it works with eg evolution or thunderbird(settings)}
    smtp.UserName:= 'exdatis@google.com';
    smtp.Password:= 'myPassword';
    smtp.TargetHost:= 'smtp.googlemail.com';
    smtp.TargetPort:= '465';
    smtp.AutoTLS:= True;
    //smtp.StartTLS;
    smtp.FullSSL:= True; // if sending to port 25, don't use
encryption
    if smtp.Login then
    begin
      ShowMessage('Success');
      result:= smtp.MailFrom('exdatis@google.com', 17) and
         smtp.MailTo('info@exdatis.net') and
         smtp.MailData(memoData.Lines);
      smtp.Logout;
    end;
  finally
    smtp.Free;
  end;                    

Linux Debian7.7 Lazarus 1.2.6 32bit Fpc2.6.4 (standard)
synapse(synalist-code-192-trunk) current svn.

Suggestions?
Thank you

p.s. I have installed: libssl1.0.0, openssl, ssl-cert, libnss3

----------------------------------------------------------------------
exdatis · 2014-12-12 20:46

Ok, everything works fine, just some libs needed to be installed. For
a test I wrote:
Code: [Select]  smtp:= TSMTPSend.Create;
  smtp.TargetPort:= '465';
  smtp.TargetHost:= 'smtp.googlemail.com';
  smtp.UserName:= 'exdatis@gmail.com';
  smtp.Password:= 'myPassword';
  smtp.AutoTLS:= True;
  smtp.StartTLS;
  smtp.FullSSL:= True; // if sending to port 25, don't use encryption
  if smtp.Login then
  begin
    ShowMessage('succes');//debug msg
    if smtp.MailFrom('exdatis@google.com', 17) then
      Result:= True
    else
       Result:= False;
    if smtp.MailTo('info@exdatis.net') then
      Result:= True
    else
      Result:= False;
    if smtp.MailData(memoData.Lines)then
      Result:= True
    else
      Result:= False;
    //smtp.Logout;
  end;
  smtp.Free;    

Works ok.

p.s. requirement: libssl, libssl-dev, openssl