Thread: Email Column C to Column A with Column B as subject

I just spent 2 hours wading through Ron's pages and the many many posts in this forum. I can't figure out how to simplify Ron's and tailor it to my needs which are simple. I just need to be able to send an email from excel with the following specs. Column A is the user names, Column B is the Subject, column C is the body, and each row should be a different email.
E.G.

ColumnA.................ColumnB.................ColumnC
auser.............size of your share...........Your share is this size. Too big.
buser.............size of your share...........Your share is this much smaller. thankyou
ETC...

I don't need filters or anything like that. I feel like this should be easy but we never covered this type of thing in my scripting class. Thanks for any help you can give. (Even if it is just a link to something I can use.) Oh and I am using Excel and Outlook 07, and all users are on network, so the actual email address shouldn't be needed.

Thanks again

I have added the code below as a module to my workbook but I can't figure out cow to add it. I create a button and try to assign a macro to it but it doesn't see the macro I created. Can anyone help me figure out what I am doing wrong? I can't even test this code to see if it will work. Thanks.

Private Sub CommandButton1_Click()

  Dim Cell As Range
  Dim EmailBody As String
  Dim EmailRng As Range
  Dim EmailSubj As String
  Dim EmailTo As String
  Dim olApp As Object
  Dim olEmail As Object
  Dim RngEnd As Range
  Dim Wks As Worksheet
  Dim Row As String
  Row = 1
  
    Set Wks = ActiveSheet
    
    Set EmailRng = Wks.Range("O1")
    Set RngEnd = Wks.Cells(Rows.Count, EmailRng.Column).End(xlUp)
    Set EmailRng = Wks.Range(EmailRng, RngEnd).Resize(ColumnSize:=3)
    
    Do Until Row = 200
      EmailTo = Wks.Cells(Row, 1)
      EmailSubj = Wks.Cells(Row, 2)
      EmailBody = Wks.Cells(Row, 3)
      Row = Row + 1
      Set EmailRng = EmailRng.Find(EmailTo, , xlValues, xlWhole, xlByRows, xlNext, False)
                                  
        If Not EmailRng Is Nothing Then
           EmailTo = EmailRng.Offset(0, 1)
        Else
           MsgBox "Email ID '" & EmailTo & " not found."
           Exit Sub
        End If
      
        Set olApp = CreateObject("Outlook.Application")
        Set olEmail = olApp.CreateItem(0)
        
        With olEmail
          .To = EmailTo
          .Subject = EmailSubj
          .Body = EmailBody
          .Display
        End With
    Loop
    Set olApp = Nothing
    Set olEmail = Nothing

End Sub

I've got it working except it keeps saying email ID not found.

Thanks for all your help. I got it to work. Here is my end code.

Private Sub CommandButton1_Click()

  Dim Cell As Range
  Dim EmailBody As String
  Dim EmailRng As Range
  Dim EmailSubj As String
  Dim EmailTo As String
  Dim olApp As Object
  Dim olEmail As Object
  Dim RngEnd As Range
  Dim Wks As Worksheet
  Dim Row As String
  Row = 1
  
    Set Wks = ActiveSheet
    
    Do Until Row = -1
      EmailTo = Wks.Cells(Row, "A")
      EmailSubj = Wks.Cells(Row, "B")
      EmailBody = Wks.Cells(Row, "C")
      Row = Row + 1
      If EmailTo = "" Then
        Row = -1
        Exit Sub
      End If
      
        Set olApp = CreateObject("Outlook.Application")
        Set olEmail = olApp.CreateItem(0)
        
        With olEmail
          .To = EmailTo
          .Subject = EmailSubj
          .Body = EmailBody
          .Send
        End With
    Loop
    Set olApp = Nothing
    Set olEmail = Nothing

End Sub