自动发e-mail成功，与大家分享。

竹笛

还有一问题等完善：如何去掉这个提示框？谢谢！
Function email()
On Error GoTo email_Err
Dim mailto As String '收件人
Dim mailto2 As String '抄送人
Dim mailto3 As String '匿名抄送人
Dim strTitle As String '主题名称
Dim strContents As String '消息文本
mailto = "aa@accxp.com"
mailto2 = "bb@estarsoft.com"
mailto3 = "cc@accessoft.com"
strTitle = "这是主题"
strContents = "这是消息文本"
'表tabSteel是数据库中的一个表

　　DoCmd.SendObject acTable, "TabSteel", "MicrosoftExcel(*.xls)", mailto, mailto2, mailto3, strTitle, strContents, False, ""


email_Exit:
　　Exit Function

email_Err:
　　MsgBox Error$
　　Resume email_Exit

End Function

竹笛

wewyhy

你在研究什么，现在木马还少吗

竹笛

受友人相助，已解决，去掉outlook选项中的警告即可。

dgx1995

能收吗

静儿

以下是引用竹笛在2003-7-18 11:43:00的发言：
受友人相助，已解决，去掉outlook选项中的警告即可。

竹笛，我怎么没找到去掉警告的地方？请告知，我是office2003的。

fuyvn

好象這樣發出的 Email. 並不會及時的發出去.

而 放在  OutLook 的發件箱 中.   等有傳送 接受時, 它才會真正的發出去.

静儿

运行前打开outlook即可及时发送.

竹笛

我用的是outlook express,当然是即时发送了

fan0217

以下是引用dgx1995在2003-7-19 16:25:00的发言：
能收吗

能，但需要Outlook的支持，在Outlook中收到邮件，再从Access中获取，保存在Access中。

http://www.office-cn.net/forum.php?mod=viewthread&tid=37148