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

Question

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

Answer 1

Sub SendMail()
'
'函数功能： 创建Outlook的MailItem，并发送邮件
'作者：Winak
'时间：2003-7-22   Dim ItemUsageEmail As Outlook.MailItem
  
  '创建MailItem对象
  Set ItemUsageEmail = Application.CreateItem(olMailItem)
  
  With ItemUsageEmail
        .To = "[email protected]"      '设置收件人地址        
        .Subject = "Report"     '邮件主题        
        .Body = "This is a example"            '邮件正文        
        .Attachments.Add "e:\Report.doc"        
        
        .Display 显示邮件       .Send            发送邮件
   
  End WithEnd Sub
说明：  .display  和   .send   最好只用一种方法，可以用    .Attachments.Add    一次性加入多个附件。

Answer 2

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