怎样配置access发送电子邮件

Scott

我想在Access中用OE来发送邮件,应该在哪里设置呢?当初安装Office时只安装了Word.Excel和Access

一点通

使用超级连接就可以了

fuyvn

在网上, 发现都是介绍如下方式发 Email.    可以我在很多电脑上, 都无法成功. 郁闷.

Function test1()
    Dim objMail As MailItem
    Dim objAttachments As Attachment
    Dim App As New Outlook.Application
   
   
    Set objMail = App.CreateItem(olMailItem)
    objMail.Save
    Set objAttachments = objMail.Attachments.Add("c:\temp\a.xls", olByValue, 1, "a.xls")
    With objMail
        .To = "chenge@shtip.com.cn" '接收邮件的信箱
        .Subject = "test" '信件标题
        .Body = "test"
        .Send '发送
    End With
    'objMail.Display
End Function

ghtook

我看过了,好东西!

Scott

这个问题我通过对控制面板中邮件选项的设置已经解决了.现在我想知道在Access里是否可以通过调用函数的形式来实现自动发送邮件?把查询出来的不同结果发给不同的人.

fan0217

以下是引用fuyvn在2006-2-26 10:25:00的发言：


在网上, 发现都是介绍如下方式发 Email.    可以我在很多电脑上, 都无法成功. 郁闷.

Function test1()
    Dim objMail As MailItem
    Dim objAttachments As Attachment
    Dim App As New Outlook.Application
   
   
    Set objMail = App.CreateItem(olMailItem)
    objMail.Save
    Set objAttachments = objMail.Attachments.Add("c:\temp\a.xls", olByValue, 1, "a.xls")
    With objMail
        .To = "chenge@shtip.com.cn" '接收邮件的信箱
        .Subject = "test" '信件标题
        .Body = "test"
        .Send '发送
    End With
    'objMail.Display
End Function

你在Out look中正确配置了吗？如果你的OutLook能正常收发邮件就没有问题的。

fan0217

以下是引用Scott在2006-2-26 14:19:00的发言：


这个问题我通过对控制面板中邮件选项的设置已经解决了.现在我想知道在Access里是否可以通过调用函数的形式来实现自动发送邮件?把查询出来的不同结果发给不同的人.

可以自己写个函数，然后根据你的要求动态地为函数参数赋值，来达到批量自动发送邮件。

fuyvn

以下是引用fan0217在2006-2-26 16:50:00的发言：



你在Out look中正确配置了吗？如果你的OutLook能正常收发邮件就没有问题的。

你好!  请问你说的 OutLook   是  Outlook Express  还是   Microsoft Office Outlook

我个人 发邮件都是在  Microsoft Office Outlook 中发的.  这个里可以正常发送.

而 Outlook Express  我未设置,  

看来. 一定要 Outlook Express 设置才行.

我去试试.

fuyvn

我的电脑   win XP   Office 2003

Outlook Express  和   Microsoft Office Outlook  中, 都可以收发Email

可是运行上面的程式还是不行.

objMail As MailItem  这就出错.  说 变量未定义

改为  

    Set App = CreateObject(Outlook.Application)
   
    Set objMail = App.CreateItem(olMailItem)

也是不行.  说  需要物件

不知是何原因.

[此贴子已经被作者于2006-2-26 17:48:59编辑过]

fan0217

需要引用Microsoft OutLook 11.0 Object Library