Outlook 批量发送邮件

2019独角兽企业重金招聘Python工程师标准>>>

Sub ForwardSelectedMessages()
On Error Resume Next
 
    Dim objItem As Object
    Dim objForward As Outlook.MailItem
       
    For Each objItem In ActiveExplorer.Selection
        If objItem.Class = olMail Then
            Set objForward = objItem.Forward
            objForward.To = "user@domain.com"
   objForward.Subject = objItem.Subject
            objForward.Send
            Set objItem = Nothing
            Set objForward = Nothing
        End If
    Next
   
    Set objItem = Nothing
    Set objForward = Nothing
End Sub

转载于:https://my.oschina.net/mikezhang/blog/114404