Code to open outlook

Hi
I have a phone book that I adapted from the internet which is sorting and working well
I wanted to email straight from this form based on the search . I added " open email " command button and entered code from
http://www.rondebruin.nl/win/winmail/Outlook/tips.htm . As I am brand new I have made an error but cant problem solve as I dont know enough

Could I ask for some assistance here

Attachment 25026

Code:

---

Sub Mail_small_Text_Outlook()'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 = "txtMobile"
        .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

---

In your form code

Code:

---

Private Sub Openemail_Click()
    Mail_small_Text_Outlook txtMobile
End Sub

---

Change the red bits

Code:

---

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
        .display
    End With
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

---

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

Code:

---


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

Why not attach the excel file rather than a word file? We have to guess at some things. The code should have worked but not with your specifics. You should use .Display rather than .Send for testing purposes. That is why the comment is there.

Making a guess that email textbox is textbox4:

Code:

---

.To = TextBox4

---

Hi Kenneth
I think the info got a bit twisted some where . I have a phone book which searches based on a " The select field" when selected the info presents in 6 fields below.
I would like to:
1. open out look via the open email button
2. have a generic email which will open -- this is in rondiburin code
3. have the "to " field populated based on the email address found in the email field of the user form which I think is text box TX mobile ( i haven't changed the names perhaps i should )

I dont want to attach a word doc or file . The word doc was to show which filed I am getting the email address from

Not sure where .To text box 4 is ?

many thanks again

Looking at your first file in the userform PhoneList, you can see that the textbox with label caption value of Mobile, that the control's name it txtEmail. So:

Code:

---

.To = txtEmail

---

I selected First Name in the userform and Tarek as first name. Nothing in the userform filled in and it said nothing was found. Looking at the data, the filtered range did show Tarek's data.

Quote:

---

Originally Posted by mml

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

Code:

---


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?

Code:

---

Private Sub Openemail_Click()
    Mail_small_Text_Outlook txtMobile
End Sub

---

Attachment 25104

Once again this forum has made my day !!! Thanks to Paulked and Kenneth for taking the time to respond ,your patience and assistance is greatly appreciated. You are adding to my knowledge along the way
This solution works perfectly . Just hope the boss doesn't want anything more
kindest regards