Email sending

[anis2505]

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]

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]

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.


Thanks.

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

[theo]

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

Unit smtpsend of Synapse

[BigChimp]

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.


Thanks you guys, took the liberty of updating
http://wiki.lazarus.freepascal.org/Synapse#Sending_email

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

[Ocye]

SendToEx 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;