Send Email with MsgBox vbOk

Hi all,

I have a message box with OK and Cancel. I need to have Excel send an email if the user presses ok or to not send if the user presses cancel. I have the code to send emails but I don't know how to apply it to a message box vbOk. I tried the following:

If vbOK Then
        ActiveWorkbook.SendMail _
            Recipients:="mvasas@hydro.mb.ca", _
            Subject:="IPI Charting Tool Feedback " & Format(Date, "dd/mmm/yy")
        Else
            Exit Sub
        End If

but this runs the sendmail no matter which button I press. Please help.

Regards:

hi Mordred,
I use this one, try it and see if it helps you

If MsgBox("Do you want to send it now?", vbYesNo + vbQuestion) = vbYes Then

'yr code 

 Else
     ' Do nothing
End If

The purpose of this is for feedback from users throughout the corporation. Instead of the code I used in my previous post, is there a way that a New Message from Outlook can be opened with my email and subject already filled?

Sub snb()
  If MsgBox("Do you want to send it now?", vbYesNo + vbQuestion) = vbYes Then
    with createobject("Outlook.application").createitem(0)
      .to ="mvasas@hydro.mb.ca"
      .subject = "IPI Charting Tool Feedback " & Format(Date, "dd/mmm/yy")
      .attachments.add thisworkbook.fullname
      .send
    end with
  End If
End Sub

Thanks all I really appreciate this but how can the person sending this actually add to the body of the email, if they want to add a message to the email?

I am going to try and incorporate the Sub from here to hopefully achieve my desired results.

using snb's code add

'
'
.body = ""
'.send
.display

Thanks again everyone!

Sub snb()
  If MsgBox("Do you want to send it now?", vbYesNo + vbQuestion) = vbYes Then
    with createobject("Outlook.application").createitem(0)
      .to ="mvasas@hydro.mb.ca"
      .subject = "IPI Charting Tool Feedback " & Format(Date, "dd/mmm/yy")
      .body="This is your message"
      .attachments.add thisworkbook.fullname
      .send
    end with
  End If
End Sub