vba 通过excel控制outlook发邮件

vba 通过excel控制outlook发邮件

时间:2010-01-19 05:47 | 点击: 78次

VBA 通过EXCEL控制outlook发邮件
Public Sub test()
Application.ScreenUpdating = False
Dim mailaddress As String
Dim i As Integer
Dim objOL As Object
Dim itmNewMail As Object
For i = 1 To 1
Set objOL = CreateObject("Outlook.Application")
Set itmNewMail = objOL.CreateItem(olMailItem)
mailaddress = "[e-mail]" & ";" & "[e-mail]"
With itmNewMail
.To = mailaddress
.Subject = "test subject"
.body = "Jason" & vbCrLf & "请安排发货"
.Send
Set objOL = Nothing
Set itmNewMail = Nothing
End With
Next i
Application.ScreenUpdating = True
End Sub
这是一段已经通过验证可以使用的代码，只要放入excel中，略加修改就可以通过outlook发送邮件。
用途：可以部分替代自动发送功能。
比如：如果在EXCEL中建立了一个流程，当某个步骤被完成以后，想要通知下一个部门的话，就可以用这种方式完成通知的过程。
只是对其中的原理还不是很清楚，只能依葫芦画瓢而已。要是有人帮我解释一下代码的含义就好了。