某某人新邮件来后提醒，为何运行到instr就报91错误

ztccsj · 发表于 2019-12-5 09:40

Private Sub Application_NewMail()
Dim objOutlook As New Outlook.Application
Set myNameSpace = objOutlook.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
Dim objItem As Outlook.MailItem
If VBA.InStr(objItem.SenderName, "某某人") Then
msgbox "某某人来邮件啦“
End If
End Sub

oclassic123 · 发表于 2019-12-27 14:34

请问解决了吗我想写个读取所有邮件内容的，能实现吗

闻启学 · 发表于 2019-12-28 12:17

事件错了
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)

用这个事件

参考这个帖子吧
小闻趣话之一获得邮件的中全部附件
http://club.excelhome.net/thread-1451224-1-1.html
(出处: ExcelHome技术论坛)

第二楼

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

[求助] 某某人新邮件来后提醒，为何运行到instr就报91错误