Command Box Help!

[lolzfidget89]

Hi everyone,

I have created a command box to send an email:

Private Sub CommandButton1_Click()
ActiveWorkbook.SendMail "xxxxxx@xxxxxxx.com"
End Sub

The command button works, but I get a message saying the following "A program is trying to automatically send e-mail on your behalf. Do you want to allow this?" Any way to get rid of this? No worries if not - but this form will be used externally and I don't want my projects to get confused with it.

Is it possible for a msgbox to pop up before the email is actually sent? I want the message to read something like "Are you sure you want to proceed?" with the options "OK" "Cancel"

Thank you!

 

[Warship]

see: Sending mail from Excel with CDO

 

[pcc]

this will do the message box thing that you want before sending the email

Sub stuff()
Dim resp As String
resp = MsgBox("Are you sure you wanna do do this?", vbOKCancel + vbQuestion)
If resp = vbCancel Then End
' now code to send the e-mail
End Sub

With regard to the other problem, I think that there is a product called redemption that can get round this, but I know little about it. If you search for redemption on this site or Google you may get more help.
Cheers

 

[lolzfidget89]

Thanks! I'm now getting an error "Can't exit design mode because control text box 2 can not be created" This error didn't come up the first couple of times I tested it but for some reason it is now?