Send email using a button in Excel

[glendon]

I am simply trying to send an email using a button on a worksheet. I am new to vba and found this code which I've tweaked a little. It works when I run the macro but it doesn't work when I press the button. A little help please...

Thanks!

Sub CommandButton1_Click()

    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    strbody = "Hi there" & vbNewLine & vbNewLine & _
              "This is line 1" & vbNewLine & _
              "This is line 2" & vbNewLine & _
              "This is line 3" & vbNewLine & _
              "This is line 4"

    On Error Resume Next
    With OutMail
        .To = "me@email.com"
        .CC = ""
        .BCC = ""
        .Subject = "This is the Subject line"
        .Body = strbody
        .Send   'or use .Display
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

 

[glendon]

I figured it out.

 

[RSXchin]

What was the problem for anyone who has this issue in the future?

 

[glendon]

I had the code in a Module instead of in the worksheet (Sheet).