Update SendEmail.pas

dliocode · May 30, 2022 · 435a822 · 435a822
1 parent 265e136
commit 435a822
Showing 1 changed file with 9 additions and 2 deletions.
diff --git a/src/SendEmail.pas b/src/SendEmail.pas
@@ -1,3 +1,10 @@
+{
+  *************************************
+  Created by Danilo Lucas
+  Github - https://github.com/dliocode
+  *************************************
+}
+
 unit SendEmail;
 
 interface
@@ -132,11 +139,11 @@ constructor TSendEmail.Create;
 
   with FIdSMTP do
   begin
-    MailAgent := 'SendEmail';
+    MailAgent := 'SendEmail-https://github.com/dliocode/sendemail';
     ConnectTimeout := 60000;
     ReadTimeout := 60000;
     UseEhlo := True;
-    HeloName := 'SendEmail';
+    HeloName := 'SendEmail-https://github.com/dliocode/sendemail';
     OnStatus := LogSMTPStatus;
     OnWorkBegin := WorkBegin;
     OnWork := Work;