Send a email taking information from a combobox in a userform

[Chavanx1990]

I would like to send a mail taking the content of a combobox in a userform...

Thanks for your kind support.

Sub Email()
Dim olApp As Outlook.Application
Set olApp = CreateObject("Outlook.Application")

Dim olMail As Outlook.MailItem
Set olMail = olApp.CreateItem(olMailItem)

With olMail
.To = Combobox1
.CC = Combobox2
.Subject = Combobox3
.Body = Combobox4
.Display
.Send

End With
End Sub

[Vraag en antwoord]

Read the forum rules. (code must be between code tags) And place a sample file. See the big yellow banner at the top of this page.

And what is the question?