當前位置:首頁 » 操作系統 » 郵箱系統源碼

郵箱系統源碼

發布時間: 2023-03-24 06:47:55

① Jmail群發郵件的源碼

試試以下代碼:核心就是循環調用發郵件代碼就可以了
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%

Server.ScriptTimeOut=9999999
Response.Buffer = True

dim FoundErr, ErrMsg, Action
dim MailServerUserName, MailServerPassWord, MailDomain, MailServer
dim MailtoAddress, MailtoName, Subject, MailBody, FromName, MailFrom, Priority

FoundErr = False
ErrMsg = ""
Action = Trim(Request("action"))
ComeUrl = ""
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>群發郵件系統</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="Microsoft FrontPage 4.0" Name=GENERATOR>
<STYLE type=text/css>
a {text-decoration: none;} /* 鏈接無下劃線,有為underline */
a:link {color: #000000;text-decoration: none;} /* 未訪問的鏈接 */
a:visited {color: #000000;text-decoration: none;} /* 已訪問的鏈接 */
a:hover {color: #ff6600;text-decoration: none;} /* 滑鼠在鏈接上 */
a:active {color: #000000;text-decoration: none;} /* 點擊激活鏈接 */
TD {
FONT-SIZE: 18px; COLOR: #000000; FONT-FAMILY: '宋體';LINE-HEIGHT: 150%;
}
BODY {
FONT-SIZE: 12px; COLOR: #000000; FONT-FAMILY: '宋體'
}
INPUT {
FONT-SIZE: 12px; COLOR: #000000; FONT-FAMILY: '宋體'
}
SELECT {
FONT-SIZE: 12px; COLOR: #000000; FONT-FAMILY: '宋體'
}
.title
{
background:#0DB432;
color: #ffffff;
font-weight: normal;
}
.border
{
border: 1px solid #0DB432;
}
.tdbg{
background:#f0f0f0;
line-height: 120%;
}
.tdbg1{
background:#A3E2B1;
line-height: 120%;
}
</STYLE>
</HEAD>

<BODY text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0>
<br>
<%
Select Case Action
Case "send"
Call sendMail()
Case Else
Call Main()
End Select
If FoundErr = True Then
Response.Write WriteErrMsg(ErrMsg, ComeUrl,"錯誤信息")
End If
Response.write"</BODY></HTML>"

sub main()

If Not IsObjInstalled("JMail.Message") Then
FoundErr=True
ErrMsg = "伺服器不支持JMail組件,請正確安裝"
Exit Sub
End If
%>
<form action="wssf.asp?Action=send" method=post>
<table width="80%" class="border" border="0" cellspacing="1" cellpadding="4" align="center" height="589">
<tr>
<td height="40" colspan="2" align="center" class="title">
<p><b> 群發郵件系統</b></p> </td>
</tr>
<tr>
<td width='30%' class='tdbg1' height="25"><strong>郵件伺服器地址:</strong> </td>
<td class='tdbg' height="25">
<input name='MailServer' type='text' id='MailServer' value='smtp.163.com' size='40'> <FONT color=#ff0000>*</FONT>
</td>
</tr>
<tr>
<td width='30%' class='tdbg1' height="25"><strong>登錄用戶名一:</strong>
</td>
<td class='tdbg' height="25">
<input name='MailServerUserName1' type='text' id='MailServerUserName1' value='XXX' size='40'> <FONT color=#ff0000>*</FONT>
</td>
</tr>
<tr>
<td width='30%' class='tdbg1' height="25"><strong>登錄密碼一:</strong>
</td>
<td class='tdbg' height="25">
<input name='MailServerPassWord1' type='password' id='MailServerPassWord1' value='***' size='40'> <FONT color=#ff0000>*</FONT>
</td>
</tr>

<tr>
<td width="30%" class="tdbg1" height="25">您的姓名:</td>
<td class="tdbg" height="25"><input name="name" type=text id="name" size=30>
<FONT color=#ff0000>*</FONT></td>
</tr>
<tr>
<td width="30%" class="tdbg1" height="25">您的E-mail:</td>
<td class="tdbg" height="25"><input name="email" type=text id="email" value="[email protected]" size=30>
<FONT color=#ff0000>*</FONT></td>
</tr>
<tr>
<td width="30%" class="tdbg1" height="25">收件人姓名:</td>
<td class="tdbg" height="25"><input name="toname" type=text id="toname" size=30>
<FONT color=#ff0000>*</FONT></td>
</tr>
<tr>
<td width="30%" class="tdbg1" height="25">收件人Email:</td>
<td class="tdbg" height="25"><input name="toemail" type="text" id="toemail" size="30" maxlength="100">
<FONT color=#ff0000>*</FONT></td>
</tr>
<tr>
<td width="30%" class="tdbg1" height="25">郵件標題:</td>
<td class="tdbg" height="25"><input type=text name="topic" size=30>
<FONT color=#ff0000>*</FONT></td>
</tr>
<tr>
<td width="30%" class="tdbg1" height="500">郵件內容:</td>
<td class="tdbg" height="500"><textarea name="body" cols=74 rows=34 id="body"></textarea>
<FONT color=#ff0000>*</FONT></td>
</tr>
<tr>
<td width="30%" class="tdbg" height="27"></td>
<td height=27 class="tdbg">
<input type="Submit" value="發送郵件" name="Submit">

<input type="reset" name="Clear" value="重新填寫">
</td>
</tr>
</table>
</form>
<%
End Sub

Sub sendMail()
MailServer = trim(Request("MailServer")) 'SMTP伺服器地址:smtp.163.com, 請修改
MailServerUserName = trim(Request("MailServerUserName")) 'SMTP登錄用戶名:[email protected], 請修改
MailServerPassWord = trim(Request("MailServerPassWord")) 'SMTP登錄密碼:***, 請修改,注意大小寫
MailDomain = trim(Request("MailDomain")) 'SMTP域名:163.com, 請修改

FromName = trim(Request("name")) '發件人名字
MailFrom = trim(Request("email")) '發件人郵箱
MailtoName = trim(Request("toname")) '發件人名字
MailtoAddress=trim(Request("toemail")) '收件人郵箱
Subject = trim(Request("topic"))
MailBody = trim(Request("body"))
Priority=3
If FromName="" or MailFrom="" or MailtoName="" or Subject="" or MailBody="" then
FoundErr = True
ErrMsg = "請填寫完整每一項信息!"
Exit Sub
End If
ErrMsg = JSendMail()
If ErrMsg<>"" Then
FoundErr = True
Exit Sub
Else
Response.Write WriteErrMsg("", ComeUrl,"成功信息")
End If
End Sub

Function JSendMail()
On Error Resume Next

JSendMail = ""
Dim JMail,tempMessage
Set JMail = Server.CreateObject("JMail.Message")
JMail.silent=true
JMail.Logging = True

JMail.Charset = "gb2312" '郵件編碼
JMail.silent = True
JMail.ContentType = "text/html" '郵件正文格式
JMail.ServerAddress=MailServer '用來發送郵件的SMTP伺服器
'如果伺服器需要SMTP身份驗證則還需指定以下參數
JMail.MailServerUserName = MailServerUserName1 '登錄用戶名
JMail.MailServerPassWord = MailServerPassWord1 '登錄密碼

JMail.AddRecipient MailtoAddress, MailtoName '收信人
JMail.Subject = Subject '主題
JMail.HtmlBody = MailBody '郵件正文(HTML格式)
JMail.Body = MailBody '郵件正文(純文本格式)
JMail.FromName = FromName '發信人姓名
JMail.From = MailFrom '發信人Email
JMail.Priority = Priority '郵件等級,1為加急,3為普通,5為低級
Dim emailArray
If MailtoAddress="" then
set fsObj = Server.CreateObject("Scripting.FileSystemObject")
FilePath = Server.MapPath("email.txt")
set txtsObj = fsObj.OpenTextFile(FilePath, 1, false)
i = 0
Do While Not txtsObj.atEndOfStream
emailArray(i)=txtsObj.ReadLine
JMail.AddRecipient Trim(emailArray(i)),MailtoName
i=i+1
loop
Else
JMail.AddRecipient MailtoAddress, MailtoName
End If
JMail.Send (MailServer)
tempMessage = JMail.ErrorMessage
JMail.Close
Set JMail = Nothing
If tempMessage<>"" then
FoundErr = True
JSendMail = tempMessage
end if
Set JMail = Nothing
End Function

Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = CreateObject(strClassString)
If Err.Number = 0 Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function

Function WriteErrMsg(sMsg, sComeUrl,Massages)
Dim strMsg
strMsg = strMsg & "<html><head><title>"&Massages&"</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbCrLf
strMsg = strMsg & "</head><body><br><br>" & vbCrLf
strMsg = strMsg & "<table cellpadding=2 cellspacing=1 border=0 width=400 class='border' align=center>" & vbCrLf
strMsg = strMsg & " <tr align='center' class='title'><td height='22'><strong>"&Massages&"</strong></td></tr>" & vbCrLf
if FoundErr=True Then
strMsg = strMsg & " <tr class='tdbg'><td height='100' valign='top'><b>產生錯誤的可能原因:</b>" & sMsg & "</td></tr>" & vbCrLf
Else
strMsg = strMsg & " <tr class='tdbg'><td height='100' valign='top'><br><b>恭喜,成功用JMail發送郵件!</b>" & sMsg & "</td></tr>" & vbCrLf
End If
strMsg = strMsg & " <tr align='center' class='tdbg'><td>"
If sComeUrl <> "" Then
strMsg = strMsg & "<a href='javascript:history.go(-1)'><< 返回上一頁</a>"
Else
strMsg = strMsg & "<a href='javascript:window.close();'>【關閉】</a>"
End If
strMsg = strMsg & "</td></tr>" & vbCrLf
strMsg = strMsg & "</table>" & vbCrLf
strMsg = strMsg & "</body></html>" & vbCrLf
WriteErrMsg = strMsg
End Function
%>

② 易語言發送郵件源碼怎麼寫啊

  1. 首先,在軟體的界面創建「標簽1」「標簽2」,並改名為「郵件標題」「郵件內容」,也可按照自己的想法修改(針對應用於其他特殊需要用戶)創建,「編輯框1」「編輯框2」「按鈕1」,並將「按鈕1」改名為「發送郵件」

  2. 雙擊「發送郵件」按鈕,進入代碼編輯區域

  3. 連接「發信伺服器」,並判斷是否連接成功,代碼:如果 (連接發信伺服器 (「smtp.163.com」, 25, 「你的163郵箱賬戶」, 「你的163郵箱密碼」, ) = 真)

  4. 這里判斷如果連接發信伺服器成功,將執行發送郵件,代碼:發送郵件 (編輯框1.內容, 編輯框2.內容, 「這里寫你收信的郵件地址」, , , 「這里寫你的發信郵箱地址」, )

  5. 這里判斷如果連接發送伺服器失敗的話,將執行彈出信息框代碼,當然也可省略這個步驟,根據個人需要選擇,代碼:信息框 (「連接發信伺服器失敗」, 0, )

  6. 此時,完整的代碼如下:

  7. .版本 2支持庫 internet如果 (連接發信伺服器 (「smtp.163.com」, 25, 「你的163郵箱賬戶」, 「你的163郵箱密碼」, ) = 真)發送郵件 (編輯框1.內容, 編輯框2.內容, 「這里寫你收信的郵件地址」, , , 「這里寫你的發信郵箱地址」, )否則信息框 (「連接發信伺服器失敗」, 0, , )

  8. 「編輯框1」是郵件標題,「編輯框2」是郵件內容,填寫完之後,點擊「發送郵件」按鈕,即可。

③ OA辦公系統源碼使用方法

與派Exchange-MAIL-OA-實時通訊-視頻會議技術支持網 http://www.yupai.net 基於Windows Server、Active Directory、Exchange Server、Sharepoint、Live Communications、Live Meeting技術,致力於辦公自動化系統OA、實時通訊RTC、視頻會議MEET、工作流WORKFLOW、企業郵局MAIL等開發,交流技術、分享源碼、下載工具、人才招聘自薦的供求園地

技術交流
//////////////////////////////////
Exchange維護
Exchange、Active Directory、ISA、Conferencing、Instant Messaging、Live Communication系列的管理和維護、Outlook、msn、Windows、Office等的使用

Exchange開發
基於Exchange系統,ADSI、.Net工具的OA辦公系統的開發研討

Exchange下載
可在這里尋求下載OA系統建設相關資源(工具軟體、程序源碼、技術書籍等),也可在這里偉大的共享、平等的交換、有償的出售。可以雙方直接交易,也可委託本站做雙方驗證人,以迴避可能的交易風險

Exchange手冊
歸納Exchange、Outlook、AD、IM等維護使用中常見問題的解決方法,使用心得、維護訣竅等。

源碼產品
/////////////////////////////////////
與派辦公網(在線試用:http://www.yupai.net/bbs/useroa/logonoa.asp)
基於Exchange Server、Active Directory,採用.Net開發的OA系統、提供包括「郵件」、「日歷會議」、「通訊簿」、「便簽」等個人辦公工具;公告通知、部門的日程安排及公用通訊錄、公司及部門主管可以隨時監控下屬員工的工作狀況,包括個人日歷與個人聯系人等;公文摸板及流程自定義,支持串簽、會簽、多人決策等,具有過程跟蹤、公文查詢等功能;部門文檔中心支持管理許可權分配,支持全文、關鍵字等檢索方式...

與派視頻會議(在線試用:http://www.yupai.net/bbs/usermeeting/logonmeeting.asp)
從世界各地參加現場討論、發送多媒體報告、允許您與其他與會者聊天、使用白板以及共享文件或應用程序協作。如果計算機帶有攝像頭和話筒,則可以使用視頻會議提供程序觀看或與其他與會者交談...

與派郵局(在線試用:http://www.yupai.net/bbs/usermail/logonmail.asp)
基於Exchange Server、Active Directory,採用.Net開發的郵件(Mail)收發+郵箱管理系統,與exchange高度集成,界面友好,收發自如,公司通訊錄列舉、檢索,個人通訊錄管理,密碼修改、簽名、自動轉發;管理組織、用戶信息、及用戶郵箱存儲限制...

與派實時通訊(在線試用:http://www.yupai.net/bbs/userim/logonim.asp)
基於Exchange IM\Office Live Communications技術開發的即時通訊系統,可以配置用戶的即時通訊功能,可以自動獲取全公司、部門可進行即時通訊的聯系人列表...

OA市場
/////////////////////////////////
OA動態
業界在OA技術、應用等方面的新聞動態

OA應用
針對辦公自動化系統、團隊協作消息系統在各行業的典型應用,交流應用感受、指出缺陷、指出期望的功能。

OA人才
OA企業可以在此招聘所需人才;OA人才也可在此毛遂自薦,尋求伯樂。

去看看 http://www.yupai.net
參考資料:與派Exchange-MAIL-OA-實時通訊-視頻會議技術交流工具下載源碼提供www.yupai.net

④ DZ論壇源碼,後台郵箱設置!急!!

理論上不會啊 換個郵箱試試 看看是不是郵箱問題

⑤ gmail郵箱怎麼編輯郵件源代碼

直接源碼編輯不太可能,很多人提出過這個問題,但是都得不到答案。有一種可能的情況就是使用客戶端,不過我沒有試過。還有一種辦法,就是在本地編輯好郵件內容(html格式)然後用-paste,我用過這種辦法,可行。

⑥ 將一款郵件系統切換成HTML編輯格式,求大神指點

你用什麼軟體來查看發出去的郵件呢?是不是你接受查看郵件的那個軟體本身查看方式設成text格式的而不是html?
我看你的這個截圖應該是英文版本的outlook2013.
還有一個問題我才想起來,那就是你在發送的時候,是否設旁基置發送格式為html?
在"工褲腔具->選項->郵件格式"中設胡啟衫置為以html格式發送。

⑦ QQ郵箱的源碼按鈕在哪裡

你好,當你在QQ郵箱中發送郵件或收到郵件之後,請點擊最右側的向下箭頭按鈕,隨後就能看到顯示郵件原文按鈕,點擊這個地方將顯示郵件源碼。不過這兒的源碼基本上無法使用。建議你選擇導出為eml文件或保存到記事本進行保存。


⑧ 這是網易郵箱自動登錄vbs源碼請問是那出了錯怎麼改

要是有驗證碼的話 你得先過了這關.
沒有驗證碼還比較容易實現,
你能寫出識別他驗證碼的程序嗎?
當然前提你用戶名和密碼要對.
我給你說個思路
父窗口賦值給子窗口文本框,
然後調用子窗口的submit事件,
以前我寫過簡訊炸彈就是這樣子實現的.

⑨ 139郵箱的編輯源碼功能在哪

登錄郵箱,森穗打開你衡春悶想要編輯的那個郵件,點擊郵件標題那一排最右端的小三角圖標,在下拉欄中點擊咐彎「顯示郵件原文」,即可看到郵件源代碼啦!希望幫到你!

熱點內容
簡述預演算法 發布:2024-05-22 13:38:37 瀏覽:552
演算法宣傳 發布:2024-05-22 13:38:34 瀏覽:977
太空殺任務密碼是多少 發布:2024-05-22 13:38:34 瀏覽:369
安卓其他伺服器怎麼登陸 發布:2024-05-22 13:25:26 瀏覽:16
創造與魔法ios腳本刷龍涎草 發布:2024-05-22 12:44:22 瀏覽:525
如何從安卓導數據到蘋果 發布:2024-05-22 12:15:59 瀏覽:274
博越互聯版屬於什麼配置 發布:2024-05-22 12:11:46 瀏覽:224
伺服器除了dns還有什麼 發布:2024-05-22 11:58:14 瀏覽:291
android開發背景 發布:2024-05-22 11:54:01 瀏覽:181
java文件怎麼保存 發布:2024-05-22 11:17:17 瀏覽:828