Office中国论坛/Access中国论坛

标题: [求助]又是发送邮件问题 [打印本页]

作者: superjinyu 时间: 2006-7-14 22:54
标题: [求助]又是发送邮件问题
Sub Send_Order_Mail()

Dim cnn As ADODB.Connection
Dim rst_cusid, rst_order_list As ADODB.Recordset

Dim olkapp As Outlook.Application
Dim newmail As MailItem

Set olkapp = CreateObject("outlook.application")

Set cnn = New ADODB.Connection
cnn.Open CurrentProject.Connection

这里写到currentproject(最后)，为什么说它变量未定义，少了什么吗

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