Sening Email

[YamahaJojje]

Hi!

Is it possible to send an email from delphi? Is there any good component? It should be without user nowing it.

Thx

 

[DelphiAaron]

check

http://www.torry.net/pages.php?id=211

for a vcl.

Aaron Taylor
John Mutch Electronics

http://www.jme.com.au

 

[sijgs]

or with Indy components you can write something like:

  :
type
  TForm1 = class(TForm)
    Mail: TIdSMTP;
    MailMessage: TIdMessage;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

procedure TForm1.Button1Click(Sender: TObject);
Begin
  Mail.Host := 'smtp-server.socal.rr.com'; // your ISP SMTP server name
  Mail.UserId := 'userid';
  Mail.Password := 'password';
  MailMessage.From.Address := 'socal.rr.com';
  MailMessage.From.Name    := 'Whole Name';
  MailMessage.From.Text    := 'userid@socal.rr.com';
  MailMessage.Recipients.Add.Address := 'whoever@yahoo.com';
  MailMessage.Recipients.Add.Address := 'anotherperson@hotmail.com';
  MailMessage.Subject := 'The Subject You Want Shown';
  MailMessage.Body.Add('Line 1');
  MailMessage.Body.Add('Line 2');
  Mail.Connect;
  Mail.Send(MailMessage);
  Mail.Disconnect;
End;
 :

Regards and HTH,
JGS

 

[Stretchwickster]

I wrote an FAQ which also outlines methods of sending email via Delphi. I think you'd be more interested in the second suggestion (MAPI).

Clive
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
"To err is human, but to really foul things up you need a computer."
Paul Ehrlich
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
To get the best answers from this forum see: faq102-5096

 

[Stretchwickster]

Sorry, forgot to add the FAQ link:
faq102-3600

Clive
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
"To err is human, but to really foul things up you need a computer."
Paul Ehrlich
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
To get the best answers from this forum see: faq102-5096