信箱源碼
A. ▇▊▋誰給我提供一個可用的發送電子郵件的VB源碼啊
有兩種發法哦,代碼如下,有點亂,如果需要打包範例文件我發給你?
DimfpathAsString
'DimxlAppAsExcel.Application'定義EXCEL類
'DimxlBookAsExcel.Workbook'定義工件簿類
'DimxlsheetAsExcel.Worksheet'定義工作表類
DimbhAsString
DimsbhAsString
DimstrMailAddAsString'收信人地址如：[email protected]
DimstrAddNameAsString'收信人姓名如：影是
DimstrSubjectAsString'發信的主題
DimstrNoteTextAsString'發信的內容
DimstrMailTooAsString'發信人地址
DimstrTooNameAsString'發信人姓名
OptionExplicit
OptionCompareText
.clsSendMail
PrivatebSendFailedAsBoolean
PrivateSubCommand1_Click()
OnErrorResumeNext
sbh=Trim(OLE1.object.Worksheets("sheet1").Cells(5,3).Value)
Ifsbh=""Then
MsgBox"請填寫小樣編號！",vbOKOnly,"警告"
Else
'strMailAdd="[email protected]"'收信人地址,
'strAddName="sdf"'收信人姓名sdf
'strNoteText="請查收計劃單"+sbh+"技術評審結果"'發信的內容
'strSubject=sbh+"合約技術評審結果"'發信的主題
'MAPISession1.DownLoadMail=False'不立即進入用戶的收信箱(非常有用的，不信你設為True試一下)
'MAPISession1.LogonUI=True'顯示一個啟動動話框
'MAPISession1.UserName="lqgdf"
'MAPISession1.Password="2fd@mizuda"
'MAPISession1.SignOn'這因該算激活吧，注意：不要把FoxMail在IE中設置為默認電子郵件，否則會出現錯誤
'MAPIMessages1.SessionID=MAPISession1.SessionID
'MAPIMessages1.Compose'構成一條消息
'MAPIMessages1.RecipAddress=strMailAdd'收信人地址
'MAPIMessages1.ResolveName
'MAPIMessages1.RecipDisplayName=strAddName'收信人姓名
'MAPIMessages1.MsgSubject=strSubject'發信的主題
'MAPIMessages1.MsgNoteText=strNoteText'發信的內容
'MAPIMessages1.AttachmentIndex=0'當前附件的索引位置
'MAPIMessages1.AttachmentPathName=fpath+"已評審"+""+sbh+".xls"'附件的路徑
'MAPIMessages1.Send'開始發送
'MAPISession1.SignOff'可以算成關閉吧
Callsend_Click
EndIf
EndSub
PrivateSubsend_Click()
DimlCountAsLong
DimlCtrAsLong
Dimt!
SetpoSendMail=NewclsSendMail
WithpoSendMail
.SMTPHostValidation=VALIDATE_HOST_DNS
.EmailAddressValidation=VALIDATE_SYNTAX
.Delimiter=";"
EndWith
Screen.MousePointer=vbHourglass
'======================================================
'GetPrivateProfileInt"郵件清單","attachment",txtAttach.Text,_
App.Path+"config.ini"
'======================================================
WithpoSendMail
'**************************************************************************
'
'**************************************************************************
.SMTPHost=GetPrivateStringValue("郵件清單","SMTPHost",_
App.Path+"config.ini")'Requiredthefisttime,optionalthereafter
.From=GetPrivateStringValue("郵件清單","senderemail",_
App.Path+"config.ini")'Requiredthefisttime,optionalthereafter
.FromDisplayName=GetPrivateStringValue("郵件清單","sendername",_
App.Path+"config.ini")'Optional,savedafterfirstuse
.Message=GetPrivateStringValue("郵件清單","message",_
App.Path+"config.ini")'Optional
.Attachment=fpath+"已評審"+""+sbh+".xls"'附件的路徑'Optional,
'
lCount=1
IflCount=0ThenExitSub
t!=Timer
'**************************************************************************
'Sendthemailinaloop.
'.
'**************************************************************************
'sendmethodonly(normalbutton)
'**************************************************************************
'ForlCtr=1TolCount
'.Recipient="[email protected]"
'.RecipientDisplayName="lqg_k"
'.Subject="zhuti"
'.Send
'Next
'.Disconnect
'***********************************************************
'connect,send,&disconnectmethods(bulksendbutton)
'***********************************************************
If.ConnectThen
ForlCtr=1TolCount
.Recipient=GetPrivateStringValue("郵件清單","recipientemail",_
App.Path+"config.ini")
.RecipientDisplayName=GetPrivateStringValue("郵件清單","recipientname",_
App.Path+"config.ini")
.Subject=sbh+GetPrivateStringValue("郵件清單","subject",_
App.Path+"config.ini")'發信的主題
.Send
Next
.Disconnect
EndIf
EndWith
SetpoSendMail=Nothing
Screen.MousePointer=vbDefault
MsgBox"發送成功！",vbInformation,"提示"
EndSub
範例界面如下:
B. VC++ 的POP接收郵件源代碼是什麼樣的
安裝JMail45。在安裝目錄下面會有jmail.dll，考到自己的項目目錄下面，
然後在項目中加入:import "jmail.dll"，收郵件的簡要代碼如下：
try
{
jmail::IPOP3Ptr pPOP3("JMail.POP3");
jmail::IMessagesPtr pMessages;
// 超時 30S
pPOP3->Timeout = 30;
// 連接郵件伺服器
pPOP3->Connect((LPCTSTR)m_strUserid,
(LPCTSTR)m_strPassword,
(LPCTSTR)m_strMailServer,
110);
pMessages = pPOP3->Messages;
// 已下載的郵件的實際個數(因為第0個ITEM是未用的，所以-1)
long lCount = pMessages->Count - 1;
if(lCount == 0)
AfxMessageBox("信箱為空");
else
{
jmail::IMessagePtr pMessage;
// 遍歷每封信
for(long i = 1; i <= lCount; i++)
{
pMessage = pMessages->Item[i];
_bstr_t bstrFrom = pMessage->From;
_bstr_t bstrSubject = pMessage->Subject;
_bstr_t bstrBody = pMessage->Body;
COleDateTime oleDate = pMessage->Date;
int nListItem = m_ctlMessagesList.InsertItem(i, (const char*)bstrFrom);
m_ctlMessagesList.SetItem(nListItem, 1, LVIF_TEXT, (const char*)bstrSubject, 0, 0, 0, NULL);
m_ctlMessagesList.SetItem(nListItem, 2, LVIF_TEXT, (const char*)oleDate.Format("%Y-%m-%d"), 0, 0, 0, NULL);
m_strBodyArray.Add((const char*)bstrBody);
pMessage.Release();
}
}
// 斷開連接
pPOP3->Disconnect();
}
catch(_com_error e)
{
CString strErr;
strErr.Format("錯誤信息：%s\r\n錯誤描述：%s", (LPCTSTR)e.ErrorMessage(), (LPCTSTR)e.Description());
AfxMessageBox(strErr);
}
C. Jmail的用法 .求源代碼 ：html php 或asp （用戶提交郵箱地址後。jmai插件l就回復一份准備好的郵件給他）
資料庫操作我就不寫了...
下面是JMAIL發件代碼.
Set JMail = Server.CreateObject("JMail.Message")
'是否將信頭編碼成iso-8859-1字元集. 預設是True
JMail.ISOEncodeHeaders = False
'如果JMail.silent設置為true,ErrorCode包含的是錯誤代碼
JMail.Silent = True
'設置標題和內容編碼，如果標題有中文，必須設定編碼為gb2312
JMail.Charset = "gb2312"
'JMail.ContentType = "text/html" '如果發內嵌附件一定要注釋掉這行，重要！
JMail.From = FEmail ' 發送者地址
JMail.FromName = FName ' 發送者姓名
JMail.MailServerUserName =FUserName ' 身份驗證的用戶名
JMail.MailServerPassword = FPassword ' 身份驗證的密碼
'加入新的收件人
JMail.AddRecipient FRecipient, FRecipientName
JMail.Subject = username&"的付款信息"
JMail.Body = "購買服務."
JMail.appendHTML "<br></body></html>"
'如果對方信箱不支持HTML格式郵件，我們仍需要給他一個友善的提示
' But as not all mailreaders are capable of showing HTML emails
' we will also add a standard text body
JMail.Body = "Too bad you can't read HTML-mail."
JMail.appendText " There would have been a nice picture for you"
JMail.Send(SServer)
JMail.Close()
Set JMail = Nothing
'Send to admin
Set JMail = Server.CreateObject("JMail.Message")
'是否將信頭編碼成iso-8859-1字元集. 預設是True
JMail.ISOEncodeHeaders = True
'如果JMail.silent設置為true,ErrorCode包含的是錯誤代碼
JMail.Silent = True
'設置標題和內容編碼，如果標題有中文，必須設定編碼為gb2312
JMail.Charset = "gb2312"
'JMail.ContentType = "text/html" '如果發內嵌附件一定要注釋掉這行，重要！
JMail.From = FEmail ' 發送者地址
JMail.FromName = FName ' 發送者姓名
JMail.MailServerUserName =FUserName ' 身份驗證的用戶名
JMail.MailServerPassword = FPassword ' 身份驗證的密碼
'加入新的收件人
JMail.AddRecipient FRecipient_Admin, FRecipientName_Admin
JMail.Subject = username&"的付款信息"
JMail.Body = "購買服務."
JMail.appendHTML "<br></body></html>"
'如果對方信箱不支持HTML格式郵件，我們仍需要給他一個友善的提示
' But as not all mailreaders are capable of showing HTML emails
' we will also add a standard text body
JMail.Body = "Too bad you can't read HTML-mail."
JMail.appendText " There would have been a nice picture for you"
JMail.Send(SServer)
JMail.Close()
Set JMail = Nothing
先把郵件伺服器用OE調通
D. 有沒有支持源代碼編輯的電子信箱
這個好像沒有,但有一個網路賀卡有這種工能,你可以上傳附件的
E. "網站源碼「是什麼意思
網站源碼，我們可以把它理成源文代碼，就拿我們當前看到的這個網頁來說吧，其實它是由一大堆的源代碼組成，通過我們的IE（Microsoft Internet Explorer）瀏覽器（或伺服器）翻譯成現在我們所看到的這個樣子。
網站源碼也分為兩種，一種是動態源碼如：ASP，PHP，JSP，.NET，CGI等，一種是靜態源碼如：HTML等。
什麼是動態源碼呢？最大的特點就是能夠和用戶之間互動。比如說網易的信箱，張三登陸的時候，會看到歡迎光臨張三，李四又登陸了，李四又看到歡迎光臨李四，其實他們兩個人登陸的是一個頁面，這個就是動態源碼的好處，如果要是用靜態源碼，好么網易有幾百萬的郵箱用戶，每個人做一個頁面那要多少頁啊？動態源碼不單單只有這么一點用處，比如說我們常見的一些論壇、留言本、計數器、聊天室等，都是由動態源碼開發的。
什麼是靜態源碼呢，比如說我們當前看到的這個網頁他就是靜態的源碼，靜態源碼無法實現以上的那些功能。
現在有不少源碼下載站，提供別人開發好的源碼讓我們下載。他們開發的都不錯，美工也相當不錯，基本上下載下來，只要稍加改動就可以使用了，更方便了我們建站，您可以跟據自己所需去下載，更重要的是，要先看看您自己使用的網站空間，是那一種的，比如說您使用的是ASP空間，那麼您一定要下載ASP源碼，不然下載別的是不能運行的。。
F. php源碼手機驗證更換成郵箱驗證
這個不是幾行代碼就能給出結果的事。
1：將原代碼里的手機驗證去掉。
2：添加phpmailer，並用一個自己的郵箱作為發信箱
3：用戶在注冊時，要求其填寫郵箱
4：用戶提交注冊信息，POST處理完成後，發送一封郵件到其填寫的注冊郵箱
驗證有兩種辦法：
1：發送一個系統生成的字元串（一般3-6位數字即可），用戶在郵箱中查看到郵件後，進行復制粘貼激活
2：發送一個特定的URL到郵箱，用戶點擊該URL，即可完成激活