Use data from a UserForm to send email

**tanktata** · 06-07-2011, 04:05 PM

Thanks once again Jaslake. I managed to get it working myself, not quite as efficiently as your code tho, so I think I will use yours

Is it possible to send the email without the user having to press send in the email client?. It opens up outlook then seems to change to MS word to send the email, although I think it could be something to do with how I have my MS Office set up.

One last thing, will this work ok in the 2003 version of excel? The people who will be using this only have that version.

**jaslake** · 06-07-2011, 04:19 PM

Hi tanktata

The code has been tested in both Excel 2000 and Excel 2007...so, I'd think it should work in Excel 2003. However, I don't have Excel 2003...so, you'll have to test it.

To send the Email in Outlook without having to click "Send" change this code in Module 2

With OutMail
        .To = "somebody@yadda.com"
        .CC = ""
        .BCC = ""
        .Subject = "Some Words  " & Range("A3").Value & " Somemore Words  " & Range("B3").Value
        .HTMLBody = RangetoHTML(rng)
       '        .Display  'Comment Out This Line
       .Send   'or use .Display 'Uncomment This Line
    End With

Let me know of issues.