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 Helpdesk() Dim helpdeskaddress As String Dim objMail As Outlook.MailItem Dim strbody As String Dim oldmsg As String Dim emailUser As String Dim objItem As Outlook.MailItem ' Set this variable as your helpdesk e-mail address helpdeskaddress = "email@example.com" Set objItem = GetCurrentItem() Set objMail = objItem.Forward 'get the username portion of the sender email address by parsing LDAP string If (InStr(1, objItem.SenderEmailAddress, "CN=") > 0) Then emailUser = (Right(objItem.SenderEmailAddress, (Len(objItem.SenderEmailAddress) - 57))) & "@company.com" Else emailUser = objItem.SenderEmailAddress End If 'adds the senders e-mail address as the created by object for the ticket and appends the message body strbody = "#created by " & emailUser & vbNewLine & vbNewLine & objItem.Body objMail.To = helpdeskaddress objMail.Subject = objItem.Subject objMail.Body = strbody ' remove the comment from below to display the message before sending 'objMail.Display 'Automatically Send the ticket objMail.Send Set objItem = Nothing Set objMail = Nothing End Sub Function GetCurrentItem() As Object Dim objApp As Outlook.Application Set objApp = Application On Error Resume Next Select Case TypeName(objApp.ActiveWindow) Case "Explorer" Set GetCurrentItem = _ objApp.ActiveExplorer.Selection.Item(1) Case "Inspector" Set GetCurrentItem = _ objApp.ActiveInspector.CurrentItem Case Else End Select End Function
|VB.net Is there code behind PowerPivot||2||43|
|Powershell script to find privileged groups amongst groups and nested groups||2||15|
|vb.net datagrid point||4||16|
|How to configure Office Outlook 2016 caps||1||19|