How to send an email in excel?

[xujw80]

Hello,

I am new to VBA programming.

What I want to do is to write a macro in excel.

There is a button in excel sheet, when I click the button, the excel will automatically send an email to all users listed from other sheet in excel.

The context in the email is the context shown in another excel sheet. I use outlook.

Any clue will be appreciated.
or any useful programming books.

[RobDog888]

If you want to use Outlook from Excel then that is possible but you will generate the Outlook Security popup message. If this is ok then you can use code like below to generate the email, just add code to populate the body and iterate through the cells of addys.

Option Explicit
'Add a reference to msOutlook xx.0 Object Library
Private Sub CommandButton1_Click()
 
    Dim oApp As Outlook.Application
    Dim oMail As Outlook.MailItem
    Dim i As Integer
 
    For i = 1 To 10 'For ex.
        Set oMail = oApp.CreateItem(olMailItem)
        oMail.Subject = "Subject"
        oMail.To = Sheet2.Cells(i, 1).Value
        oMail.Body = Sheet2.Cells(i, 2).Value
        oMail.Send
        Set oMail = Nothing
    Next
 
End Sub

[xujw80]

Thanks. I solved it.