用VBA发送邮件Email的一个问题及无可奈何的解决办法

时　间:2007-11-24 15:45:35
作　者:access   ID：8  城市：上海  QQ：2851379730
摘　要:在发送email时我写下了面的代码，MDE文件在本机上居然没问题，在别的机器上就只能发送一次，第二次就不行了；而用mdb文件在别的机器上执行也没问题，可我发给客户只能是MDE文件，如何解决呢？
正　文:

解决办法是：
在其它机器上用源程序mdb执行发送操作2次以上，再编译成MDE文件，居然解决了，困惑~~~~~
还有一些不同的是：
1、将查询命名时改成英文，如果用中文，好象也有问题
2、标题、消息文本最好是简单一些，不要弄得太长，否则好象也有问题，也最好不要用变量。

主要代码：
Function emailto()
'注意去掉OUTLOOK中的发送警告，不去掉会出现提示框。
On Error GoTo emailto_Err
Dim mailto As String '收件人
Dim mailto2 As String '抄送人
Dim mailto3 As String '匿名抄送人
Dim strTitle As String '主题名称
Dim strContents As String '消息文本

mailto = Me.mailAddress
mailto2 = ""
mailto3 = ""

strTitle = "这是标题区"
strContents = "这是内容区"


DoCmd.SendObject acQuery, "queTest", "HTML (*.htm; *.html)", mailto, , , strTitle, strContents, False, ""
emailto_Exit:
Exit Function

emailto_Err:
MsgBox Error$
Resume emailto_Exit

End Function

示例下载：点击这里下载


Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店