【Vegas原创】Jmail发送邮件（Vegas Final版）2007年10月22日UPDATE:正文中图片的显示

1.asp:

set mail=CreateObject("jmail.Message")

mail.Charset ="gb2312"

mail.From ="**" 'from

mail.FromName="【Summary Daily Report】"

mail.AddRecipient "**" 'to

mail.AddRecipient "**@**" 'to

mail.subject=Subject

mail.HTMLBody= strBody

mail.AddAttachment(path)

On Error Resume Next

mail.Send("MailServer")

mail.close()

set mail=nothing

response.write date &"发送成功"

经典实例：

<%

Session("ConnectionString")="Provider=SQLOLEDB;User id=sa;Password=***;Initial Catalog=***;Data Source=10.*.*.*"

set Connection = Server.CreateObject ("ADODB.Connection")

Connection.Open Session("ConnectionString")

strA="select name from members where account_id='"+Request.QueryString("Account_ID")+"'"

set rsA=connection.Execute(strA)

FromName=trim(rsA("name"))

'邮件正文

strsql="select txt,Filename,File_Name from bbs where unique_id="+Request.QueryString("Unique_ID")

'response.write strsql

'response.end

set rs=connection.execute(strsql)

Body=trim(rs("txt"))

Name1=trim(rs("Filename"))

Name2=trim(rs("File_Name"))

'全公司

strCom="select distinct mail from members where mail is not null"

'strCom="select mail from members where mail is not null and account_id in ('vegas lee','sarah ding')"

set rsAll=connection.Execute(strCom)

do while not rsall.eof

strCompony = strCompony + rsAll("mail")+";"

rsAll.movenext

loop

set mail=CreateObject("jmail.Message")

mail.Charset ="gb2312"

mail.From = "*@*"

mail.Subject =Request.QueryString("title")

mail.FromName=FromName +"发出了【全公司公告】，详请看邮件正文。"

if not isnull(name2) then

path=server.MapPath("Object\BBS") & "\" &name2

mail.AddAttachment (path)

end if

dim aEmail

aEmail = split(strCompony,";")

for i=0 to UBound(aEmail)-1

mail.AddRecipient Replace(aEmail(i)," ","")

next

mail.HTMLBody=Body

'On Error Resume Next

mail.Send("*****")

mail.close()

set mail=nothing

response.redirect("bbs.asp")

%>

ＰＳ：Jmail注册：

regsvr32 %path%/jmail.dll

２．．net版：

２．１　ｖｂ．ｎｅｔ版：

Sub sendmail()

Dim jm As New jmail.Message

Dim chkOK As Boolean = False

Dim strServerName As String



jm.Charset = "gb2312"

jm.ContentType = "text/html"

jm.From = "**@***.com"

jm.FromName = "DTS TRAINING"

jm.Subject = "开课通知"

jm.AddRecipientCC(strRece, strReceive)

jm.AddRecipientCC("@", "Aki Young")

jm.AddRecipientBCC(" @", "Cici Wang")

body += "</table></body></html>"

Dim strFile As String

Dim appFile As String

jm.Body = body

If jm.Send("*****") Then

chkOK = True

Else

chkOK = False

End If

If chkOK = True Then

lblmsg.Text = "发送成功！"

End If

jm.Close()

jm = Nothing

End Sub

ｃ＃版：

private void Button1_Click(object sender, System.EventArgs e)

{

jmail.Message jmessage=new jmail.MessageClass();

jmessage.Charset="GB2312";

jmessage.From = "*@*.com";

jmessage.FromName= "Vegas" ;

jmessage.Subject="test email from jmessage";

jmessage.AddRecipient("*@*.com","Vegas","123");

jmessage.Body= "Vegas is a tallent!";

jmessage.Send("***",false);

Response.Write ("<script language=javascript>alert('email sent successfully!')</script>");

jmessage.Close() ;

}

2007年10月22日UPDATE:正文中图片的显示：

public int SendJmail(string title,string strText,string strPICDir,string strFromSender, string tmpRecipients, string tmpRecipientCCs, string tmpRecipientBCCs)

{

int SendedMailCnt = 0;

jmail.Message MesMail = new jmail.Message();

strFromSender = "";

//图片的关键

string daxondir = @"\\sc00-vegas\pg\daxon.bmp";

string strAttIDdaxon= MesMail.AddAttachment(daxondir, true, "");

string strDaxon=string.Format("cid:{0}", strAttIDdaxon);

string strGreeting = "<p class=MsoNormal><font size=4 face='Monotype Corsiva'><span lang=EN-US style='font-size:15.0pt;font-family:Monotype Corsiva'>Dear sir,<o:p></o:p></span></font></p>";

string strBye = "..."

strBye = strBye + "

"

//string strPICURL = "http://localhost/MESReport/Report/SampleChartInquiry.aspx?datefm=Yesterday&dateto=Yesterday&defect=3K&staname=Packing&shift=%&size=%&glue=%&line=%&lot=%&emp=%&zero=N&type=0&seq=18";

string strMailServer="

";

MesMail.Charset = "GB2312";

MesMail.Subject = title;

MesMail.ISOEncodeHeaders = true;

MesMail.From = strFromSender;

if (tmpRecipients.ToString().Trim() != "")

{

string[] strRecipients = tmpRecipients.Split(';');

foreach (string Recipient in strRecipients)

{

string Rec = Recipient.Replace(" ", "") + "@

";

MesMail.AddRecipient(Rec, "", "");

}

}

MesMail.AppendHTML("<head><style type=text/css media=all>.form_title { font-family: Verdana;font-size: 12px;font-weight: bolder;color: #333333;}.form_content { font-family: Verdana; font-size: 12px; color: #333333; font-weight: bolder;</style></head><body lang=ZH-CN link=blue vlink=purple>");

MesMail.AppendHTML(strGreeting);

string strPhoto="";

// IF have Photo 另一个图片：）

if (strPICDir.Trim() != "")

{

if (strPICDir.Trim() == "1")

{

DateTime Today = DateTime.Now;

string strToday = Today.AddDays(-1).ToString("M.d.yyyy-M.d.yyyy");

strPICDir = @"\\10.91.50.27\Report\dayreport_(" + strToday + @")\Web 使用Web 用户排名.gif";

}

string strAttID = MesMail.AddAttachment(strPICDir,false,"");

strPhoto = string.Format("<img src=\"cid:{0}\" border=0><br>", strAttID);

}

//strPICURL = SetDateTime(strPICURL);

//tmpMail.AddURLAttachment(strPICURL, string.Format("Web{0}.html", 0), false, "yes");

MesMail.AppendHTML(strText);

MesMail.AppendHTML("<br>");

//string strPageName = "SampleChartInquiry.aspx";

//MesMail.AppendHTML(FormatHTMLTable(GetTableData(strPICURL, strPageName)));

MesMail.AppendHTML(strPhoto);

MesMail.AppendHTML("<br><br></body></html>");

MesMail.AppendHTML(strBye);

MesMail.Send(strMailServer,false );

MesMail.Attachments.Clear();

MesMail.Clear();

MesMail = null;

return SendedMailCnt;

}