adding additional .values in email error please help

[Patriot2879]

Hi, i have the code below where i have a userform which can be filled out then click on an email button to send to recipitents, but i keep getting errors and will not send, i have 9 different boxes where i want to copy the data from for example textbox1, textbox2, textbox3 and so forth. Pleasd can you help me many thanks for your time again.

Private Sub CommandButton4_Click()

Dim aOutlook As Object
Dim aEmail As Object
Dim rngeAddresses As Range, rngeCell As Range, strRecipients As String

Set aOutlook = CreateObject("Outlook.Application")
Set aEmail = aOutlook.CreateItem(0)


        aEmail.Body = "Appt Number: " & Me.TextBox1.Value & Chr(10) & _
                      "MPAN / MPRN: " & Me.TextBox2.Value & Chr(10) & _
                      "Time Slot: " & Me.TextBox3.Value & Chr(10) & _
                      "Address Line 1: " & Me.TextBox4.Value & Chr(10) & _
                      "Address Line 2: " & Me.TextBox5.Value & Chr(10) & _
                      "PostCode: " & Me.TextBox6.Value & Chr(10) & _
                      "Replan / T'band Ext: " & Me.ComboBox1.Value & Chr(10) & _
                      "Reason: " & Me.ComboBox2.Value & Chr(10) & _
                      "Additional Notes: " & Me.TextBox7.Value & Chr(10) & _
        aEmail.Recipients.Add "test.test@test.com"
    
        aEmail.CC = ""
        aEmail.BCC = ""
        aEmail.Subject = "Replan / T'Band Ext"
        aEmail.Send

End Sub

 

[daverunt]

Hi,


You have added the recipients to the email body.

 "Additional Notes: " & Me.TextBox7.Value & Chr(10) [COLOR="#FF0000"]& _[/COLOR] 'remove red

        aEmail.Recipients.Add "test.test@test.com"

 

[Patriot2879]

sorry i am so new to this how does that look in the whole code

 

[Patriot2879]

Brillaint got it working thank you for this brilliant

 

[daverunt]

Glad to help.

You can use also use aEmail.To= "test.test@test.com"
This can be used for multiple recipients separated by a ;

 

[Patriot2879]

Thank you just one more question do you know how i can make the email pop up first insterad of sending automatically, incase it needs to be edited etc thank you again

 

[Patriot2879]

sorry i can't get the above to work this is what i have changed it to (below) it comes up with an error , thank you again for all your help

aEmail.Recipients.To "test.test@test.com"; "test.test@test.com"

 

[daverunt]

Hi,

it's a single string, note quotes. No 'Recipients' in it.
Comment out the send and use .Display instead to view. Then press send as you would normally

aEmail.To "test.test@test.com; test.test@test.com"

aEmail.Display
' aEmail.Send