Outlook 批量发送邮件

原创
2013/03/18 10:59
阅读数 1.6K
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

展开阅读全文
加载中
点击引领话题📣 发布并加入讨论🔥
打赏
0 评论
0 收藏
0
分享
返回顶部
顶部