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.
Public Function AssignmentEmail() Dim myOlApp As Object Dim myItem As Object Set myOlApp = CreateObject("Outlook.Application") Set myItem = myOlApp.CreateItem(olMailItem) With myItem .To = Me.T_EXPERT_EMAIL .SentOnBehalfOfName = Nz(DLookup("default_email", "tblcurrentuser")) '.BodyFormat = olFormatRichText .BodyFormat = olFormatPlain If Me.T_PRIORITY = 1 Then .Importance = olImportanceHigh .Subject = Format(Me.T_TICKET_NBR, "00000") & "-IST *PRIORITY* Ticket-Category: " & Me.T_CAT_NAME Else .Subject = Format(Me.T_TICKET_NBR, "00000") & "-IST Ticket-Category: " & Me.T_CAT_NAME End If End With Set myItem = Nothing Set myOlApp = Nothing End Function
Join the community of 500,000 technology professionals and ask your questions.