作者：乔山办公网日期：
返回目录：excel表格制作
这样改试试：
workbook1.sheets("sheet2").range("a1").Copy workbook2.sheets(1).cells(1, 1)
Set objOutlook = GetObject(, "Outlook.Application")
Set objMail = objOutlook.Createitem(olmailitem)
With objMail
.To = ToMail
.Subject = "标题zhidao内"
.HTMLBody = "内容容"
.display
.send
End With
Sub sendmail()
Dim rowCount,
endRowNo
Set objOutlook =CreateObject("Outlook.Application")
Set objMail =objOutlook.CreateItem(olMailItem)
Set objMail =objOutlook.CreateItem(olMailItem)
With objMail
.To = Cells(1,2).Value'替换为邮zhidao件地址
.Subject = Cells(2,2).Value'替换为邮件主题
.Body = Cells(3,2).Value'替换为邮件内内容
.Attachments.Add ThisWorkbook.FullName'替换为附件
.Send
End With
Set objMail =Nothing
Set objOutlook =Nothing
End Sub
如果是多人的话，可以加一个容循环，不懂可以问我。
参考下面的VBA代码
Sub Send_Email()
Dim i As Integer
Dim MyOutlookApp As Outlook.Application
Dim MyFolder As Outlook.MAPIFolder
Dim MyNewMail As Outlook.MailItem
Dim MyAttachments As Outlook.Attachments '附件
Set MyOutlookApp = New Outlook.Application
Set MyFolder = MyOutlookApp.GetNamespace( "MAPI ").GetDefaultFolder(olFolderInbox).Folders( "我的邮件文件夹 ")
Set MyNewMail = MyOutlookApp.CreateItem(olMailItem)
With MyNewMail
.To = " " '目标邮件地址
.Cc=""
.Subject = "test " '标题
.HTMLBody = " <p> <b> This </b> is <font color= '#ff000 '> red </font> </p> "
.AlternateRecipientAllowed = True '此邮件可转发
.AutoForwarded = True '此邮件允e799bee5baa6e79fa5e98193e58685e5aeb9336许自动转发
.DeleteAfterSubmit = False '发送后保留副本
'发送之后移动到指定文件夹
.SaveSentMessageFolder = MyOutlookApp.GetNamespace( "MAPI ").GetDefaultFolder(olFolderInbox).Folders( "备份文件夹 ")
.ReadReceiptRequested = True '要求收件人回执
'SaveSentMessageFolder
End With
'附件
Set MyAttachments = MyNewMail.Attachments
MyAttachments.Add "c:\win\abc.txt ", olByValue
MyNewMail.Save '保存
MyNewMail.Send '发送
MyFolder.Display '显示office outlook
End Sub