
PMI认为,项目管理有五大流程,九大知识领域,数十个方法论,和上百个工具,需要至少参加35小时大约5天的培训,才能理解通常认可的(Generally Accepted)管理纲要。
其实项目管理可以很简单。项目管理可以就是对时间、范围、费用的平衡。项目经理不是魔术师。客户要增加工作范围的时候,项目经理就调整一下时间、费用。公司要求减少费用的时候,项目经理只能减少工作范围,或者改变时间。虽然实际环境会很复杂,但原理如此而已。
项目经理最是平衡专家,因为他必须在时间、范围、费用的三角形上寻求到最佳平衡。
一条大河波浪宽,风吹稻花香两岸,我家就在岸上住,听惯了艄公的号子,看惯了船上的白帆。


Sub SendMail(MailServerType,MailAddRecipient,MailSubject,MailBody)
if MailServerType="" or MailAddRecipient=""or MailSubject="" or MailBody="" then
Exit Sub
End if
on error resume next
if MailServerType="JMail" then
Set JMail=Server.CreateObject("JMail.Message")
JMail.Charset="gb2312"
JMail.ContentType = "text/html"
'JMail.ContentType = "text/plain"
JMail.From = "youremail@yourdomain.com"
AddRecipientArray=split(MailAddRecipient,";")
For i=0 to Ubound(AddRecipientArray)
if ""&AddRecipientArray(i)&""<>"" then JMail.AddRecipient AddRecipientArray(i)
Next
JMail.Subject = MailSubject
JMail.Body = MailBody
JMail.MailServerUserName = "SmtpServerUserName"
JMail.MailServerPassword = "SmtpServerPassword"
JMail.Send "SmtpServer"
Set JMail=nothing
elseif MailServerType="CDO" then
Set CDO=Server.CreateObject("CDO.Message")
CDO.From = "youremail@yourdomain.com"
CDO.To = MailAddRecipient
CDO.Subject = MailSubject
CDO.HtmlBody = MailBody
'CDO.TextBody = MailBody
CDO.HTMLBodyPart.Charset="gb2312"
CDO.Send
Set CDO=Nothing
end if
If Err Then
Response.Write ""&MailAddRecipient&"邮件发送失败!错误原因:" & Err.Description & "<br>"
On Error GoTo 0
End if
End Sub
<img border="0" src="http://chart.apis.google.com/chart?cht=p3&chd=t:60,40&chs=250x100&chl=Hello|World" alt="Yellow pie chart" />