Re: [DUG] Email/SMTP code

[David O'Brien]

True...

 

From: delphi-boun...@delphi.org.nz [mailto:delphi-boun...@delphi.org.nz] On 
Behalf Of John Bird
Sent: Sunday, 17 July 2011 2:48 p.m.
To: NZ Borland Developers Group - Delphi List
Subject: Re: [DUG] Email/SMTP code

 

FYI Your original version had a small error in it that you fixed in the later 
version you posted – at the IdMessage.free line – which I should already been 
free’d by the previous SMTP.free, ie the IdMessage.free was not needed

 

John

 

From: David O'Brien <mailto:d...@iccs.co.nz>  

Sent: Tuesday, July 12, 2011 2:01 PM

To: NZ Borland Developers Group - Delphi List <mailto:delphi@delphi.org.nz>  

Subject: Re: [DUG] Email/SMTP code

 

Wrote this a while ago, but still works...

 

procedure SendEmail(msgFrom, msgTo, msgSubject: String; msgBody: TStringList; 
Attachments: TStringList) ;

var

  IdMessage: TIdMessage;

  SMTP: TIdSMTP;

  t: TDateTime ;

  i: Integer ;

begin

  try

    if ASettings.SMTPServer <> '' then

    begin

      SMTP := TidSMTP.Create(nil) ;

      IdMessage := TIdMessage.Create(SMTP);

      try

        idMessage.Clear ;

        idMessage.From.Address := msgFrom ;

        idMessage.Recipients.Add.Address := msgTo ;

        idMessage.Subject := msgSubject ;

        if pos('<html', lowercase(msgBody.Text)) <> 0 then

          idMessage.ContentType := 'text/html' ;

        if msgBody <> nil then

          IdMessage.Body.Assign(msgBody) ;

        t := now ;

        while (SMTP.Connected) and

          (now < t + 10 * (1/86400)) do // 10 Seconds

          sleep(10) ;

        if Assigned(Attachments) then

          for i := 0 to pred(Attachments.Count) do

            TIdAttachmentFile.Create(IdMessage.MessageParts, Attachments[i]) ;

        SMTP.Host := ASettings.SMTPServer ;

        SMTP.Port := ASettings.SMTPPort ;

        SMTP.Username := ASettings.Username ;

        SMTP.Password := ASettings.Password ;

        SMTP.Connect ;

        try

          SMTP.Send(idMessage) ;

        finally

          SMTP.Disconnect ;

        end ;

      finally

        SMTP.Free ;

        IdMessage.Free ;

      end;

    end;

  except

    EmailFailed := True ;

  end ;

end ;

 

From: delphi-boun...@delphi.org.nz [mailto:delphi-boun...@delphi.org.nz] On 
Behalf Of John Bird
Sent: Tuesday, 12 July 2011 1:47 p.m.
To: NZ Borland Developers Group - Delphi List
Subject: [DUG] Email/SMTP code

 

Anyone got a recommendation for the best (free) code/samples to drive Indy10 
for sending an email with attachment

 

-Indy10.2.3

-Send attachment

-SMTP server and email addresses will be known

 

I have tried a couple (eg AtoZed SendMail example) but it seems to time out 
connecting to the SMTP 

 

John

 

________________________________

_______________________________________________
NZ Borland Developers Group - Delphi mailing list
Post: delphi@delphi.org.nz
Admin: http://delphi.org.nz/mailman/listinfo/delphi
Unsubscribe: send an email to delphi-requ...@delphi.org.nz with Subject: 
unsubscribe


_______________________________________________
NZ Borland Developers Group - Delphi mailing list
Post: delphi@delphi.org.nz
Admin: http://delphi.org.nz/mailman/listinfo/delphi
Unsubscribe: send an email to delphi-requ...@delphi.org.nz with Subject: 
unsubscribe