我用VB编程通过OUTLOOK发一封邮件,建立了mailItem后,怎么指定发

[liukaiii]

我用VB编程通过OUTLOOK发一封邮件,建立了mailItem后,怎么指定发
送人的名称,邮件地址呢?

[Winak]

Sub SendMail()
'
'函数功能： 创建Outlook的MailItem，并发送邮件
'作者：Winak
'时间：2003-7-22

Dim ItemUsageEmail As Outlook.MailItem

'创建MailItem对象
Set ItemUsageEmail = Application.CreateItem(olMailItem)

With ItemUsageEmail
.To = "[e-mail]" '设置收件人地址
.Subject = "Report" '邮件主题
.Body = "This is a example" '邮件正文
.Attachments.Add "e:\Report.doc"

.Display 显示邮件

.Send 发送邮件

End With

End Sub


说明： .display 和 .send 最好只用一种方法，可以用 .Attachments.Add 一次性加入多个附件。

[lxcc]

是你建立outlook时指定的

[axiao5137]

创建了mailItem后，可以访问它的一些属性，其中有SenderName（发
送人的名称）、CurrentUser.Address（当前用户的邮件地址），但这两个属性是只读的。是在建立outlook用户时指定的。