Tab spacing and border around textbox.value for email and change date to english format not american?

[Patriot2879]

Hi, i have the code below i was wondering if you can help me with it please, i have entered textbox18, textbox19, and textbox20 anfd this brings back the date into the email but it is in american format how can i change this please in the code?
Also after each textbox i have entered a vbtab, but i want them inline for top and bottom ie the date and area lines how can i do this please?

Private Sub CommandButton1_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 = "Hi There," & Chr(10) & vbCrLf & _
                      "" & Me.TextBox33.Value & Chr(10) & _
                      "Date:" & vbTab & Me.TextBox18.Value & vbTab & Me.TextBox19.Value & vbTab & Me.TextBox21.Value & vbCrLf & _
                      "Area:" & vbTab & Me.TextBox9.Value & vbTab & vbTab & Me.TextBox20.Value & vbTab & vbTab & Me.TextBox22.Value & vbCrLf & _
                      "" & Me.TextBox17.Value & Chr(10) & vbCrLf & _
                      "Many thanks " & Chr(10)

        aEmail.Recipients.Add "test.test@test.com; test.test@test.com"
        aEmail.CC = ""
        aEmail.BCC = ""
        aEmail.Subject = "Weekly " & Range("D2").Value
        aEmail.Display

 

[Patriot2879]

Hiya again would it be possible to dictate how many spaces i want inbetween each Text box? for example 5 spaces then the next could be 7 spaces gap?

 

[Patriot2879]

Hiya sorry just wondering if you have any ideas on how to help me with this please? ANy help will be much apprecaited
1. I have entered textbox18, textbox19, and textbox20 anfd this brings back the date into the email but it is in american format how can i change this please in the code?

"Date:" & vbTab & Me.TextBox18.Value & vbTab & Me.TextBox19.Value & vbTab & Me.TextBox21.Value & vbCrLf & _

2. After each textbox i have entered a vbtab, but i want them inline for top "Date"and bottom "Area" ie the date and area lines how can i do this please?

"Area:" & vbTab & Me.TextBox9.Value & vbTab & vbTab & Me.TextBox20.Value & vbTab & vbTab & Me.TextBox22.Value & vbCrLf & _

 

[Patriot2879]

Hi Sorry me again, just wondering if you had any ideas at all please? your help and advice is always excellent and i am very grateful

 

[Patriot2879]

hi, just had an idea now on the below code, i was wondering instead of having a TextBox18.value is there any way i can change this to copyint the actual textbox into the email? so to copy the textbox and paste into the email? please can you help

Private Sub CommandButton1_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 = "Hi There," & Chr(10) & vbCrLf & _
                      "" & Me.TextBox33.Value & Chr(10) & _
                      "Date:" & vbTab & Me.TextBox18.Value & vbTab & Me.TextBox19.Value & vbTab & Me.TextBox21.Value & vbCrLf & _
                      "Area:" & vbTab & Me.TextBox9.Value & vbTab & vbTab & Me.TextBox20.Value & vbTab & vbTab & Me.TextBox22.Value & vbCrLf & _
                      "" & Me.TextBox17.Value & Chr(10) & vbCrLf & _
                      "Many thanks " & Chr(10)

        aEmail.Recipients.Add "test.test@test.com; test.test@test.com"
        aEmail.CC = ""
        aEmail.BCC = ""
        aEmail.Subject = "Weekly " & Range("D2").Value
        aEmail.Display

 

[Patriot2879]

Hi Sorry me again, i am new to this and your help is appreciated i have the code below which is linked to my email from a userform button where at the moment it transfers all the vlaues from a text box, but at the moment the datew and area lines arent tabbing in line with each other due to the count of characters used, is there any way i can change the .vlaue to a .copy some how? so instead of copying the data in the text box it copies the whole lot ie the textbox and the data into the email? this would then work on the tabbing i think as the textboxes are all the same size. Please can you help me on this issue i have many thanks

Private Sub CommandButton1_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 = "Hi " & Me.TextBox35.Value & Chr(10) & vbCrLf & _
                      "" & Me.TextBox33.Value & Chr(10) & _
                      "Date:" & vbTab & Me.TextBox18.Value & vbTab & Me.TextBox19.Value & vbTab & Me.TextBox21.Value & vbTab & Me.TextBox23.Value & vbTab & Me.TextBox25.Value & vbTab & Me.TextBox26.Value & vbTab & Me.TextBox27.Value & vbTab & Me.TextBox28.Value & vbCrLf & _
                      "Area:" & vbTab & Me.TextBox9.Value & vbTab & Me.TextBox20.Value & vbTab & Me.TextBox22.Value & vbTab & Me.TextBox24.Value & vbTab & Me.TextBox29.Value & vbTab & Me.TextBox30.Value & vbTab & Me.TextBox31.Value & vbTab & Me.TextBox32.Value & Chr(10) & vbCrLf & _
                      "" & Me.TextBox17.Value & Chr(10) & vbCrLf & _
                      "Many thanks " & Chr(10) & vbCrLf & _
                      "Team " & Chr(10)

        aEmail.Recipients.Add (UserForm1.TextBox36.Value)
        aEmail.CC = (UserForm1.TextBox37.Value)
        aEmail.BCC = ""
        aEmail.Subject = "Weekly " & Range("D2").Value
        aEmail.Display

End Sub

 

[Patriot2879]

hiya the copying the textboxes mentioned above is for the 2 lines below to go in the email if possible, pleased can you help in copying the actual textbox and the data into the email please?

                      "Date:" & vbTab & Me.TextBox18.Value & vbTab & Me.TextBox19.Value & vbTab & Me.TextBox21.Value & vbCrLf & _
                      "Area:" & vbTab & Me.TextBox9.Value & vbTab & vbTab & Me.TextBox20.Value & vbTab & vbTab & Me.TextBox22.Value & vbCrLf & _

 

[Patriot2879]

Hi sorry just wondering if anyone has any ideas on my question please? many thanks