ACCESS发邮件问题

superjinyu

Option Compare Database
Option Explicit
Function email_send()

Dim olkapp As Outlook.Application
Dim newmail As MailItem
Dim emailadd, para As String

Set olkapp = CreateObject("outlook.application")
Set newmail = olkapp.CreateItem(olMailItem)

'邮件正文内容
para = para + "HELLO"

'收件人的email地址，这里没有输入内容。
emailadd = ""
With newmail
.To = emailadd
.Subject = "新春快乐" ' 邮件的主题
.Importance = olImportanceHigh '邮件的为重要等级
.Body = para '将邮件正文内容指定para变量内容
.Send '发送
End With
End Function


这个程序里怎么要添加附件

superjinyu

我能发送的，我是OUTLOOK2003+XP，就是不知道怎么把附件加上去

superjinyu

在发送的时候不是会弹出个框，让你选是或否，选是，就发送了，选否就会停在.SEND上