|
@@ -168,4 +168,25 @@ Small delphi library containing interesting and quick to implement functions, cr
|
|
|
MyString := MyObject.ToJson;
|
|
|
|
|
|
//You can clone simple objects with clone function
|
|
|
- MyObject1.Clone(MyObject2);
|
|
|
+ MyObject1.Clone(MyObject2);
|
|
|
+
|
|
|
+
|
|
|
+**Quick.SMTP:** Send email with two code lines.
|
|
|
+
|
|
|
+ //Send email
|
|
|
+ SMTP := TSMTP.Create('mail.domain.com',25,False);
|
|
|
+ SMTP.SendMail('[email protected]','[email protected]','Email subject','My message body');
|
|
|
+
|
|
|
+ //You can define more advanced options
|
|
|
+ SMTP.SenderName := 'John';
|
|
|
+ SMTP.From := '[email protected]';
|
|
|
+ SMTP.Recipient := '[email protected],[email protected]';
|
|
|
+ SMTP.Subject := 'Email subject';
|
|
|
+ SMTP.AddBodyFromFile := '.\body.html';
|
|
|
+ SMTP.CC := '[email protected]';
|
|
|
+ SMTP.BCC := '[email protected]';
|
|
|
+ SMTP.Attachments.Add('.\notes.txt');
|
|
|
+ SMTP.SendMail;
|
|
|
+
|
|
|
+
|
|
|
+
|