VBA转发收件箱的邮件

chyua · 发表于 2014-9-25 12:36

是否可以用VBA实现，批量转发收件箱中指定的邮件？

闻启学 · 发表于 2014-9-25 17:09

请测试
Sub RecipMail()

On Error Resume Next

Dim objItem As outlook.MailItem

Dim myOlExp As outlook.Explorer

'遍历所有选中的项
For Each objItem In Application.ActiveExplorer.Selection

      '如果选中的是邮件
      If objItem.Class = olMail Then

         objItem.Forward.Recipients.Add "lyhschool@163.com" '//转发

         objItem.Send
         '//邮件正文打印
         '// objItem.PrintOut

      End If
Next

End Sub

chyua · 发表于 2014-9-25 23:15

闻启学发表于 2014-9-25 17:09
请测试
Sub RecipMail()

感谢回复。
如果我是这样的情况，我收件箱有200封邮件，每封邮件以店铺的名字作为主题。
而我需要做的是：转发每封邮件，并正文写“尊敬的xx店铺负责人，您好。请查收附件，谢谢”。
这样是否可以实现呢？

闻启学 · 发表于 2014-9-26 00:08

chyua 发表于 2014-9-25 23:15
感谢回复。
如果我是这样的情况，我收件箱有200封邮件，每封邮件以店铺的名字作为主题。
而我需要做的是 ...

发一封邮件到我信箱这样方便测试

davidli@cpecartoon。com

闻启学 · 发表于 2014-9-26 12:01

chyua 发表于 2014-9-25 23:15
感谢回复。
如果我是这样的情况，我收件箱有200封邮件，每封邮件以店铺的名字作为主题。
而我需要做的是 ...

请测试

多谢版主指导

Sub RecipMail()
'//选中邮件转发
On Error Resume Next
Dim myOlApp As New outlook.Application
Dim myOlExp As outlook.Explorer
Dim myOlSel As outlook.Selection
Dim myItem As outlook.MailItem
Dim myForwardItem As outlook.MailItem
Dim x As Integer
Set myOlExp = myOlApp.ActiveExplorer
Set myOlSel = myOlExp.Selection
Dim mytit As String
Dim myRecipient As outlook.Recipient
' 遍历所有选中的项
For x = 1 To myOlSel.Count
If (myOlSel.Item(x).Class = 43) Then '//判断是否邮件
Set myItem = myOlSel.Item(x) '//邮件对象赋值
Set myForwardItem = myItem.Forward '//转发邮件
Call ClearRecipient(myForwardItem) '//清空原有收件人列表
mytit = "尊敬的" & myForwardItem.Subject & " 店铺负责人，您好。请查收附件，谢谢" & Chr(10) & Chr(13)
myForwardItem.Body = mytit & myForwardItem.Body '//转发邮件主体生成
myForwardItem.Recipients.Add "lyhschool@163.com" '//添加收件人
myForwardItem.Send
End If
Next x
End Sub
Sub ClearRecipient(myMial As outlook.MailItem) '//清空收件人列表
For i = myMial.Recipients.Count To 1 Step -1
myMial.Recipients.Item(i).Delete '//收件人删除
Next
End Sub

复制代码

chyua · 发表于 2014-9-27 00:20

本帖最后由 chyua 于 2014-9-27 00:26 编辑

闻启学发表于 2014-9-26 12:01
请测试

多谢版主指导

测试了下，因为转发之后，主题会变成“转发：xx店铺”的样式，因此正文就变成“尊敬的转发：xx店铺”了。是否可以仅选取店铺前面的字“xx"呢？
另外是否可以设置正文的字体，字体是跟自身outlook设置的么？
由于发过去的每个店铺的邮箱地址是不一样的，不知道是否可以设置？
同时还需要抄送不同的人。

感激感激。

闻启学 · 发表于 2014-9-27 17:05

chyua 发表于 2014-9-27 00:20
测试了下，因为转发之后，主题会变成“转发：xx店铺”的样式，因此正文就变成“尊敬的转发：xx店铺”了。 ...

我这个代码是转发一个邮件的

可以修改一下

是否可以设置正文的字体，字体是跟自身outlook设置的么这个是对的除非你用html 代码

		自动登录	找回密码
密码			免费注册

VBA转发收件箱的邮件

评分