Posts by Josue2119

Re: Adding UserForm Data into the Body of an Email

here is a sample of code I use that I have set to a Click event on a command button - the body of the message I have end users but in a text box , I set as textbox3.

Private Sub Email_Click()
Dim oOLook As Object
Dim oEMail As Object
Set oOLook = CreateObject("Outlook.Application")
oOLook.Session.Logon
Set oEMail = oOLook.CreateItem(0)
oEMail.Display
On Error Resume Next
With oEMail
.To = textBox1.Value
.CC = textBox2.Value
.BCC = ""
.Subject = ComboBox1.Value
.Body = TextBox3.Value
End With

I'm having issues setting up a module that will open two specific file names then allow me the option to overwrite the oldest one. I started down the path of an loop array to allow me to open multiple sheets but don't think I'm heading down the right path. Does anyone have any suggestions?