.NET开发

本类阅读TOP10

·NHibernate快速指南(翻译)
·vs.net 2005中文版下载地址收藏
·【小技巧】一个判断session是否过期的小技巧
·VB/ASP 调用 SQL Server 的存储过程
·?dos下编译.net程序找不到csc.exe文件
·通过Web Services上传和下载文件
·学习笔记(补)《.NET框架程序设计(修订版)》--目录
·VB.NET实现DirectDraw9 (2) 动画
·VB.NET实现DirectDraw9 (1) 托管的DDraw
·建站框架规范书之——文件命名

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
定时检测邮件并且自动转发的例子

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

我们在这里用的是一个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", "[email protected]", "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("[email protected]", "werwer")
    End Sub
End Class

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




相关文章

相关软件