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
Bookmarks