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


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

tmtony

使用 myApptItem.attachments 添加,可參考我原來的作品:

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

frownies

楼主，就您目前的程序能运行吗？我也使用了和你一样的程序，但始终不能通过，错误停留在“.Send”语句上，郁闷啊。我的环境是XP+Office2000

谁能帮助我一下啊，我都提问了好几次了

superjinyu

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

superjinyu

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

boyboyvox

我也想知道如何添加附件阿。急