如何使用<em>excel</em> vba，对outlook进行操作-excel vba与ou

可以直接使用API函数ShellExecute
复制下面的代7a686964616fe78988e69d83363码，直接粘贴到你的代码模块中，然后运行EmailSend即可看到效果。
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub EmailSend()
Dim receiver$, MyMail$, MySubject$
receiver = ""
MySubject = "试试看"
MyMail = "mailto:" & receiver & "?subject=" & MySubject & "&body=Linie:这是一个测试"
ShellExecute 0&, vbNullString, MyMail, vbNullString, vbNullString, 1
End Sub

Set objOutlook = GetObject(, "Outlook.Application")
Set objMail = objOutlook.Createitem(olmailitem)
With objMail
.To = ToMail
.Subject = "标题百度"
.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'替换为邮知件地址
.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 '此邮件允许自动转7a686964616fe58685e5aeb9364发
.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