code to open outlook

[paulked]

Ok I am very literal and VBA illiterate .
I have changed the code as per advice but nothing , probably , obviously doing something wrong .Outlook not even opening

Sub Mail_small_Text_Outlook(Recipient As String)
'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm
'Working in Office 2000-2016
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String


    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)


    strbody = "Hi there" & vbNewLine & vbNewLine & _
              "This is line 1" & vbNewLine & _
              "This is line 2" & vbNewLine & _
              "This is line 3" & vbNewLine & _
              "This is line 4"


    On Error Resume Next
    With OutMail
        .To = "Recipient"
        .CC = ""
        .BCC = ""
        .Subject = "This is the Subject line"
        .Body = strbody
        'You can add a file like this
        '.Attachments.Add ("C:\test.txt")
        .Send   'or use .Display
    End With
    On Error GoTo 0


    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

I have added a button to the user form named openemail . I would like to have outlook open and have the "To' filed populated by what ever address is in the "email' box

Advice please

You've put Recipient in quotes, remove the quotes!

Did you add?

Private Sub Openemail_Click()
    Mail_small_Text_Outlook txtMobile
End Sub

undergrad detail search 2019 - Ked.xlsm