2 public import static "ecere"
7 // define app = ((MyApp)__thisModule);
9 class SMTPSocket : Socket
12 uint OnReceive(const byte * buffer, uint count)
16 for(c = 0; c<count; c++)
22 void OnDisconnect(int code)
34 void SMTPSend(char * host, char * to, char * from, File file)
36 SMTPSocket socket { };
39 if(socket.Connect(host, 25)) //995
42 Log("HELO localhost\n");
43 socket.SendString("HELO localhost\r\n");
45 Logf("MAIL from: %s\n", from);
46 socket.Sendf("MAIL from: %s\r\n", from);
48 Logf("RCPT To: %s\n", to);
49 socket.Sendf("RCPT To: %s\r\n", to);
52 socket.SendString("DATA\r\n");
54 Log("Subject: Email test\n");
55 Log("Mime-Version: 1.0;\n");
56 Log("Content-Type: text/html; charset=\"ISO-8859-1\";\n");
57 Log("Content-Transfer-Encoding: 7bit;\n");
58 socket.SendString("Subject: Email test\r\n");
59 socket.SendString("Mime-Version: 1.0;\r\n");
60 socket.SendString("Content-Type: text/html; charset=\"ISO-8859-1\";\r\n");
61 socket.SendString("Content-Transfer-Encoding: 7bit;\r\n");
62 socket.SendString("\r\n");
68 uint read = file.Read(buffer, 1, sizeof(buffer));
69 socket.Send(buffer, read);
73 socket.SendString("\r\n.\r\n");
76 socket.SendString("QUIT\r\n");
84 class MyApp : GuiApplication
88 File f = FileOpen("http://server/dir/", read);
90 Send("mail.server.ca", "user@mail.com", "user@server.com", f);