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.
oMsg = oOutApp.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olMailItem) oMsg.Subject = "Tumbling Tigerz Invoice" oMsg.Body = oBody ' TODO: Replace with a valid e-mail address. oMsg.To = oEmailAddress oMsg.CC = "" ' Add an attachment Dim oAttachment As String = oInvoicePDF Dim sSource As String = oAttachment 'eg "C:\Temp\Hello.txt" 'Dim sBodyLen As String = oMsg.Body.Length Dim sBodyLen As Integer = oBody.Length Dim oAttachs As Microsoft.Office.Interop.Outlook.Attachments Dim oAttach As Microsoft.Office.Interop.Outlook.Attachment 'only attach if there is something there If oAttachment <> "" And oAttachment <> Nothing Then oAttachs = oMsg.Attachments If oAttachment <> Nothing And oAttachment <> "" And System.IO.File.Exists(oAttachment) = True Then oAttach = oAttachs.Add(sSource, , sBodyLen + 1) 'oAttach = oAttachs.Add(sSource, , sBodyLen + 1, sDisplayName) End If End If ' Send Email If Globals.Ribbons.Ribbon1.chkCheckEmail.Checked = True Then 'Manual oMsg.Display() 'Note no cleanup code 'Now monitor whether Send Button was actually pushed Dim CurrWatcher As Object CurrWatcher = New EmailWatcher CurrWatcher.BoolRange = Globals.ThisAddIn.Application.Cells(2 16) CurrWatcher.TheMail = oMsg Else oMsg.Send() End If
Public Class EmailWatcher Public BoolRange As Excel.Range Public DateRange As Excel.Range Public WithEvents TheMail As Microsoft.Office.Interop.Outlook.MailItem Private Sub TheMail_Send(Cancel As Boolean) If Not BoolRange Is Nothing Then BoolRange.Value = True End If If Not DateRange Is Nothing Then DateRange.Value = Now() End If End Sub End Class
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.