定时检测邮件并且自动转发的例子

原创 2004年09月09日 15:24:00

我们在这里用的是一个dll控件,此控件的功能很强大,大家可以到http://www.hi-ho.ne.jp/babaq/eng/basp21.html下载并安装这个控件,下面我来讲一下具体的实现方法和代码

首先,我自己写了一个dll,调用下载的那个dll,提供了几个接口,可以填入发送人和接受人等等信息,此控件代码如下:

Imports BASP21Lib
Imports System.IO
Imports System.io.Directory

    Public Shared Sub send(ByVal sendadd As String, ByVal resvAdd As String, ByVal subject As String, ByVal content As String)
        Dim basptest As New BASP21Lib.Basp21
        basptest.SendMail("192.168.1.19", sendadd, resvAdd, subject, content, "")
    End Sub
    Public Shared Sub checkmail(ByVal tesadd As String, ByVal password As String)
        Dim basptest As New BASP21Lib.Basp21
        Dim test As String
        Dim resvAdd As String
        Dim arrFile As Object
        Dim eachF As Object
        Dim strMailInfo As String
        Dim strLast As Object
        Dim thePath As String
        Dim mes As Object
        Dim message As String
        thePath = GetCurrentDirectory() & CStr("/Mail")
        strMailInfo = "from:to:X-to:Cc:X-Cc:Bcc:subject:Date:MIME-Version: " & "Content-Type:X-Priority:X-MSMail-Priority:X-Mailer:X-MimeOLE:"
        arrFile = basptest.RcvMail("192.168.1.19", tesadd, password, "SAVEALLD", thePath)
        If IsArray(arrFile) = False Then
            Exit Sub
        End If
        For Each eachF In arrFile
            strLast = basptest.ReadMail(eachF, strMailInfo, thePath)
            For Each mes In strLast
                message = message & mes & vbCrLf
            Next mes
        Next eachF
        basptest.SendMail("192.168.1.19", "xxx@iddddia.com", "xxx@ixxx.net.cn", "ddddd", "ddddddddddddd", "")
    End Sub
End Class

然后我们利用系统服务来调用这个dll,代码如下:

   Protected Overrides Sub OnStart(ByVal args() As String)
        ' サービスを開始するためのコードをここに追加します。このメソッドで、設定を行いながら
        ' サービスの実行が妨げられないようにします。
        Dim timer1 As New Timer
        timer1.Interval = 1000
        timer1.Enabled = True
    End Sub

    Protected Overrides Sub OnStop()
        ' サービスを停止するのに必要な終了処理を実行するコードをここに追加します。
    End Sub

    Private Sub Timer1_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer1.Elapsed
        newmail.newmailclass.checkmail("ss@eee.net.cn", "werwer")
    End Sub
End Class

通过调用dll里的收邮件和发邮件函数自动实现邮件的转发,做成系统服务,调用这个dll,设置为自动启动,以后你的机器就多了一个功能(提供给有需要的用户)

第9周:卷积神经网络分类任务和检测任务

本课程共分为三个阶段。从机器学习到深度学习,再到项目实战,循序渐进,层层深入。除了系统讲解成为一名人工智能工程师所需的理论知识外,每节课还会配有实战案例,通过练习巩固所学知识,学以致用解决实际问题。第三个阶段包含四个大型工业级综合实战案例,采用大量真实数据集,完美模拟工作场景。学完后,大家绝对可以胜任人工智能领域相关工作。
  • 2018年04月08日 14:20

如何将一个邮箱收到的邮件自动转发给多个其他用户呢?

采用下面的方法来实现:1、如果要接收转发邮件的地址是内部的话,您可以将这些账号添加到一个组里面,然后为该组激活邮件功能,在设置转发地址时填该组的名称,2、如果要接收转发邮件的地址是外部的话,您可以先为...
  • yejunjian_vip
  • yejunjian_vip
  • 2007-08-30 09:40:00
  • 1782

让Gmail自动转发邮件到多个邮箱

问:Gmail只能自动转发邮件到一个邮箱,但我需要将Gmail里的邮件自动转发到多个邮箱,请问有没有办法? 答:你可以试试创建几个过滤器来让Gmail自动转发邮件到多个邮箱。单击Gmail首页“...
  • tengh
  • tengh
  • 2014-08-30 19:00:56
  • 1880

如何实现自动转发邮件并还可以在用户邮箱库里保留一份拷贝?

Technote (troubleshooting) 问题 用户需要把邮件都转发到另外的一个地址,但还需要在 Domino 邮箱库里保留一份拷贝,如何实现呢? 解决问题 此需求...
  • Gavid0124
  • Gavid0124
  • 2014-11-28 17:42:16
  • 1062

Foxmail怎样自动转发给其它人

1.   2. 3. 按下面的就好了 注意 收件人地址和转发到的地址不要带""  比如 abc@net.com 是对的 但 " abc@net.com " 是错的 4. 在写邮件时 只要在收件人...
  • yenange
  • yenange
  • 2011-11-05 16:24:50
  • 11973

Foxmail 自动备份邮件,自动转发到另外一个邮箱的操作。

Windows操作系统的用户使用Foxmail备份历史邮件备份,在Foxmail中创建本地文件夹,自定义规则将邮件复制或移动到本地文件夹永久保存,操作步骤如下: 重要提示:按步骤1 "创建本地文...
  • lhbthank
  • lhbthank
  • 2016-03-21 11:19:25
  • 6252

用VBA实现OUTLOOK接收新邮件后的自动转发

OUTLOOK自带的规则虽然可以设置自动转发,但这个规则是建立在服务器上的,但有些公司为了防止机密外泄而设置了服务器自动转发限制。解决的方法可以用OUTLOOK事件的方法来实现:Private Sub...
  • laoyebin
  • laoyebin
  • 2010-02-02 22:54:00
  • 5397

利用spring定时器发送定时邮件

spring 的org.springframework.mail包提供的对邮件的支持。 1.封装一个方法用于发送邮件的方法: /** isValate:是否校验(或者授权):true to:邮件...
  • hyf_javatest
  • hyf_javatest
  • 2015-10-16 16:56:15
  • 4283

Exchange自动转发邮件

  • 2011年01月07日 14:41
  • 119KB
  • 下载

Asp.net Web 定时自动发邮件

1. 添加Global.asax文件 add-->web--> Global Application Class   2. 在Global.asax里添加代码 [csharp] v...
  • kirawoo
  • kirawoo
  • 2015-06-26 14:20:59
  • 1527
收藏助手
不良信息举报
您举报文章:定时检测邮件并且自动转发的例子
举报原因:
原因补充:

(最多只允许输入30个字)