add type instantiation help for smtp_recipient

totoro
1 parent 97fb134c
Showing 1 changed file with 11 additions and 3 deletions Show diff stats
mail/send_mail.anubis
@@ -44,7 +44,14 @@ public type Smtp_Recipient:
                  ). 
-  
+public define Smtp_Recipient
+  smtp_recipient
+  (
+    String recipient
+  )=
+  smtp_recipient(recipient, send_tries(0), 0,0)
+.
+
 public type Send_Param:
   send_param( Str_HostName  host_name,        //domain of the sender like "mail.calexium.com"
               Str_Sender    sender,           //sender email address
@@ -231,14 +238,15 @@ public define Result(SmtpClientResult, One)
   )=
   if resolve_address(server) is
   {
-    failure           then  
+    failure           then
+      println("IP address NOT found for Mail server ["+server+"]");
       logWarning(send_mail_log,"IP address NOT found for Mail server ["+server+"]");
       error(error),
     success(ip_addr)  then
       with ip_txt = ip_addr_to_string(ip_addr),
       logTrace(send_mail_log, send_mail_mask, "send_mail: Trying to connect to "+ip_txt);
-
+      println("send_mail: Trying to connect to "+ip_txt);
       if (Result(NetworkConnectError,RWStream))connect(ip_addr, port) is 
       {
         error(e)               then