Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
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.
Sub MoveDashboardAttachments(Item As Outlook.MailItem) Dim ns As NameSpace Dim Inbox As MAPIFolder Dim Atmt As Attachment Dim SubFolder As MAPIFolder Dim FileName As String Dim olCurrMailItem As MailItem Dim d As Integer Dim intUwv As Integer Dim intWv As Integer Dim i As Integer Set ns = GetNamespace("MAPI") Set Inbox = ns.GetDefaultFolder(olFolderInbox) Set SubFolder = Inbox.Folders("Dashboard_Executive") i = 0 For Each Item In Inbox.Items d = DateDiff("d", CDate(Item.ReceivedTime), CDate(Now())) If d <= 5 Then 'identify which email is being processed by looking at the email-subject intUwv = InStr(1, Item.Subject, "Attachment Test", 1) intWv = InStr(1, Item.Subject, "Attachment Testing", 1) ' if one of the emails is identified then process the email attachments If intUwv + intWv > 0 Then For Each Atmt In Item.Attachments If Right(Atmt.FileName, 3) = "csv" Then FileName = "\\FLFILE01\Warehouse\Data\Jerry\" & Atmt.FileName Atmt.SaveAsFile FileName Item.Move SubFolder i = i + 1 End If Next Atmt intUwv = 0 intWv = 0 End If End If Next Item Set Atmt = Nothing Set Item = Nothing Set ns = Nothing Exit Sub End Sub
|Exchange 2013 - Outlook Anywhere||8||52|
|Recover deleted email through Exchange 201o server||8||74|
|Show Ruler in Outlook 2010 STILL NOT SHOWING!||4||39|
|Autodiscover is not working for one user||1||29|