Learn about Hyper-V features that increase functionality and usability of Microsoft Windows Server 2016. Also, throughout this eBook, you’ll find some basic PowerShell examples that will help you leverage the scripts in your environments!
Private WithEvents objInboxItems As Items Private Sub Application_Startup() Dim objNS As NameSpace Set objNS = Application.GetNamespace("MAPI") ' instantiate Items collections for folders we want to monitor Set objInboxItems = objNS.GetDefaultFolder(olFolderInbox).Items Set MyInbox = objNS.GetDefaultFolder(olFolderInbox) Set objNS = Nothing End Sub Private Sub Application_Quit() ' disassociate global objects declared WithEvents Set objInboxItems = Nothing End Sub Private Sub objInboxItems_ItemAdd(ByVal Item As Object) Dim olItems As Items, _ olItem As Object, _ olMailItem As MailItem, _ olAttachmentItem As Attachment, _ strInvoice As String, _ strFileName As String Set olItems = objInboxItems.Restrict("[Unread] = True") For Each olItem In olItems If olItem.Class = olMail Then Set olMailItem = olItem 'Selected based on the subject you want to key on If InStr(1, olMailItem.Subject, "Eriksen | Invoice #", vbTextCompare) > 0 Then If olMailItem.Attachments.Count > 0 Then strInvoice = Right(olItem, 6) For Each olAttachmentItem In olMailItem.Attachments strFileName = "Eriksen_Invoice_" & strInvoice 'Change the path on the next line to the path you want to save your attachments in olAttachmentItem.SaveAsFile "H:\My Documents\3_Purchase_Card\TransactionsFY2016\Eriksen_Translations\" & strFileName & ".pdf" olItem.UnRead = False Next End If End If End If Next End Sub
|IT Desktop Support||11||76|
|Outlook 2013 sent view customization||2||23|
|Outlook Categories: Is there a way to have a SharedMailbox with consistent Categories for all Users that access the mailbox?||2||69|
|Need to convert large amount of Outlook Express folders (*.DBX Files) to current email program.||8||56|