昨天的制作sending auto email 时出现问题，最终以 outlook application 解决了。
具体所遇问题如下：
1．一开始时运用CDO对象进行发送邮件,代码如下：
| Dim objmail As New CDO.Message Set objmail = CreateObject("CDO.Message")
objmail.From =Fromuser objmail.To = Touser objmail.Cc = Ccuser objmail.subject = subject If sub_chk = "" Then objmail.HTMLBody = mailbody End if
objmail.AddAttachment (sFilename) objmail.Send Set objmail = Nothing |
结果运行之，出现只能发送至网域内邮件，而网域外邮件未能发送成功之情况。
2．改用远程服务器发送，代码如下：
|
Dim objmail As New CDO.Message Set objmail = CreateObject("CDO.Message")
objmail.From = fromuser objmail.To = Touser objmail.Cc = Ccuser objmail.subject = subject If sub_chk = "" Then objmail.HTMLBody = mailbody
objmail.AddAttachment (sFilename)
End If '使用外部邮件服务器发送邮件 objmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = " 10.7.4 .3" objmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objmail.Configuration.Fields.Update objmail.Send Set objmail = Nothing |
出现远程服务器未能relay之问题。
3．最后改用outlook.application 发送邮件，测试OK，代码如下：
| Dim oOutlook As New Outlook.Application Dim oMsg As Outlook.MailItem
mailbody = "Dear all," & vbCrLf mailbody = mailbody & " the attachment is the non-reply PO list on " & Format(Now, "mm/dd/yyyy") & ",please check!thank you!" & vbCrLf & vbCrLf mailbody = mailbody & "Best Regards," & vbCrLf mailbody = mailbody & "MIS"
Set oMsg = oOutlook.CreateItem(olMailItem) With oMsg .To = Touser .Cc = Ccuser .BCC = outBCC .subject = subject .Body = mailbody .Attachments.Add sFilename .Send End With Set oOutlook = Nothing Set oMsg = Nothing |
有关用OLE自动化Outlook，资料如下：
ole automation能够让你轻松的在你的应用程序中引入像word，excel等大型应用软件的功能。通过这些程序暴露在外部的编程接口(包括函数和方法等)，你可以很容易的得到那些大型软件的强的功能，大大的扩展你的程序的实用性。
当然，我不会在这儿教你如何去编写一个病毒程序，但是我会告诉你，如何利用ole的强大功能来实现对outlook的自动化操作，比如自动的发邮件，读取新闻组等等。如果你确实对病毒更感兴趣，写好了也不要把它发布出来，否则对大家都没有什么好处。
什么是ole automation?
这儿可以给出一个ole automation的一个很简单的例子：可以操作支持ole特性的应用程序暴露在外部的可编程对象的能力。大部分的这些可编程对象都被内嵌在某种宏语言 中，比如vba，它就是一种使用在microsoft office应用程序中的宏语言。
vba（visual basic for application）是vb的一个子集，所有的office的最近的几个版本都使用了ole automation，所以你可以用vba来操作几乎每个office应用程序的每个部分。
下面的这个visual basic 函数可以用来在outlook中新建一封邮件，要想使这个例子能够正常的工作，你的电脑上必须安装有outlook 97或更高版的outlook。
public function createmessage()
注释：建立对outlook中对象的引用
dim objoutlook as new outlook.application
dim objoutlookmsg as outlook.mailitem
注释：建立新邮件
set objoutlookmsg = objoutlook.createitem(olmailitem)
objoutlookmsg.display
set objoutlook = nothing
end function
首先，你必须告诉visual basic什么是“outlook.application”对象。所以你必须为你的应用程序建立一个对outlook对象库的引用。你可以通过点击 visual basic的“工程”菜单中的“引用”菜单项，然后选者microsoft outlook对象库来实现这一点。这样就告诉了visual basic在哪儿能够找到ole服务器。在这个例子中，ole服务器就是outlook，而客户端就是你的vb应用程序。
上面的例子用到了一个称为早期绑定（early-binding）的技巧来设置对对象的引用。与之相对的还有晚期绑定（late-binding），它设置对象引用的代码如下所叙：
public function createmessage()
dim objoutlook as object
dim objoutlookmsg as object
set objoutlook = createobject("outlook.application")
基于以下的几个原因，早期绑定在一般来说要笔晚期绑定要好一些：
* 早期绑定能够让你是用到vb的intellisense特性，它可以自动的为你做对象的一般拼写检查，自动列出相关对象的属性和方法，以及诸方法的参数。这为你的编码过程提供了很大的方便。
* 早期绑定运行的速度要必晚期绑定快一些，因为，具体的内存非配动作是要到运行时才动态的分配。而且，当把对象申明为一个object的类型时，vb并不能够确定具体的对象类型，这样，如果在其中引用了非法的属性和方法，vb也不能够报错，造成运行时错误。
虽然晚期绑定比早期绑定要慢而且不是很安全，但有时它又是必须的。在某些情况下，非要等到运行时才能够确定对象的类型，这儿后就非得使用晚期绑定不可了。但总的来说，能够使用早期绑定的话就应该尽量的使用。
邮件列表
在vb中有专门为邮件处理而编写的控件，但我们在这儿要抛弃他们。我们谈论的是ole。有了上面的那个例子作为引导，用vb和outlook来编制邮件列表的程序应该是很简单的了。
通过一个数据库的协助，你可以很容易利用ole实现一个邮件列表。vb支持大部分主流的数据库格式，这儿你不妨就用access吧，在vb中可以用dao 来对数据库进行操作。dao为你提供了一个比较友好的数据库编程对象模型，可以用较少的代码实现你想要的大部分功能。虽然它有一些局限性，但对于这样的小 应用已是绰绰有余的了。因为它也是以对象库的形式被vb所引用的，所以在使用它之前也必须在工程加上对其的引用。 在开始之前,我们需要一个access数据库，其中包含了邮件列表的客户信息。数据库的文件名为contacts.mdb，内有一个contacts表。 包含了关于客户的姓名，电子邮件地址，城市等等信息，由于结构比较简单，这儿就不列出了。
新建一个visual basic标准exe工程，然后为工程添加microsoft outlook和microsoft dao这两个对象库的引用，dao对象库能够让你操作microsoft的jet数据库引擎。
打开工程菜单，点击on the project menu, click on components and select the windows common controls 1 library.
添加一个命令按钮和一个进度条道窗体上。
在command1的click事件处理部分，输入下面的代码：
private sub command1_click()
dim dbs as database
dim rst as recordset
dim objoutlook as new outlook.application
dim objoutlookmsg as outlook.mailitem
注释：打开数据库
set dbs = opendatabase(app.path & "contacts.mdb")
set rst = dbs.openrecordset("contacts")
rst.movefirst
progressbar1.visible = true
注释：对数据表中的每个数据进行操作
do until rst.eof
progressbar1.value = rst.percentposition
注释：建立新的邮件
set objoutlookmsg = objoutlook.createitem(olmailitem)
with objoutlookmsg
.to = rst!email 注释：给出收信人的邮件地址
.subject = "address check" 注释：给出邮件的主题
注释：下面是邮件的正文部分
.body = "dear " & rst!title & " " & rst!lastname & vbnewline & vbnewline
.body = .body & "this is an email to confirm your address. "
.body = .body & "please check the address below to make sure "
.body = .body & "that it is correct" & vbnewline & vbnewline
.body = .body & rst!address & vbnewline & rst!city & vbnewline
.body = .body & rst!stateorprovince & vbnewline & rst!postalcode
.body = .body & vbnewline & rst!country & vbnewline & vbnewline
.body = .body & "tel: " & rst!phonenumber
.importance = olimportancehigh
.send
end with
注释：取消对对象的引用
set objoutlookmsg = nothing
rst.movenext
loop
progressbar1.visible = false
注释：取消对对象的引用，这一步很重要。
set objoutlook = nothing
注释：关闭数据库dbs.close
msgbox "auto email complete", vbinformation
set dbs = nothing
set rst = nothing
end sub
在你按下开始键之后，所有再数据库中的客户都被发送了一封确认信，你可以通过检查发件箱来发现这一点。
最后，关于应用程序的发布要做一点说明。如果你决定在你的应用程序中使用诸如outlook这样的ole服务器，你就必须考虑到，应用程序的最终使用者可 能并没有在电脑中安装outlook，或者安装的版本不符，这样的话程序式不能够运行的。但是，你还是可以在你自己的电脑上开发一些automation 的程序，有时这会为你节约大量的时间和精力。
扫一扫
2万+
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
