相关推荐

Jmail在pb中的应用

/这个是一个成功的声明 FUNCTION int fsendemail(ref String sSmtpServer, ref String sSenderId, & ref String sPsw, ref String sSenderName, ref String sRcvAddr,& ref String sSenderAddr,ref String sCCAddr, & ref String sBCCAddr, ref String sSubject, & ref String sContent, ref String sAttach) Library "PSdEmail_dll.dll" 代码如下 //mail_url放邮件地址,as_mailtext放邮件内容,mail_cc是邮件的抄送地址 //as_subject是邮件主题,as_filename是附件的文件名,as_pathname是附件的完整路径名 string ls_name mailsession lms_data mailmessage lmms_message mailreturncode lmr_value integer li_i //产生邮件会话对象mses lms_data = create mailsession //邮件登录 lmr_value = lms_data.maillogon(mailnewsession!) if lmr_value mailreturnsuccess! then gnv_base.of_message("真不幸，邮件注册失败") return -1 end if //标题 lmms_message.subject = sle_subject.text //正文 lmms_message.notetext = trim(mle_content.text) + ' ' ////附件 //if as_pathname '' or as_filename '' then // mmsg.attachmentfile[1].pathname=as_pathname // mmsg.attachmentfile[1].filename=as_filename //end if //******************************校验收件人邮件地址是否是合法地址***************************// //原收件人 ls_name = sle_rcv.text lmr_value = lms_data.mailResolveRecipient(ls_name) if lmr_value = mailReturnSuccess! THEN lmms_message.Recipient[1].RecipientType = mailto! lmms_message.Recipient[1].address = "liuzhp@huadong.net" lmms_message.Recipient[1].name = "liuzhp@huadong.net" elseif lmr_value = mailReturnFailure! THEN gnv_base.of_message('收件人地址错误，请检查') return -1 else gnv_base.of_message('收件人地址错误，请检查') return -1 end if //发送邮件 lmr_value = lms_data.mailsend(lmms_message) if lmr_value mailreturnsuccess! then messagebox("邮件发送","邮件发送失败!"+char(10)+char(13)+'请检查:'+char(10)+char(13)+& '1.附件路径和名称是否正确.'+char(10)+char(13)+& '2.本地outlook配置是否正确.'+char(10)+char(13)+& '3.如以上都正确,请与系统管理员联系!') return -1 elseif lmr_value = mailreturnsuccess! then // messagebox("邮件发送","邮件发送完毕!") end if lms_data.maillogoff() //退出登录 destroy lms_data //取消邮件会话 return 1 String ls_RcvAddr //收件人 String ls_CcAddr //转发 String ls_BccAddr //暗送 String ls_Sub //主题 String ls_Content //内容 String ls_Attach = ''//附件,多个附件由ATTACHSPLIT分隔 Constant String ATTACHSPLIT = '|' //附件的分隔符号 Integer li_Rtn //返回值,0:发送成功,1:发送失败 pointer oldpointer // Declares a pointer variable oldpointer = SetPointer(HourGlass!) ls_RcvAddr = sle_Rcv.Text //收件人 ls_CcAddr = sle_CC.Text //转发 ls_BccAddr = sle_BCC.Text //暗送 ls_Sub = sle_Subject.Text //主题 ls_Content = mle_Content.Text //内容 Long ll_Row, ll_RowCnt //把附件用ATTACHSPLIT连接起来 ll_RowCnt = dw_Attach.RowCount() FOR ll_Row = 1 TO ll_RowCnt ls_Attach = ls_Attach + dw_Attach.Object.FilePath[ll_Row] +& dw_Attach.Object.FileName[ll_Row] + ATTACHSPLIT NEXT //发送 li_Rtn = fSendEmail(is_Server, is_SenderId , is_Psw, is_SenderName, is_SenderAddr,ls_RcvAddr, ls_CcAddr, ls_BccAddr, ls_Sub, ls_Content,ls_Attach) if li_rtn = 0 then gnv_base.of_message('邮件发送成功！') else gnv_base.of_message('邮件发送失败！') end if SetPointer(oldpointer) li_Rtn = fSendEmail(is_Server, is_SenderId , is_Psw, is_SenderName, is_SenderAddr, & ls_RcvAddr, ls_CcAddr

c#封装jmail的pop3收邮件(转摘)

w3 JMail v4.4 Professional 的获取请自行 google!或参阅 http://community.csdn.net/Expert/TopicView.asp?id=3739405w3 JMail v4.4 Professional 是一个 COM 的组件,我用 C# 把其 POP3 COM 类封装成一个用于收取邮件的 .Net 组件:实现了 //同步事件  public

jmail4.1用pop3收信的例子

jmail4.1用pop3收信的例子 【caoli】 于 2000-12-22 17:24:14 加贴在 Joy ASP ↑： 'pop3的连接用户名，密码，pop3地址  pop3.Connect "username", "password", "mail.mydomain.com" Response.Write( "你有" & pop3.count & " 封邮件。" ) if

Jmail收发邮件(完整源码)

这段时间在做一个邮件收发系统!!由于刚接触.所以走了不少的弯路.很好得到一些朋友的指点,终于一些关键技术点做完了!为了避免大家跟我一样走弯路.我特地把关键代码贴出来.大家一起学习!asp.net(vb.net)+sql2000+jmail  首先把功能介绍一下:主要介绍一点的就是.发送邮件这块功能.支持地址薄选地址(弹出窗口返回值).也支持用户自己填写email地址,同时支持群发(也就是用

学习文章---vb JMail简单使用指南

Sub test2()  '       On Error GoTo Err_test2      Dim Jmail      Set Jmail = CreateObject("jmail.Message")            Jmail.Charset = "gb2312"‘设置邮件的编码      Jmail.Silent

vb(JMail)接收邮件（可下载附件）

该源代码利用JMail和163邮箱的POP3服务器实现对邮件的阅读和邮件附件(含批量下载邮件)的下载。 目前暂时还不能连接QQ邮箱pop3服务器。

jmail组件,用于通过pb\vb\delphi\.net\java等工具调用，发送邮件

jmail组件,用于通过pb\vb\delphi\.net\java等工具调用，发送邮件

jmail.dll在pb中的应用收发邮件

jmail.dll在pb中的应用收发邮件 1、注册jmail.dll 方法：在运行中输入： regsvr32 路径\jmail.dll 2、示例代码： oleobject jmail Jmail = Create OLEObject Jmail.ConnectToNewObject("JMail.Message") Jmail.Charset = ls_charset //中文用 “GB2312” Jmail.ISOEncodeHeaders = True Jmail.silent = True Jmail.Logging = True Jmail.From = ls_user //发件人邮箱 Jmail.FromName = ls_mail_fr //发件人 Jmail.Subject = ls_subject //邮件主题 Jmail.MailServerUserName = ls_user //发件邮箱登录账户 Jmail.MailServerPassword = ls_pwd //发件邮箱用户密码 Jmail.Priority = 3 //优先级 Jmail.AddRecipient(ls_mail_to) //收件人邮箱 Jmail.Body =ls_Text + "~r~n" //邮件内容 IF Jmail.Send(ls_host) THEN //ls_host为发件邮箱服务器 messagebox('Info',"发送成功！") ELSE messagebox('Info',"发送失败！") END IF Jmail.Close() Destroy Jmail

使用Jmail发送SSL邮件

package org.dreams.mail;import java.io.BufferedReader;import java.io.IOException;import java.io.InputStreamReader;import java.util.Date;import java.util.Properties;import javax.mail.Authenticator;

pop3接收邮箱/pop3_ssl接收邮箱

from email.parser import Parser from email.header import decode_header from email.utils import parseaddr import poplib # 输入邮件地址, 口令和POP3服务器地址: # email = input('Email: ') # password = input('

封装 JMail 4.4 的 POP3 为 .Net 组件 (.dll 程序集),实现 "邮件(附件) 到达" 等 "事件"!

/*w3 JMail v4.4 Professional 的获取请自行 google!或参阅 http://community.csdn.net/Expert/TopicView.asp?id=3739405w3 JMail v4.4 Professional 是一个 COM 的组件,我用 C# 把其 POP3 COM 类封装成一个用于收取邮件的 .Net 组件:实现了 //同步事件  pub

利用W3 JMAIL组件收POP3邮件 (转)

利用W3 JMAIL组件收POP3邮件 (转)[@more@]vbscript %> dim startpagedim endpagestartpage=int(request("start"))endpage=int(...

jmail收取POP3邮件代码-C#应用程序

安装JMAIL4.4 PROFESSION 工程引用JMAIL4.4 LIBRARY JMAIL收邮件代码.能读所有的邮件数目,然后选择下拉菜单中的数目可以查看不同的邮件内容.缺点,text/html邮件显示的是HTML代码的.只能收取开放了POP3功能的邮件 using System;using System.Drawing;using System.Collections;using S...