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

原创 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,设置为自动启动,以后你的机器就多了一个功能(提供给有需要的用户)

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

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

详解Asp.Net定时发送邮件方法

用.net发送邮件,总结起来有以下那么三种: (1)做一个winform 来定时发邮件。然后通过windows计划任务,设置为指定时间,每次自动运行,运行完毕后自动关闭。 (2)用sqlserve...
  • kirawoo
  • kirawoo
  • 2015年06月26日 13:55
  • 1899

使用python自动发送邮件

通过python编写的脚本能实现邮件的自动发送功能。 以后就可以全自动的推送自己的广告软文了。嘿嘿嘿。。。。。 现在记录一下这个功能。 注意如果使用qq的smtp转发功能的话,需要在设置...
  • yangshuolll
  • yangshuolll
  • 2015年09月09日 11:19
  • 2974

Exchange 日常管理之三设置邮件转发

前面和大家聊了当员工离职时如何隐藏Exchange邮箱用户在通讯录中的显示,但是在平常工作中不知道大家遇到过这两种情况没有:一、公司要求对员工zhangsan的邮件设置转发,将zhangsan的所有邮...
  • Microsoft_wu
  • Microsoft_wu
  • 2015年06月16日 17:25
  • 982

linux下新建监视任务自动发邮件

索引还没建完,继续发表记录的东西,该不会要到天亮吧……2013-8-24 3:41:00 因为需要在log文件超过一定大小时发邮件通知我自己去查看log,就简单地用linux的定时任务检查、...
  • sskicgah
  • sskicgah
  • 2013年08月24日 03:51
  • 4723

Linux周期性自动发送邮件

万恶的楼主想给同学发送垃圾邮件试试,于是乎写了两个脚本: 我用的ubuntu,首先安装sendemail软件,如下 apt-get install sendemail   cd /root...
  • yaoxingshuai
  • yaoxingshuai
  • 2016年01月27日 16:42
  • 917

php定时发送邮件解决方案

php计划任务的实现 为了定时更新某一文件,需要程序自动运行,从网上搜到了两种方法:ignore_user_abort() 和crontab ignore_user_abort()函数搭配...
  • shaobaojie
  • shaobaojie
  • 2013年04月22日 18:07
  • 5382

实现定时发送邮件功能 数据是从数据库中获取到的

我现在刚进一家公司实习,最近要我做一个定时发送邮件的功能,我从网上参考了一些,自己也实现了从数据库获取数据,实现了定时发送邮件的功能,代码如下: 一、首先写一个servlet的监听器 packag...
  • xueshuangshuang123
  • xueshuangshuang123
  • 2013年11月27日 16:16
  • 5840

jenkins+maven+git+ 邮件自动转发 持续化集成 图文教程

1.所需要的插件,安装plugin ,进入mangae Jenkins→ manage Plugins, 切换到Available tab, 选择如下plugin 安装            Gitp...
  • linlzk
  • linlzk
  • 2015年09月29日 16:18
  • 1195

JAVA 写Excel附件 每天定时发送邮件

本文转载自马前卒《JAVA 写Excel附件 每天定时发送邮件》 http://hi.baidu.com/star850323/blog/item/63c5750f520e05e...
  • suyu_yuan
  • suyu_yuan
  • 2016年02月15日 14:34
  • 2354
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:定时检测邮件并且自动转发的例子
举报原因:
原因补充:

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