/// <summary>
///
/// </summary>
/// <param name="p_receipients"></param>
/// <param name="p_reversePath"></param>
/// <param name="p_message"></param>
/// <returns></returns>
private bool SendMessageToServer(string[] p_receipients, string p_reversePath, Stream p_message)
{
ArrayList _defectiveEmails = new ArrayList();
Socket _socket = new Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp);
try
{
string _reply = "";
var _SIZE_Support = false;
var _8BIT_Support = false;
var _BDAT_Support = false;
if (UseSmartHost == true)
{
IPEndPoint _ipdestination = new IPEndPoint(System.Net.Dns.GetHostEntry(SmartHost).AddressList[0], Port);
_socket.Connect(_ipdestination);
}
else
{
//---- Parse e-domain -------------------------------//
string _emailDomain = p_receipients[0];
// eg. Ivx <*****@*****.**>
if (_emailDomain.IndexOf("<") > -1 && _emailDomain.IndexOf(">") > -1)
{
_emailDomain = _emailDomain.Substring(_emailDomain.IndexOf("<") + 1, _emailDomain.IndexOf(">") - _emailDomain.IndexOf("<") - 1);
}
if (_emailDomain.IndexOf("@") > -1)
{
_emailDomain = _emailDomain.Substring(_emailDomain.LastIndexOf("@") + 1);
}
//--- Get MX record -------------------------------------------//
DnsEx _dnsex = new DnsEx();
DnsEx.DnsServers = DnsServers;
MX_Record[] _mxRecords = null;
DnsReplyCode _replyCode = _dnsex.GetMXRecords(_emailDomain, out _mxRecords);
switch (_replyCode)
{
case DnsReplyCode.Ok:
var _isConnected = false;
// Try all available hosts by MX preference order, if can't connect specified host.
foreach (MX_Record _mx in _mxRecords)
{
try
{
_socket.Connect(new IPEndPoint(System.Net.Dns.GetHostEntry(_mx.Host).AddressList[0], Port));
_isConnected = true;
break;
}
catch (Exception ex)
{
// Just skip and let for to try next host.
OnFaulted(SmtpErrorType.ConnectionError, p_receipients, "While retriveing MX-Servers, raise exception error: " + ex.Message);
}
}
if (_isConnected == false)
{
return(false);
}
break;
case DnsReplyCode.NoEntries:
/* Rfc 2821 5
* If no MX records are found, but an A RR is found, the A RR is treated as
* if it was associated with an implicit MX RR, with a preference of 0,
* pointing to that host.
*
*/
try // Try to connect with A record
{
IPHostEntry _ipEntry = System.Net.Dns.GetHostEntry(_emailDomain);
_socket.Connect(new IPEndPoint(_ipEntry.AddressList[0], Port));
}
catch
{
OnFaulted(SmtpErrorType.InvalidEmailAddress, p_receipients, String.Format("email domain <{0}> is invalid", _emailDomain));
_defectiveEmails.AddRange(p_receipients);
return(false);
}
break;
case DnsReplyCode.TempError:
string _dnsServers = "";
foreach (string s in DnsServers)
{
_dnsServers += s + ";";
}
throw new Exception(String.Format("Error retrieving MX record for domain '{0}' with dns servers:{{{1}}}.", _emailDomain, _dnsServers));
}
}
string _sessionId = _socket.GetHashCode().ToString();
string _connectedip = SmtpCore.ParseIP_from_EndPoint(_socket.RemoteEndPoint.ToString());
// Get 220 reply from server
/* NOTE: reply may be multiline
* 220 xx ready
* or
* 220-someBull
* 200 xx
*/
// Server must reply 220 - Server OK
_reply = ReadLine(_socket, _sessionId, _connectedip, true);
if (IsReplyCode("220", _reply) == false)
{
OnFaulted(SmtpErrorType.UnKnown, p_receipients, _reply);
SendLine(_socket, _sessionId, _connectedip, "QUIT", true);
return(false);
}
else
{
// 220-xxx<CRLF>
// 220 aa<CRLF> - means end
// reply isn't complete, get more
while (_reply.IndexOf("220 ") == -1)
{
_reply += ReadLine(_socket, _sessionId, _connectedip, false);
}
}
// cmd EHLO/HELO
// Send greeting to server
SendLine(_socket, _sessionId, _connectedip, "EHLO " + SmtpCore.GetHostName(), true);
_reply = ReadLine(_socket, _sessionId, _connectedip, true);
if (IsReplyCode("250", _reply) == false)
{
// EHLO failed, maybe server doesn't support it, try HELO
SendLine(_socket, _sessionId, _connectedip, "HELO " + SmtpCore.GetHostName(), true);
_reply = ReadLine(_socket, _sessionId, _connectedip, false);
if (IsReplyCode("250", _reply) == false)
{
OnFaulted(SmtpErrorType.UnKnown, p_receipients, _reply);
SendLine(_socket, _sessionId, _connectedip, "QUIT", true);
_defectiveEmails.AddRange(p_receipients);
return(false);
}
// else
// {
// supports_ESMTP = false;
// }
}
else
{
// 250-xxx<CRLF>
// 250 aa<CRLF> - means end
// reply isn't complete, get more
while (_reply.IndexOf("250 ") == -1)
{
_reply += ReadLine(_socket, _sessionId, _connectedip, false);
}
// Check if SIZE argument is supported
if (_reply.ToUpper().IndexOf("SIZE") > -1)
{
_SIZE_Support = true;
}
// Check if 8BITMIME argument is supported
if (_reply.ToUpper().IndexOf("8BITMIME") > -1)
{
_8BIT_Support = true;
}
// Check if CHUNKING argument is supported
if (_reply.ToUpper().IndexOf("CHUNKING") > -1)
{
_BDAT_Support = true;
}
}
// If server doesn't support 8bit mime, check if message is 8bit.
// If is we MAY NOT send this message or loss of data
if (_8BIT_Support == false)
{
if (Is8BitMime(p_message) == true)
{
OnFaulted(SmtpErrorType.NotSupported, p_receipients, "Message is 8-Bit mime and server doesn't support it.");
SendLine(_socket, _sessionId, _connectedip, "QUIT", true);
return(false);
}
}
// cmd MAIL
// NOTE: Syntax:{MAIL FROM:<*****@*****.**> [SIZE=msgSize]<CRLF>}
// Send Mail From
if (_SIZE_Support == true)
{
SendLine(_socket, _sessionId, _connectedip, String.Format("MAIL FROM:<{0}> SIZE={1}", p_reversePath, p_message.Length), true);
}
else
{
SendLine(_socket, _sessionId, _connectedip, String.Format("MAIL FROM:<{0}>", p_reversePath), true);
}
_reply = ReadLine(_socket, _sessionId, _connectedip, false);
if (IsReplyCode("250", _reply) == false)
{
// To Do: Check if size exceeded error:
OnFaulted(SmtpErrorType.UnKnown, p_receipients, _reply);
SendLine(_socket, _sessionId, _connectedip, "QUIT", true);
_defectiveEmails.AddRange(p_receipients);
return(false);
}
// cmd RCPT
// NOTE: Syntax:{RCPT TO:<*****@*****.**><CRLF>}
var _isAnyValidEmail = false;
foreach (string _receipt in p_receipients)
{
// Send Mail To
SendLine(_socket, _sessionId, _connectedip, String.Format("RCPT TO:<{0}>", _receipt), true);
_reply = ReadLine(_socket, _sessionId, _connectedip, false);
if (IsReplyCode("250", _reply) == false)
{
// Is unknown user
if (IsReplyCode("550", _reply))
{
OnFaulted(SmtpErrorType.InvalidEmailAddress, new string[] { _receipt }, _reply);
}
else
{
OnFaulted(SmtpErrorType.UnKnown, new string[] { _receipt }, _reply);
}
_defectiveEmails.Add(_receipt);
}
else
{
_isAnyValidEmail = true;
}
}
// If there isn't any valid email - quit.
if (_isAnyValidEmail == false)
{
SendLine(_socket, _sessionId, _connectedip, "QUIT", true);
return(false);
}
// cmd DATA
if (_BDAT_Support == false)
{
// Notify Data Start
SendLine(_socket, _sessionId, _connectedip, "DATA", false);
_reply = ReadLine(_socket, _sessionId, _connectedip, false);
if (IsReplyCode("354", _reply) == false)
{
OnFaulted(SmtpErrorType.UnKnown, p_receipients, _reply);
SendLine(_socket, _sessionId, _connectedip, "QUIT", true);
_defectiveEmails.AddRange(p_receipients);
return(false);
}
//------- Do period handling -----------------------------------------//
// If line starts with '.', add additional '.'.(Read rfc for more info)
MemoryStream _periodOk = SmtpCore.DoPeriodHandling(p_message, true, false);
//--------------------------------------------------------------------//
// Check if message ends with <CRLF>, if not add it. -------//
if (_periodOk.Length >= 2)
{
byte[] _byteEnd = new byte[2];
_periodOk.Position = _periodOk.Length - 2;
_periodOk.Read(_byteEnd, 0, 2);
if (_byteEnd[0] != (byte)'\r' && _byteEnd[1] != (byte)'\n')
{
_periodOk.Write(new byte[] { (byte)'\r', (byte)'\n' }, 0, 2);
}
}
_periodOk.Position = 0;
//-----------------------------------------------------------//
//---- Send message --------------------------------------------//
long _totalSent = 0;
long _totalSize = _periodOk.Length;
while (_totalSent < _totalSize)
{
byte[] _buffer = new byte[4000];
int _readSize = _periodOk.Read(_buffer, 0, _buffer.Length);
int _sentSize = _socket.Send(_buffer, 0, _readSize, SocketFlags.None);
_totalSent += _sentSize;
if (_sentSize != _readSize)
{
_periodOk.Position = _totalSent;
}
OnProgress(_sentSize, _totalSent, _totalSize);
}
//-------------------------------------------------------------//
_periodOk.Close();
// Notify End of Data
SendLine(_socket, _sessionId, _connectedip, ".", false);
_reply = ReadLine(_socket, _sessionId, _connectedip, false);
if (IsReplyCode("250", _reply) == false)
{
OnFaulted(SmtpErrorType.UnKnown, p_receipients, _reply);
SendLine(_socket, _sessionId, _connectedip, "QUIT", true);
_defectiveEmails.AddRange(p_receipients);
return(false);
}
}
// cmd BDAT
if (_BDAT_Support)
{
SendLine(_socket, _sessionId, _connectedip, String.Format("BDAT {0} LAST", (p_message.Length - p_message.Position)), false);
//---- Send message --------------------------------------------//
long _totalSent = 0;
long _totalSize = p_message.Length - p_message.Position;
while (_totalSent < _totalSize)
{
byte[] _buffer = new byte[4000];
int _readSize = p_message.Read(_buffer, 0, _buffer.Length);
int _sentSize = _socket.Send(_buffer, 0, _readSize, SocketFlags.None);
_totalSent += _sentSize;
if (_sentSize != _readSize)
{
p_message.Position = _totalSent;
}
OnProgress(_sentSize, _totalSent, _totalSize);
}
//-------------------------------------------------------------//
// Get store result
_reply = ReadLine(_socket, _sessionId, _connectedip, false);
if (_reply.StartsWith("250") == false)
{
OnFaulted(SmtpErrorType.UnKnown, p_receipients, _reply);
SendLine(_socket, _sessionId, _connectedip, "QUIT", true);
_defectiveEmails.AddRange(p_receipients);
return(false);
}
}
// cmd QUIT
// Notify server - server can exit now
SendLine(_socket, _sessionId, _connectedip, "QUIT", true);
_reply = ReadLine(_socket, _sessionId, _connectedip, true);
}
catch (Exception ex)
{
OnFaulted(SmtpErrorType.UnKnown, p_receipients, ex.Message);
_defectiveEmails.AddRange(p_receipients);
return(false);
}
finally
{
// Raise event
OnCompleted(Thread.CurrentThread.GetHashCode().ToString(), p_receipients, _defectiveEmails);
_socket.Close();
}
return(true);
}
//---- SMTP implementation ----//
#region function SendMessageToServer
private bool SendMessageToServer(string[] to, string reverse_path, Stream message)
{
// Get email from to string
for (int i = 0; i < to.Length; i++)
{
to[i] = (new LumiSoft.Net.Mime.Parser.eAddress(to[i])).Email;
}
ArrayList defectiveEmails = new ArrayList();
Socket socket = new Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp);
try{
string reply = "";
bool supports_SIZE = false;
bool supports_8BIT = false;
bool supports_BDAT = false;
if (m_UseSmartHost)
{
IPEndPoint ipdest = new IPEndPoint(System.Net.Dns.Resolve(m_SmartHost).AddressList[0], m_Port);
socket.Connect(ipdest);
}
else
{
//---- Parse e-domain -------------------------------//
string domain = to[0];
// eg. Ivx <*****@*****.**>
if (domain.IndexOf("<") > -1 && domain.IndexOf(">") > -1)
{
domain = domain.Substring(domain.IndexOf("<") + 1, domain.IndexOf(">") - domain.IndexOf("<") - 1);
}
if (domain.IndexOf("@") > -1)
{
domain = domain.Substring(domain.LastIndexOf("@") + 1);
}
//--- Get MX record -------------------------------------------//
DnsEx dns = new DnsEx();
DnsEx.DnsServers = m_DnsServers;
MX_Record[] mxRecords = null;
DnsReplyCode replyCode = dns.GetMXRecords(domain, out mxRecords);
switch (replyCode)
{
case DnsReplyCode.Ok:
// Try all available hosts by MX preference order, if can't connect specified host.
foreach (MX_Record mx in mxRecords)
{
try{
socket.Connect(new IPEndPoint(System.Net.Dns.Resolve(mx.Host).AddressList[0], m_Port));
break;
}
catch { // Just skip and let for to try next host.
}
}
break;
case DnsReplyCode.NoEntries:
/* Rfc 2821 5
* If no MX records are found, but an A RR is found, the A RR is treated as
* if it was associated with an implicit MX RR, with a preference of 0,
* pointing to that host.
*
*/
try // Try to connect with A record
{
IPHostEntry ipEntry = System.Net.Dns.Resolve(domain);
socket.Connect(new IPEndPoint(ipEntry.AddressList[0], m_Port));
}
catch {
OnError(SMTP_ErrorType.InvalidEmailAddress, to, "email domain <" + domain + "> is invalid");
defectiveEmails.AddRange(to);
return(false);
}
break;
case DnsReplyCode.TempError:
string dnsServers = "";
foreach (string s in m_DnsServers)
{
dnsServers += s + ";";
}
throw new Exception("Error retrieving MX record for domain '" + domain + "' with dns servers:{" + dnsServers + "}.");
}
}
#region Get 220 reply from server
/* NOTE: reply may be multiline
* 220 xx ready
* or
* 220-someBull
* 200 xx
*/
// Server must reply 220 - Server OK
reply = ReadLine(socket);
if (!IsReplyCode("220", reply))
{
OnError(SMTP_ErrorType.UnKnown, to, reply);
SendLine(socket, "QUIT");
return(false);
}
else
{
// 220-xxx<CRLF>
// 220 aa<CRLF> - means end
// reply isn't complete, get more
while (reply.IndexOf("220 ") == -1)
{
reply += ReadLine(socket);
}
}
#endregion
#region cmd EHLO/HELO
// Send greeting to server
SendLine(socket, "EHLO " + m_HostName);
reply = ReadLine(socket);
if (!IsReplyCode("250", reply))
{
// EHLO failed, mayby server doesn't support it, try HELO
SendLine(socket, "HELO " + m_HostName);
reply = ReadLine(socket);
if (!IsReplyCode("250", reply))
{
OnError(SMTP_ErrorType.UnKnown, to, reply);
SendLine(socket, "QUIT");
defectiveEmails.AddRange(to);
return(false);
}
// else{
// supports_ESMTP = false;
// }
}
else
{
// 250-xxx<CRLF>
// 250 aa<CRLF> - means end
// reply isn't complete, get more
while (reply.IndexOf("250 ") == -1)
{
reply += ReadLine(socket);
}
// Check if SIZE argument is supported
if (reply.ToUpper().IndexOf("SIZE") > -1)
{
supports_SIZE = true;
}
// Check if 8BITMIME argument is supported
if (reply.ToUpper().IndexOf("8BITMIME") > -1)
{
supports_8BIT = true;
}
// Check if CHUNKING argument is supported
if (reply.ToUpper().IndexOf("CHUNKING") > -1)
{
supports_BDAT = true;
}
}
#endregion
// If server doesn't support 8bit mime, check if message is 8bit.
// If is we MAY NOT send this message or loss of data
if (!supports_8BIT)
{
if (Is8BitMime(message))
{
OnError(SMTP_ErrorType.NotSupported, to, "Message is 8-Bit mime and server doesn't support it.");
SendLine(socket, "QUIT");
return(false);
}
}
#region cmd MAIL
// NOTE: Syntax:{MAIL FROM:<*****@*****.**> [SIZE=msgSize]<CRLF>}
// Send Mail From
if (supports_SIZE)
{
SendLine(socket, "MAIL FROM:<" + reverse_path + "> SIZE=" + message.Length.ToString());
}
else
{
SendLine(socket, "MAIL FROM:<" + reverse_path + ">");
}
reply = ReadLine(socket);
if (!IsReplyCode("250", reply))
{
// To Do: Check if size exceeded error:
OnError(SMTP_ErrorType.UnKnown, to, reply);
SendLine(socket, "QUIT");
defectiveEmails.AddRange(to);
return(false);
}
#endregion
#region cmd RCPT
// NOTE: Syntax:{RCPT TO:<*****@*****.**><CRLF>}
bool isAnyValidEmail = false;
foreach (string rcpt in to)
{
// Send Mail To
SendLine(socket, "RCPT TO:<" + rcpt + ">");
reply = ReadLine(socket);
if (!IsReplyCode("250", reply))
{
// Is unknown user
if (IsReplyCode("550", reply))
{
OnError(SMTP_ErrorType.InvalidEmailAddress, new string[] { rcpt }, reply);
}
else
{
OnError(SMTP_ErrorType.UnKnown, new string[] { rcpt }, reply);
}
defectiveEmails.Add(rcpt);
}
else
{
isAnyValidEmail = true;
}
}
// If there isn't any valid email - quit.
if (!isAnyValidEmail)
{
SendLine(socket, "QUIT");
return(false);
}
//---------------------------------------------//
#endregion
#region cmd DATA
if (!supports_BDAT)
{
// Notify Data Start
SendLine(socket, "DATA");
reply = ReadLine(socket);
if (!IsReplyCode("354", reply))
{
OnError(SMTP_ErrorType.UnKnown, to, reply);
SendLine(socket, "QUIT");
defectiveEmails.AddRange(to);
return(false);
}
//------- Do period handling -----------------------------------------//
// If line starts with '.', add additional '.'.(Read rfc for more info)
MemoryStream msgStrmPeriodOk = Core.DoPeriodHandling(message, true, false);
//--------------------------------------------------------------------//
// Check if message ends with <CRLF>, if not add it. -------//
if (msgStrmPeriodOk.Length >= 2)
{
byte[] byteEnd = new byte[2];
msgStrmPeriodOk.Position = msgStrmPeriodOk.Length - 2;
msgStrmPeriodOk.Read(byteEnd, 0, 2);
if (byteEnd[0] != (byte)'\r' && byteEnd[1] != (byte)'\n')
{
msgStrmPeriodOk.Write(new byte[] { (byte)'\r', (byte)'\n' }, 0, 2);
}
}
msgStrmPeriodOk.Position = 0;
//-----------------------------------------------------------//
//---- Send message --------------------------------------------//
long totalSent = 0;
long totalLength = msgStrmPeriodOk.Length;
while (totalSent < totalLength)
{
byte[] dataBuf = new byte[4000];
int nCount = msgStrmPeriodOk.Read(dataBuf, 0, dataBuf.Length);
int countSended = socket.Send(dataBuf, 0, nCount, SocketFlags.None);
totalSent += countSended;
if (countSended != nCount)
{
msgStrmPeriodOk.Position = totalSent;
}
OnPartOfMessageIsSent(countSended, totalSent, totalLength);
}
//-------------------------------------------------------------//
msgStrmPeriodOk.Close();
// Notify End of Data
SendLine(socket, ".");
reply = ReadLine(socket);
if (!IsReplyCode("250", reply))
{
OnError(SMTP_ErrorType.UnKnown, to, reply);
SendLine(socket, "QUIT");
defectiveEmails.AddRange(to);
return(false);
}
}
#endregion
#region cmd BDAT
if (supports_BDAT)
{
SendLine(socket, "BDAT " + (message.Length - message.Position) + " LAST");
//---- Send message --------------------------------------------//
long totalSent = 0;
long totalLength = message.Length - message.Position;
while (totalSent < totalLength)
{
byte[] dataBuf = new byte[4000];
int nCount = message.Read(dataBuf, 0, dataBuf.Length);
int countSended = socket.Send(dataBuf, 0, nCount, SocketFlags.None);
totalSent += countSended;
if (countSended != nCount)
{
message.Position = totalSent;
}
OnPartOfMessageIsSent(countSended, totalSent, totalLength);
}
//-------------------------------------------------------------//
// Get store result
reply = ReadLine(socket);
if (!reply.StartsWith("250"))
{
OnError(SMTP_ErrorType.UnKnown, to, reply);
SendLine(socket, "QUIT");
defectiveEmails.AddRange(to);
return(false);
}
}
#endregion
#region cmd QUIT
// Notify server - server can exit now
SendLine(socket, "QUIT");
reply = ReadLine(socket);
#endregion
}
catch (Exception x) {
OnError(SMTP_ErrorType.UnKnown, to, x.Message);
defectiveEmails.AddRange(to);
return(false);
}
finally{
// Raise event
OnSendJobCompleted(Thread.CurrentThread.GetHashCode().ToString(), to, defectiveEmails);
socket.Close();
}
return(true);
}
