ref:
http://www.alixixi.com/Dev/Web/ASPNET/aspnet9/2007/200702069867.html
在.Net Framework 1.x 我们需要使用 System.Web.Mail 命名空间下的类 来进行发送邮件，但是功能比较弱，比如你的邮件服务器需要验证才能发送邮件，在.net 1.1 中，需要用下面的代码来做额外配置。
mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1");
mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", "my_username_here");
mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "super_secret"); .net 1.x 下发送邮件的方式请参考：
http://blog.joycode.com/joy/archive/2004/01/14/11405.aspx
.Net Framework 2.0 下，在 System.Net.Mail 命名空间中提供了对邮件操作的支持，他的功能更强大。比如你的邮件服务器需要验证才能发送邮件，代码就只需简单成如下：
public static void SendSMTPEMail (string strSmtpServer, string strFrom, string strFromPass, string strto, string strSubject, string strBody){
System.Net.Mail.SmtpClient client = new SmtpClient(strSmtpServer);
client.UseDefaultCredentials = false;
client.Credentials = new System.Net.NetworkCredential(strFrom, strFromPass);
client.DeliveryMethod = SmtpDeliveryMethod.Network;
System.Net.Mail.MailMessage message = new MailMessage(strFrom, strto, strSubject, strBody);
message.BodyEncoding = System.Text.Encoding.UTF8;
message.IsBodyHtml = true;
client.Send(message);
}
我们可以通过修改 UseDefaultCredentials Credentials DeliveryMethod 等属性，方便的支持各种情况下发送邮件的方式。
一个发邮件的例子,涉及MSMQ,RSA,JMAIL
ref:
http://www.alixixi.com/Dev/Web/ASPNET/aspnet9/2007/200702069869.html
public void sendMSMQEmail()
{
RSACryptoServiceProvider crypt=new RSACryptoServiceProvider();
string publickey=crypt.ToXmlString(false);//（公钥）
string privatekey=crypt.ToXmlString(true);
crypt.Clear();
StreamWriter one=new StreamWriter(@"c:\a.txt",true,UTF8Encoding.UTF8);
one.Write(publickey);
StreamWriter two=new StreamWriter(@"c:\b.txt",true,UTF8Encoding.UTF8);
two.Write(privatekey);
one.Flush();
two.Flush();
one.Close();
two.Close();
Console.WriteLine("成功保存公匙和密匙！");
//2.对信息加密,然后用通过队列发送信息
string from=TextBoxFrom.Text+DropDownList2.SelectedValue;
string sub=textBoxSub.Text;
string bodys=TextBoxBody.Text;
string pwd=TextBoxPwd.Text;
StreamReader sr = new StreamReader(@"c:\a.txt",UTF8Encoding.UTF8);
string readpublickey = sr.ReadToEnd();
sr.Close();
RSACryptoServiceProvider crypt=new RSACryptoServiceProvider();
UTF8Encoding enc=new UTF8Encoding();
byte[] bytes=enc.GetBytes(pwd);
crypt.FromXmlString( readpublickey );//读取公钥
bytes = crypt.Encrypt( bytes,false ); //进行加密
string encryttext=Convert.ToBase64String(bytes); //转码
MailerInfo mf=new MailerInfo();
//mf.body=bodys;
mf.Body=bodys;
mf.From=from;
mf.Fromname=TextBoxFrom.Text;
mf.Password=encryttext;
mf.Sub=sub;
//CreateQueue(".\\myQueue");
SendMessage(mf);
}
public static void CreateQueue(string queuePath)
{
try
{
if(!MessageQueue.Exists(queuePath))
{
MessageQueue.Create(@".\private$\myQueue");
}
else
{
Console.WriteLine(queuePath + " already exists.");
}
}
catch (MessageQueueException e)
{
Console.WriteLine(e.Message);
}
}
public void SendMessage(MailerInfo mf)
{
try
{
MessageQueue myQueue = new MessageQueue(".\\private$\\myQueue");
System.Messaging.Message myMessage = new System.Messaging.Message(mf);
myQueue.Send(myMessage);
}
catch(ArgumentException e)
{
Console.WriteLine(e.Message);
}
return;
}
public void ReceiveMessage()
{
MessageQueue myQueue = new MessageQueue(".\\private$\\myQueue");
myQueue.Formatter = new XmlMessageFormatter(new Type[]{typeof(MessageRec.MailerInfo)});
try
{
System.Messaging.Message myMessage = myQueue.Receive();
MailerInfo mf = (MailerInfo)myMessage.Body;
//解码
StreamReader sr = new StreamReader(@"c:\b.txt",UTF8Encoding.UTF8);
string readprivatekey = sr.ReadToEnd();
sr.Close();
RSACryptoServiceProvider crypt=new RSACryptoServiceProvider();
UTF8Encoding enc=new UTF8Encoding();
byte[] bytes = Convert.FromBase64String(mf.password);
crypt.FromXmlString ( readprivatekey ) ;
byte[] decryptbyte = crypt.Decrypt( bytes,false );
password=enc.GetString( decryptbyte );
from=mf.from;
fromname=mf.Fromname;
sub=mf.sub;
body=mf.body;
to="dankes@163.com";
}
catch (MessageQueueException)
{
}
catch (InvalidOperationException e)
{
Console.WriteLine(e.Message);
}
//发送邮件
jmail.Message Jmail=new jmail.Message();
Jmail.Silent=false;
Jmail.Logging=true;
Jmail.Charset="GB2312";
Jmail.ContentType="text/html";
Jmail.AddRecipient(to,"","");
Jmail.From=from;
Jmail.MailServerUserName=fromname;
Jmail.MailServerPassWord=password;
Jmail.Subject=sub;
Jmail.Body=body;
string smtp="smtp.163.com";
if(from.EndsWith("tom.com"))
{
smtp="smtp.tom.com";
}
else if(from.EndsWith("21cn.com"))
{
smtp="smtp.21cn.com";
}
else if(from.EndsWith("sina.com"))
{
smtp="smtp.sina.com";
}
else if(from.EndsWith("263.com"))
{
smtp="smtp.263.com";
}
//开始发送邮件
int i=0;
try
{
Jmail.Send(smtp,false);
}
catch(Exception ee)
{
i=1;
}
Jmail.Close() ;
if(i==0)
Console.WriteLine("邮件发送成功"+"发送人:"+from+"接收方:"+to+"主题是:"+sub);
if(i==1)
Console.WriteLine("登陆失败，或者网络故障");
}
Queue MSMQ Messages from SQL Server
ref: http://www.15seconds.com/issue/040902.htm
download source code
(mirror)
If you've ever found yourself scratching your head, wondering how to queue a message from MS SQL Server, then you might find yourself writing your own plumbing. (Microsoft will most certainly be dealing with this boggle in future version). And I don't know how your boss operates, but I usually need it done like -- yesterday.
Using some of my, "Nothing is impossible with Visual Studio .NET" theory, we will create a console application to queue a message in Microsoft Message Queuing (MSMQ). Using the magic of an extended stored procedure, we can call our console application from an MS SQL trigger. We create our table in Enterprise Manager and then use the trigger to call our console application. You could also call a COM object for this example, but I choose a console application because calling in SQL syntax is straight forward.
Message queues are very cool because you can queue a message to a queue server, and it will remain there waiting to be processed. There are systems in place to make sure that message gets to where it belongs. If for some reason the message doesn't arrive, it will be sent again until it arrives at the intended destination. So for valuable mail-like checks from the lotto commission -- we want to ensure those messages get to where they need to go. So, what we want to do is build a process to check the queue and then process the message in it.
Message queues are very underutilized. But Visual Studio .NET makes the process of creating and using this technology much simpler. You can configure queues on your machine by right clicking on My Computer and then selecting Manage. Under the Services and Applications node you can find the "Message Queuing Node". Note: if you don't see a "Messaging Queuing Node" then you will need to install it from your windows CD.
To tell you the truth, it actually makes me feel warm inside when I fire up VisualStudio .NET. It is also moments like these that I know why Microsoft added the Win32 Console Application project type. It's a command shell application and looks like an MS-DOS window. (We'll never be without it). And since we have access to the .NET Framework from within our console application, we can use the Messaging classes to communicate with the queue server.
Installing a queue server is pretty straightforward, but I've found it can be difficult to write to Public queues from a Windows 2000 client if you are on an Active Directory (AD) network-that is, unless you have the AD installed on the domain controller. (The look on the network guy's face when you talk about touching the AD is priceless). We're fortunate that Windows XP and Microsoft Windows Server 2003 present no issues with writing to queues on other servers. If you are using Windows 2000, you can use Private queues pretty easily. You can certainly use Public Queues with a 2000 client, but there may be some more footwork involved.
On the SQL side, we've set-up a trigger within our table of e-mail addresses. Upon updating a record, it will get the ID of the changed record and then call the console application by using xp_cmdshell. xp_cmdshell is an extended stored procedure. This is a special DLL written in Microsoft Visual C++ .NET. It is comes standard with MSSQL Server. In SP3 for MSSQL Server you need to give the user calling this stored procedure rights to call console applications. For the purpose of this application, I made the SQL user a sysadmin. This will call our application and pass the updated ID of the record that we want to work with.
CREATE TRIGGER GO ON [dbo].[email]
FOR UPDATE
AS
DECLARE @cmd sysname
DECLARE @ID int
Select @ID = ID from inserted
SET @cmd = 'c:\temp\queuethunder.exe ' + cast(@ID as varchar(10))
EXEC master..xp_cmdshell @cmd
When creating a console application in Visual Studio, the Sub Main routine is the start-up code for the application. It assesses the parameters passed to it in the args parameter. (These are actual command line parameters passed to the application). This code then looks at the ID of the record we passed from our SQL trigger, opens up a queue, and then inserts into the queue (as an object) the ID only.
Sub Main(ByVal args() As String)
'Dim sQueuePath As String = "your_machine_name\private$\happy"
'Dim sQueuePath As String = "your_machine_name\happy"
Dim sQueuePath As String = "Calvinlapxp4\happy"
Dim myEnumerator As System.Messaging.MessageEnumerator
Dim myQueue As New System.Messaging.MessageQueue(sQueuePath)
Dim oHappyQueue As System.Messaging.MessageQueue = GetQueue(sQueuePath)
Dim oObject As String
Try
oObject = args(0)
'Send id to queue
oHappyQueue.Send(oObject)
oHappyQueue.Close()
Catch ex As Exception
Console.WriteLine("System Error " + ex.Message)
Console.WriteLine("System Error " + ex.Source)
Console.WriteLine("Sub-System Error " + ex.InnerException.Message)
End Try
oHappyQueue = Nothing
End Sub
Dim sQueuePath As String = "Calvinlapxp4\happy"
Dim myEnumerator As System.Messaging.MessageEnumerator
Dim myQueue As New System.Messaging.MessageQueue(sQueuePath)
Dim sResult As String
Dim oProjectThundercom As New com.projectthunder.www.ValidateEmail
Dim oData As New DataAccessLayer.DataAccess.SQLServer("Server",
"database", "username", "password")
'Get enumerator so we can go through the queue
myEnumerator = myQueue.GetMessageEnumerator()
'we are going through each message so we can so we can get the value
from the message then want to remove it so it isn't processed again
While myEnumerator.MoveNext()
'resulting id from e-mail record
sResult = StringFromMessage(myEnumerator.Current)
Dim semail As String
'go get email address from record
Dim ods As DataSet = oData.runSQLDataSet("select * from email
where id = '" + sResult + "'")
If ods.Tables(0).Rows.Count > 0 Then
semail = ods.Tables(0).Rows(0).Item("email")
Else
Console.WriteLine("Record not found " + sResult)
End If
'Going out to get the result of testing the e-mail address
Dim statusresult As String =
oProjectThundercom.ChatMailServer(semail)
'update the record with result
oData.runSQLDataSet("update email set emailstatus = '" +
statusresult + "' where id = '" + sResult + "'")
'remove the message from the queue so we don't process it again
myEnumerator.RemoveCurrent()
ods = Nothing
End While
myQueue.Close()
myQueue = Nothing
oProjectThundercom = Nothing
oData = Nothing
Catch ex As Exception
Console.WriteLine("System Error Message " + ex.Message)
Console.WriteLine("System Error Source " + ex.Source)
Console.WriteLine("System Error Trace " + ex.StackTrace)
Console.WriteLine("Sub-System Error " + ex.InnerException.Message)
End Try
