■ 求求求求求简单的 VB 用 Jmail 发信 代码

Question

■ 求求求求求简单的  VB 用 Jmail 发信 代码■ 求求求求求简单的  VB 用 Jmail 发信 代码■ 求求求求求简单的  VB 用 Jmail 发信 代码■ 求求求求求简单的  VB 用 Jmail 发信 代码■ 求求求求求简单的  VB 用 Jmail 发信 代码■ 求求求求求简单的  VB 用 Jmail 发信 代码■ 求求求求求简单的  VB 用 Jmail 发信 代码■ 求求求求求简单的  VB 用 Jmail 发信 代码■ 求求求求求简单的  VB 用 Jmail 发信 代码■ 求求求求求简单的  VB 用 Jmail 发信 代码■ 求求求求求简单的  VB 用 Jmail 发信 代码■ 求求求求求简单的  VB 用 Jmail 发信 代码■ 求求求求求简单的  VB 用 Jmail 发信 代码■ 求求求求求简单的  VB 用 Jmail 发信 代码■ 求求求求求简单的  VB 用 Jmail 发信 代码■ 求求求求求简单的  VB 用 Jmail 发信 代码

Answer 1

'函数名：JmailSend
'作  用：用Jmail发送邮件
'参  数：Subject  邮件标题
'        Body     邮件内容
'        Body     邮件内容
'        isHtml   是否发送Html格式邮件 (true 是)
'        HtmlBody Html格式邮件内容
'　　　　MailTo   收件人Email
'        From     发件人Email
'        FromName 发件人姓名
'        Smtp     smtp服务器
'        Username 邮箱用户名
'        Password 邮箱密码
'返回值：JmailSend="N" 发送失败　JmailSend="Y" 发送成功private function JmailSend(Subject as string,Body as string,isHtml as string,HtmlBody as string,MailTo as string,From as string,FromName as string,Smtp as string,Username as string,Password as string) as string
  dim JmailMsg
  set JmailMsg=server.createobject("jmail.message")
  JmailMsg.mailserverusername=Username
  JmailMsg.mailserverpassword=Password
  
  JmailMsg.addrecipient MailTo
  JmailMsg.from=From
  JmailMsg.fromname=FromName
  
  JmailMsg.charset="gb2312"
  JmailMsg.logging=true
  JmailMsg.silent=true 
  
  JmailMsg.subject=Subject
  JmailMsg.body=Body
  if isHtml=true then JmailMsg.htmlbody=HtmlBody
 
  if not JmailMsg.send(Smtp) then
      JmailSend="N"
  else
      JmailSend="Y"
  end if
  JmailMsg.close
  set JmailMsg=nothing
end function

Answer 2

上面的代码需要引用JMail组件JMail(4.3)中文手册
http://www.ajiang.net/article/artview.asp?id=175

Answer 3

以上  JmailSend 函数如何应用啊为什么我的老出错啊

Answer 4

你安装JMail了吗?出什么错?参数传递是否正确?

Answer 5

为什么只有特定的发件人Email
SMTP 服务器
才可以发送成功为什么不能用自己的电脑 smtp 发信

Answer 6

能不能直接用自己的电脑发信
就是所谓的 免 smtp 发信如果要把自己的电脑装 mianlserver 就失去意义了
我是写一监控程序
如果电脑出现故障就自动发信
收信后会自动发短信到手机
这样就实现无线监控了
呵呵

Answer 7

已经注册了 jmail的 dll了以上 函数可以用希望更好用点就是
能不能直接用自己的电脑发信
就是所谓的 免 smtp 发信

Answer 8

Private Sub Command1_Click()Call lconn
If Trim(Text1.Text) = "" Then
MsgBox "对不起请输入收件人的信箱"
Text1.SetFocus
Exit Sub
End If
If Trim(Text2.Text) = "" Then
MsgBox "请输入邮件的标题"
Text2.SetFocus
Exit Sub
End If
If Trim(Text3.Text) = "" Then
MsgBox "内容不能为空"
Text3.SetFocus
Exit Sub
End If
smtp = smtpp
username = user
userpassword = pwd
useremail = emaill
smtpcount = 25
Dim JMail, contentId, msg
Set JMail = CreateObject("JMail.Message")
If Trim(Text4.Text) <> "" Then
    JMail.Charset = "gb2312"
    JMail.From = emaill
    JMail.FromName = user
    JMail.subject = Trim(Text2.Text)
    JMail.MailServerUserName = username
    JMail.MailServerPassword = userpassword
    email = Trim(Text1.Text)
    JMail.AddRecipient (email)
    JMail.body = Trim(Text3.Text)
    JMail.AddAttachment (Text4.Text)
       msg = JMail.send(smtp)
Set JMail = Nothing
Else
JMail.Charset = "gb2312"
    JMail.From = emaill
    JMail.FromName = user
    JMail.subject = Trim(Text2.Text)
    JMail.MailServerUserName = username
    JMail.MailServerPassword = userpassword
    email = Trim(Text1.Text)
    JMail.AddRecipient (email)
    JMail.body = Trim(Text3.Text)
    msg = JMail.send(smtp)
Set JMail = Nothing
End If
If Err.Number = 0 Then
Label4.Caption = "邮件成功发送到" & Text1.Text & ""
MsgBox "邮件成功发送到" & Text1.Text & ""
Exit Sub
Else
MsgBox "发送不成功"
Text1.Text = ""
End If
End SubPrivate Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End SubPrivate Sub Command3_Click()
Unload Me
End SubPrivate Sub Command4_Click()
CommonDialog1.ShowOpen
Text4.Text = CommonDialog1.FileNameEnd Sub

Answer 9

http://dev.csdn.net/develop/article/17/17189.shtm
JMail组件的常用属性：Body 　　邮件正文 Logging 　　调用Log记录，供Debug用 Priority 　　邮件的优先程度，从1到5 Sender 　　发件人 ServerAddress 　　SMTP服务器的IP地址或名称 Subject 　　邮件标题  JMail组件的常用方法：AddAttachment 　　指定附件文件 AddRecipient 　　加入一个收件人 AddRecipientBCC 　　隐藏的副本抄送，只有发件人和BCC收件人知道。 AddRecipientCC 　　副本抄送 Execute 　　送出邮件  了解必要的属性及方法后，余下的部分接收使用者输入的Email，当成参数传给AddRecipient方法，然后根据需要填上其余属性，最后以Execute方法寄出。例如：        Dim JMail        JMail = Server.CreateObject("JMail.SMTPMail")        JMail.Logging = True        JMail.ServerAddress = "202.96.144.48"        JMail.Sender = "[email protected]"        JMail.Subject = "subject."        JMail.Body = "body."        JMail.AddRecipient("[email protected]")        JMail.AddAttachment("c:\go.gif")        JMail.Priority = 3        JMail.Execute()        JMail = Nothing

Answer 10

http://www.dimac.net/下载最新版本的w3 Jmail 4.4
它自带有许多实例的

Answer 11

以下是使用Jmail 4.3版本在ASP页面上发送邮件
         Set JMail=Server.CreateObject("JMail.Message" )
JMail.Logging=True
JMail.Charset="gb2312"
JMail.ContentType = "text/html"
JMail.From = "[email protected]"
JMail.FromName="北美商务管理员"
JMail.Subject="注册信息确认信(北美商务网)"
JMail.Body =str '"您在“北美商务网”的会员申请已成功提交，" & vbcrlf & _
'"您注册的登陆账号是：" & user & vbcrlf & _
'"您注册的密码是：" & pass
JMail.AddRecipient email
JMail.Priority=1
JMail.MailServerUserName = "webmaster"          '您的邮件服务器登录名
         JMail.MailServerPassword = "xxxxx"            '登录密码 
JMail.Send ("www.bizlands.com")
Set JMail=nothing 
        response.write"<SCRIPT language=JavaScript>alert('恭喜您!成为会员,请登录！');"