How can I send an email files to be viewed in Excel from the software that is written in Visual Basic 6 (VB6), so that when the receiver opens the Excel book, it will not only shows the data but copies all the codes as well?

Comment viewing options

# Comment Id: 42566

To send an email file so that it will be viewed in Excel from the software that is written in Visual Basic 6 (VB6), so that when the receiver opens the Excel book, it will not only shows the data but copies all the codes as well, you will first need to have mail server, and in this case I am assuming you are using outlook.

The first thing you will need to do is select the outlook object from the visual basic project preferences, and the code for that process is as below:

Public sub SendMail(tSubject As String, tBody As String)
'Description: Uses the outlook object to create and send a mail using the passed parameters of tsubject,tbody and tTo
Dim oItem As Outlook.MailItem
Dim oitems As Items
Set oOutlook = New Outlook.Application
Set oitems = objInbox.Items
Set oItem = oOutlook.CreateItem(olMailItem)
'With oItem
.To = tTo
.Body = tBody
.Subject = tSubject
.send
End With

'Logon using the session object
'Specify a valid profile name if you want to
'Avoid the logon dialog box
'If you don't include a profilename then a dialog is popup requesting one
objSession.Logon profileName:="MS Exchange Settings"

'Add a new message object to the OutBox
Set objmessage = objSession.Outbox.Messages.Add