信箱源码
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，即可完成激活