我已经设置了一个宏,可以自动向数十个经理发送电子邮件。有时他们会离开,我必须检查离开信息并手动转发给代替他们的人。
我试图在求助之前找到解决方案,希望你能施以援手!我找到了一个类似的问题,但没有太多的帮助,我不能找到从草稿中提取自动回复信息的大量信息。
到目前为止,这就是我所拥有的:
我试图在求助之前找到解决方案,希望你能施以援手!我找到了一个类似的问题,但没有太多的帮助,我不能找到从草稿中提取自动回复信息的大量信息。
到目前为止,这就是我所拥有的:
Sub CheckAutoReply()
Dim OL As Outlook.Application
Dim EM As Outlook.MailItem
Dim R As Outlook.Recipient
Set OL = New Outlook.Application
Set EM = CreateItem(olMailItem)
With EM
.display
.To = "John.Doe@Stackoverflow.com" 'This is a recipient I know has an autoresponse. Fictitious of course.
End With
Set R = EM.Recipients(1) 'on hover it pops up with "EM.Recipients(1) = "John.Doe@Stackoverflow.com""
Debug.Print R.Name 'this returns "John.Doe@Stackoverflow.com"
Debug.Print R.AutoResponse 'this returns nothing
Set OL = Nothing
Set EM = Nothing
End Sub