[DUG] Delphi samples for Mac

[Sandeep Chandra]

http://delphihaven.wordpress.com/2011/07/20/interesting/

 
Regards

Sandeep
My Android Apps


________________________________
From: David O'Brien <Dave at iccs.co.nz>
To: NZ Borland Developers Group - Delphi List <delphi at delphi.org.nz>
Sent: Sunday, 17 July 2011 4:48 PM
Subject: Re: [DUG] Email/SMTP code


True...
 
From:delphi-bounces at delphi.org.nz [mailto:delphi-bounces at 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 
Sent:Tuesday, July 12, 2011 2:01 PM
To:NZ Borland Developers Group - Delphi List 
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-bounces at delphi.org.nz [mailto:delphi-bounces at 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 at delphi.org.nz
Admin: http://delphi.org.nz/mailman/listinfo/delphi
Unsubscribe: send an email to delphi-request at delphi.org.nz with Subject: unsubscribe
_______________________________________________
NZ Borland Developers Group - Delphi mailing list
Post: delphi at delphi.org.nz
Admin: http://delphi.org.nz/mailman/listinfo/delphi
Unsubscribe: send an email to delphi-request at delphi.org.nz with Subject: unsubscribe
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://listserver.123.net.nz/pipermail/delphi/attachments/20110720/eef4127b/attachment.html