Office中国论坛/Access中国论坛

标题: 自动发e-mail成功，与大家分享。 [打印本页]

作者: 竹笛 时间: 2003-7-18 18:48
标题: 自动发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

作者: 竹笛 时间: 2003-7-18 18:48
[attach]1194[/attach]

作者: wewyhy 时间: 2003-7-18 18:51
你在研究什么，现在木马还少吗

作者: 竹笛 时间: 2003-7-18 19:43
受友人相助，已解决，去掉outlook选项中的警告即可。

作者: dgx1995 时间: 2003-7-20 00:25
能收吗

作者: 静儿 时间: 2006-3-6 17:57

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

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

作者: fuyvn 时间: 2006-3-6 19:28
好象這樣發出的 Email. 並不會及時的發出去.

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

作者: 静儿 时间: 2006-3-6 19:36
运行前打开outlook即可及时发送.

作者: 竹笛 时间: 2006-3-6 20:51
我用的是outlook express,当然是即时发送了

作者: fan0217 时间: 2006-3-8 03:51

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

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

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)