在Outlook中使用VB代码进行自动邮件发送

前段时间因为某种需求，需要自动定时的发送mail，原本打算将自己以前用VBA编写的程序修改一下，可是发现之前的那些代码搭配Outlook 2010无法编译通过，又不想重写，于是想到了Outlook的“宏”打算利用“宏”实现自己的需求

在Excel和Word中可以利用宏录制来先录制一些脚本，再按照自己的需求进行简单的修改，可是Outlook这个家伙居然没有宏录制，没有办法了，只有查MSDN了，在MSDN中找到了一段用C#撰写的Sample code，哈哈，进行了简单的改写，最终完成了自己的需求，代码大概如下：

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub发送()

 Dim ContactsFolder As Folder

  Dim App As Application

  Dim mail As MailItem

  Set App = Session.Application

For I = 1 To 100

  Set mail = App.CreateItem(olMailItem)

  mail.To = "hong@hotmail.com"

  mail.Subject = "Test Mail"

  mail.Body = “This is a test mail!”

  mail.Send

  sleep(1000)

Next I

End Sub

以上code完成的是每间隔1秒给hong@hotmail.com发送一封名为“Test Mail”的邮件

一年没有写代码了，特此纪念一下