发邮件的问题：jmail.dll组件在vb中应该怎么调用？

Question

如题，谢谢！

Answer 1

先把jmail.dll放在windows/system32目录下
要注册的控件一定要先注册然后声明，如下：
Public Declare Function FunctionName Lib "jmail.dll" (ByVal Parameter1 As Long,ByVal Parameter2 As Long ) As Long 'FunctionName 函数名称，Parameter1 参数1

Answer 2

在模場面中聲明﹕Declare Function rf_init Lib "jmail.dll" (ByVal port%, ByVal baud As Long) As Long
Declare Function rf_load_key_hex Lib "jmail.dll" (ByVal icdev As Long, ByVal mode%, ByVal secnr%, ByVal nkey As String) As Integer
這個文件jmail.dll一般要放在系統文件夾下

Answer 3

使用方法：jmail.Sender = Rst1!MailName    '取出发送者信箱名称
      jmail.ServerAddress = Rst1!SmtpServer '服务器地址
      jmail.ServerPort = "25"
      jmail.SenderName = Rst1!Sender           '取出发信人的姓名:汉字的也可以
      jmail.Message.From = Rst1!MailName '来之何方
      jmail.Message.FromName = Rst1!Sender          '取出发信人的姓名:汉字的也可以
      jmail.Message.Subject = Rst!Topic         '标题
      jmail.Message.Body = Rst!Content  '内容
      jmail.ClearAttachments '清除原来的附件
      If FolderManager.FolderExists(Rst!Accessory) Then  '判断文件夹是否存在
        Set cFolder = FolderManager.GetFolder(Rst!Accessory)
        Set cFile = cFolder.Files        '建立文件集合
        For Each FileInfo In cFile
           jmail.Message.AddAttachment Rst!Accessory & "\" & FileInfo.Name
        Next
      End If
      jmail.ClearRecipients '清除原来的地址
      uAddressee = Split(Rst!ToFrom, ";") '发往的地址
      For II = 0 To UBound(uAddressee)
          jmail.Message.AddRecipient uAddressee(II)
      Next      jmail.Message.MailServerUserName = Left$(Rst1!MailName, InStr(1, Rst1!MailName, "@") - 1) '服务器的用户名称
      jmail.Message.MailServerPassWord = Rst1!MailPass '密码验证
      
      jmail.Message.Charset = "gb2312"
      jmail.Message.Silent = True
      jmail.Message.ContentType = "multipart/html"  '文本还是网页
      jmail.Logging = False '是否记录日志
      If jmail.Message.Send(Rst1!SmtpServer) Then
        Conn.Execute "Update ztblMailBox Set SendState=True Where Id=" & Rst!id '发送成功了
      End If
    End If
    Rst1.Close
    Rst.MoveNext
  Loop
  Rst.Close
  jmail.Close
  Set jmail = Nothing '彻底释放Jmail