Mailing Excel worksheet as an attachment without saving C#

Question

Hi ALL,

I am creating an Excel worksheet dynamically in C# codebehind and i want that Excel worksheet to send as an email as an attachment. I dont want to save the worksheet. Currently am saving the worksheet, then attaching the saved worksheet, then send email, then delete the saved worksheet.

But i want to create dynamically Excel worksheet and then attach that worksheet without saving.

Is there any solution to this.

Thanks in Advance

Vishwas

crystal boy · Answer

Write the code in button click event dont forget to import the following 3 name spaces It will replace the old file so need to worry about disk usage Imports System.Net.Mail Imports System.Net Imports Outlook = Microsoft.Office.Interop.Outlook Try ' Create the Outlook application. Dim oApp As New Outlook.Application() ' Create a new mail item. Dim oMsg As Outlook.MailItem = DirectCast(oApp.CreateItem(Outlook.OlItemType.olMailItem), Outlook.MailItem) ' Set HTMLBody. 'add the body of the email oMsg.HTMLBody = "Hi Team, Kindly Find the attachment and do the proceedings. *** Please Donot reply to this mail *** Thanks and Regards Support " 'Add an attachment. Dim sDisplayName As [String] = "MyAttachment" Dim iPosition As Integer = CInt(oMsg.Body.Length) + 1 Dim iAttachType As Integer = CInt(Outlook.OlAttachmentType.olByValue) 'now attached the file Dim oAttach As Outlook.Attachment = oMsg.Attachments.Add("C:\ss.xls", iAttachType, iPosition, sDisplayName) 'Subject line oMsg.Subject = "Regarding Database Monitoring you have got mail" ' Add a recipient. Dim oRecips As Outlook.Recipients = DirectCast(oMsg.Recipients, Outlook.Recipients) ' Change the recipient in the next line if necessary. Dim oRecip As Outlook.Recipient = DirectCast(oRecips.Add("mailid 1"), Outlook.Recipient) Dim oRecip1 As Outlook.Recipient = DirectCast(oRecips.Add("mailid 2"), Outlook.Recipient) Dim oRecip2 As Outlook.Recipient = DirectCast(oRecips.Add("mailid 3"), Outlook.Recipient) oRecip.Resolve() oRecip1.Resolve() oRecip2.Resolve() ' Send. oMsg.Send() ' Clean up. oRecip = Nothing oRecip1 = Nothing oRecip2 = Nothing oRecips = Nothing oMsg = Nothing oApp = Nothing 'end of try block Catch ex As Exception End Try

Mailing Excel worksheet as an attachment without saving C#

Prasham Sabadra