email using user form

[buzz71023]

I have a userform with three 2 textboxes, textbox 1 = subject, textbox 2 = body of email and a command button to send the email. I want users to be able to send an email to my email (myemail@email.com) (for reporting problems with workbook).

If I have to I don't have to use a userform. I can create another worksheet to have the info put in ranges and do it that way... If thats the way I have to do it range c2 = subject, c5 = body of email. If email address is need in a range I would put it in c1.

 

[Domenic]

Try something like this...

[font=Verdana][color=darkblue]Option[/color] [color=darkblue]Explicit[/color]

[color=darkblue]Private[/color] [color=darkblue]Sub[/color] CommandButton1_Click()
    [color=darkblue]Dim[/color] OutlookApp [color=darkblue]As[/color] Outlook.Application
    [color=darkblue]Dim[/color] MItem [color=darkblue]As[/color] Outlook.MailItem
    [color=darkblue]Set[/color] OutlookApp = [color=darkblue]New[/color] Outlook.Application
    [color=darkblue]Set[/color] MItem = OutlookApp.CreateItem(olMailItem)
    [color=darkblue]With[/color] MItem
        .To = "myemail@email.com"
        .Subject = Me.TextBox1.Text
        .Body = Me.TextBox2.Text
        [color=green]'.Send[/color]
        .Save [COLOR="Green"]'to drafts folder[/COLOR]
    [color=darkblue]End[/color] [color=darkblue]With[/color]
    [COLOR="Green"]'Unload Me[/COLOR]
[color=darkblue]End[/color] [color=darkblue]Sub[/color]
[/font]

 

[buzz71023]

Thanks ill try it when I get home

 

[Domenic]

I forgot to mention that you'll need to set a reference...

Tools > References > and select Microsoft Outlook Object Library

 

[buzz71023]

Nothing seems to be happening when I press the send button. Not a debug error or anything. I copied and pasted the code and then went into tools and select Microsoft Outlook 14.0 Object Library (I have Office 2010 if that matters). This will be ran on Office 2003 until just after the first of the year.

I have double checked everything and it is all in the right place.

 

[Domenic]

Did you place the code in the code module for the UserForm?

Did you change the names of the controls (CommandButton1, TextBox1, and TexBox2), accordingly?

As it stands, the email is saved in the drafts folder. Have you checked to see whether the email is in fact in the drafts folder?

 

[buzz71023]

thats where it is at.. sorry i didnt look in the drafts folder... is there anyway to get it to send automatically? could i set up a rule in outlook or would i have to do a macro? i am trying to make it as few steps as possible for some of the user bc some are almost computer illiterate. thanks for the help so far also, it is a huge help.

 

[buzz71023]

Or is that what it does? Sorry, just a little confused to why it is in my drafts. Like its a email im trying to send instead of receiving it. Guess ill need to test it once its on the server.

 

[Domenic]

For testing purposes, it is being saved in the drafts folder. To send it, delete the following line...

       .Save 'to drafts folder

...and replace...

        '.Send

with

        .Send

 

[buzz71023]

Works Great! Thanks for the Help!