Dim olkmy As New Outlook.Application
Dim olkMailItem As MailItem
Set olkMailItem = Outlook.Application.CreateItem(olMailItem)
With olkMailItem
.Subject = "hello"
.Body = "hello world"
.To = "xxx@sina.com"
.Attachments.Add App.Path & "题号说明.zip"
.Save
.Move olkmy.GetNamespace("MAPI").GetDefaultFolder_ (olFolderOutbox)
End With
豁出去了,给你代码。jb0666_cn@sina.com