Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Private WithEvents olkMailItem As Outlook.MailItem ' Still in thisOutlookSession but now at the application level ' Private Sub Application_ItemLoad(ByVal Item As Object) If Item.Class = olMail Then Set olkMailItem = Item End Sub 'Private Sub Application_ItemLoad(ByVal Item As Object) 'MsgBox "The selected item is of Class: " & Item.Class & " and MessageClass: " & Item.MessageClass 'End Sub Private Sub olkMailItem_PropertyChange(ByVal Name As String) If Name = "UnRead" Then If olkMailItem.UnRead Then ClassifyAndFile_v2 olkMailItem End If End If End Sub Sub ClassifyAndFile_v2(olkItm As Object) 'On the next line edit the root folder path. This is the older that all project folders are under.' Const ROOT_FOLDER = "H:\Email test" Dim strFileCode As String, strFilePath As String, intCnt As Integer If olkItm.Class = olMail Then strFileCode = "" strFileCode = InputBox("Enter the filing code for the item" & vbCrLf & olkItm.Subject, "Classify and File") If strFileCode <> "" Then strFilePath = ROOT_FOLDER & strFileCode & "\" & olkItm.Subject & ".msg" 'Save the original message' olkItm.SaveAs strFilePath, olMSG 'Insert a link to the original message at the bottom of the message' olkItm.HTMLBody = olkItm.HTMLBody & "<a href=""file://" & strFilePath & """>Original Message</a><br>" olkItm.Save 'Remove the attachments' For intCnt = olkItm.Attachments.Count To 1 Step -1 olkItm.Attachments.Item(intCnt).Delete Next End If End If Set olkItm = Nothing Set olkFld = Nothing End Sub 'Private Sub Application_Startup() 'MsgBox "Macros are enabled." 'End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Allowing users to edit the Distrubition groups in exchange 2010||5||37|
|Gmail subfolders appearing as empty within Outlook 2016||1||34|
|Excel Userform to write back to spreadsheet in a different font or colour||8||14|
|When I reply to an email in Outlook 2016 the font in the message pane is very small||4||17|