Email sending
lazarus / 38-Networking and Web Programming

----------------------------------------------------------------------
anis2505 · 2012-12-17 12:39

Hi,

I was thinking does anyone successfully managed to send an email via a
lazarus application using Synapse LNet or anything else.
I've tried both and no chance.
If so please tell me how????

regards

----------------------------------------------------------------------
BeniBela · 2012-12-17 12:59

SendToEx does it very well.

Here is an old console program, where I use it:

Code: [Select]var from, receiver,subject,line: string;
    sl: TStringList;
    i: Integer;
begin
  from := 'default sender @ somewhere';
  receiver:= 'default receiver @ somewhere';
  for i:=1 to Paramcount do
    if ParamStr(i) = '--from' then from := ParamStr(i+1)
    else if ParamStr(i) = '--to' then receiver:= ParamStr(i+1)
    else if ParamStr(i) = '--subject' then subject:= ParamStr(i+1);
  sl:= TStringList.Create;
  while not eof(Input) do begin
    ReadLn(line);
    sl.Add(Utf8ToAnsi(line));
  end;

  SendToEx(from,receiver,'=?utf-8?B?'+ EncodeBase64(subject)+
'?=','<your smtp server>',sl,'<your username>','<your password>');
end.

----------------------------------------------------------------------
anis2505 · 2012-12-17 13:18

Quote from: BeniBela on December 17, 2012, 01:59:07 pmSendToEx does it
very well.

Here is an old console program, where I use it:

Code: [Select]var from, receiver,subject,line: string;
    sl: TStringList;
    i: Integer;
begin
  from := 'default sender @ somewhere';
  receiver:= 'default receiver @ somewhere';
  for i:=1 to Paramcount do
    if ParamStr(i) = '--from' then from := ParamStr(i+1)
    else if ParamStr(i) = '--to' then receiver:= ParamStr(i+1)
    else if ParamStr(i) = '--subject' then subject:= ParamStr(i+1);
  sl:= TStringList.Create;
  while not eof(Input) do begin
    ReadLn(line);
    sl.Add(Utf8ToAnsi(line));
  end;

  SendToEx(from,receiver,'=?utf-8?B?'+ EncodeBase64(subject)+
'?=','<your smtp server>',sl,'<your username>','<your password>');
end.

Thanks.

A stupid question   . what library should I include to get SendToEx

----------------------------------------------------------------------
theo · 2012-12-17 13:24

Quote from: anis2505 on December 17, 2012, 02:18:08 pmA stupid
question   . what library should I include to get SendToEx

Unit smtpsend of Synapse

----------------------------------------------------------------------
BigChimp · 2012-12-17 13:32

Quote from: BeniBela on December 17, 2012, 01:59:07 pmSendToEx does it
very well.

Here is an old console program, where I use it:

Code: [Select]var from, receiver,subject,line: string;
    sl: TStringList;
    i: Integer;
begin
  from := 'default sender @ somewhere';
  receiver:= 'default receiver @ somewhere';
  for i:=1 to Paramcount do
    if ParamStr(i) = '--from' then from := ParamStr(i+1)
    else if ParamStr(i) = '--to' then receiver:= ParamStr(i+1)
    else if ParamStr(i) = '--subject' then subject:= ParamStr(i+1);
  sl:= TStringList.Create;
  while not eof(Input) do begin
    ReadLn(line);
    sl.Add(Utf8ToAnsi(line));
  end;

  SendToEx(from,receiver,'=?utf-8?B?'+ EncodeBase64(subject)+
'?=','<your smtp server>',sl,'<your username>','<your password>');
end.
Thanks you guys, took the liberty of updating
http://wiki.lazarus.freepascal.org/Synapse#Sending_email

additions/updates (TLS connections??!!) more than welcome

----------------------------------------------------------------------
Ocye · 2012-12-18 11:53

Quote from: BeniBela on December 17, 2012, 01:59:07 pmSendToEx does it
very well.SendToRaw() is even more simple (plain text email).

Code: [Select]uses smtpsend (Synapse);

aSL:=TStringList.Create;
try
  aSL.Add('From: '+aSender);
  aSL.Add('To: ' + aReceiver);
  aSL.Add('Date: ' + Rfc822DateTime(now));
  aSL.Add('Subject: '+aSubject);
  aSL.Add('');
  aSL.Add(aMessage);
  if not SendToRaw(aSender, aReceiver, 'localhost', aSL, '', '') then
    writeln('Failed to send email');
finally
  aSL.Free;
end;