Userform prepopulate email

[EagleInsight]

I have a userform that i want to use to prepopulate an email. However when i click the button at the email, i get a "user definted.." error message.

Please can you help in check the error in the code. Thank you!

Private Sub CommandButton1_Click()

Dim OutApp As Outlook.Application
Dim MyItem As Outlook.MailItem
Dim blnOLOpen As Boolean

'Open Outlook if not open already
On Error Resume Next

Set OutApp = GetObject(, "Outlook.Application")
blnOLOpen = True

If OutApp Is Nothing Then
Set OutApp = CreateObject("Outlook.Application")
blnOLOpen = False
Shell ("OUTLOOK")
End If

On Error GoTo 0

Set MyItem = OutApp.CreateItem(olMailItem)


With MyItem
.To = "eagleinsight@eagleinsight.com"
.Subject = ListBox7.Value & / & TextBox2.Value & / & TextBox4.Value & / & ListBox1.Value & _
.Body = "A: " & ListBox7.Value & ListBox8.Value & vbNewLine & _
"B*: " & TextBox2.Value & vbNewLine & _
"C: " & TextBox3.Value & vbNewLine & _
"D: " & ListBox1.Value & vbNewLine & _
"E: " & ListBox2.Value & vbNewLine & _
"F: " & TextBox5.Value & vbNewLine & _
"G: " & TextBox4.Value & vbNewLine & _
"H: " & ListBox5.Value & vbNewLine & _
"I: " & ListBox6.Value & vbNewLine & _
.display End With

End Sub

[Tinbendr]

I would say that

 & / &

should be

 & "/" &

[event21]

Hi -

Aside from the typo that Tinbendr pointed out, you need to add reference to Outlook to get rid of user define error.

Tools > References > Microsoft Outlook xx.x Object Library

Go back to your post and put a code tags

...your code here...

event

[EagleInsight]

Thanks both!
I have made the changes but now am getting an "expected function or variable" error message with respect to the .display (after the body). I even changed the line .display to myitem.display and .send. both didnt work

Any advice?

[Tinbendr]

Remove the trailing & _ just before the .Display.

[EagleInsight]

Remove the trailing & _ just before the .Display.

Thanks, worked in opening the email, but then only the email is filled with the subject as "false"

Really appreciate it

[Tinbendr]

Same error on that line as well.

Remove the trailing & _

The underscore is a 'continuation' marker for VBA. Instead of one long line, it allows the line to be wrapped to underneath.

[EagleInsight]

you're a god Tinbendr