Hey all,<\/p>\n
I have this script but when have added the unread
\nSection it doesn’t like it ?<\/p>\n
When it’s out it works like magic!<\/p>\n
Can someone take a look for me ?<\/p>\n
And if it’s not too much to ask after the attachment saves
\nTo make it ‘read’ I have a little bit right at the end…<\/p>\n
Dim oFSO
\nSet oFSO = CreateObject(“Scripting.FileSystemObject”)
\noFSO.CreateFolder “C:\\Temp”<\/p>\n
‘
\n‘START TO EXTRACT FILES
\n‘<\/p>\n
‘below doesn’t seem to work
\n‘
\nDim objMessage As Outlook.MailItem<\/p>\n
Const olFolderInbox = 6
\nSet objOutlook = CreateObject(“Outlook.Application”)
\nSet objNamespace = objOutlook.GetNamespace(“MAPI”)<\/p>\n
Set objFolder = objNameSpace.Folders(“Mailbox – Gmail”).Folders(“folder”).Folders(“Sub1”) \u00a0 \u00a0 \u00a0 \u00a0‘ FIRST FILE HERE
\nSet colItems = objFolder.Items<\/p>\n
For Each objMessage in colItems
\nIf objMessage.UnRead = True Then
\nintCount = objMessage.Attachments.Count
\nIf intCount > 0 Then
\nFor i = 1 To intCount
\nobjMessage.Attachments.Item(i).SaveAsFile “C:\\Temp\\” & \u00a0_
\nobjMessage.Attachments.Item(i).FileName
\nNext i
\nEnd If
\nEnd If
\nNext objMessage<\/p>\n
Set objFolder = objNameSpace.Folders(“Mailbox – Gmail”).Folders(“folder”).Folders(“Sub2”) \u00a0 \u00a0 \u00a0 \u00a0‘ SECOND FILE HERE
\nSet colItems = objFolder.Items<\/p>\n
For Each objMessage in colItems
\nIf objMessage.UnRead = True Then
\nintCount = objMessage.Attachments.Count
\nIf intCount > 0 Then
\nFor i = 1 To intCount
\nobjMessage.Attachments.Item(i).SaveAsFile “C:\\Temp\\” & \u00a0_
\nobjMessage.Attachments.Item(i).FileName
\nNext i
\nEnd If
\nEnd If
\nNext objMessage<\/p>\n
msgBox “UnRead Attachments Saved!”<\/p>\n
‘ maybe use this??
\n‘
\n‘ If objUnreadMessage.UnRead = True Then
\n‘ \u00a0 \u00a0 objUnreadMessage.UnRead = False
\n‘ End If<\/p>\n","protected":false},"author":5,"featured_media":0,"comment_status":"closed","ping_status":"closed","template":"","meta":{"inline_featured_image":false,"iawp_total_views":5},"question-category":[55],"question_tags":[],"class_list":["post-4657","question","type-question","status-publish","hentry","question-category-programming"],"jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/computing.net\/answers\/wp-json\/wp\/v2\/question\/4657","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/computing.net\/answers\/wp-json\/wp\/v2\/question"}],"about":[{"href":"https:\/\/computing.net\/answers\/wp-json\/wp\/v2\/types\/question"}],"author":[{"embeddable":true,"href":"https:\/\/computing.net\/answers\/wp-json\/wp\/v2\/users\/5"}],"replies":[{"embeddable":true,"href":"https:\/\/computing.net\/answers\/wp-json\/wp\/v2\/comments?post=4657"}],"wp:attachment":[{"href":"https:\/\/computing.net\/answers\/wp-json\/wp\/v2\/media?parent=4657"}],"wp:term":[{"taxonomy":"question-category","embeddable":true,"href":"https:\/\/computing.net\/answers\/wp-json\/wp\/v2\/question-category?post=4657"},{"taxonomy":"question_tags","embeddable":true,"href":"https:\/\/computing.net\/answers\/wp-json\/wp\/v2\/question_tags?post=4657"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}