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.
Dim objOutlook As Outlook.Application Dim objOutlookMsg As Outlook.MailItem Dim objOutlookRecip As Outlook.Recipient Dim objOutlookAttach As Outlook.Attachment Dim TheAddress As String Set objOutlook = CreateObject("Outlook.Application") Set objOutlookMsg = objOutlook.CreateItem(olMailItem) Set objOutlookRecip = objOutlookMsg.Recipients.Add(Me![txtSendemail]) With objOutlookMsg objOutlookRecip.Type = olTo .Subject = Me.txtMake.Value & "Pictures From Baker Abilene Machine" ' can be a text box on form .Body = "Sending many photos" ' can be a text box on form Set objOutlookAttach = .Attachments.Add("C:\Users\Addie\Desktop\Droid\Database\" & (Me.txtSearchBAM.Value) & "\1.jpg") Set objOutlookAttach = .Attachments.Add("C:\Users\Addie\Desktop\Droid\Database\" & (Me.txtSearchBAM.Value) & "\2.jpg") ' repeat for images .Send End With Set objOutlookMsg = Nothing Set objOutlook = Nothing