Copy TextBox contents to Clipboard

[harveya915]

In Outlook, I have a UserForm with multiple text boxes and combo boxes and one command button. Once all the fields have been completed and you click on the command button, it transfers all the information from the text boxes and combo boxes to another text box within the same UserForm.

Now I'm trying to have the contents that were transferred to the text box to also be copied to the clipboard to be able to be pasted somewhere else.

This is what i have for the button:

Private Sub CommandButton1_Click()
TextBox4.Value = ComboBox2.Text & " - " & TextBox1.Text & " - " & TextBox2.Text & " - " & TextBox5.Text & " - " & TextBox3.Text & " - " & ComboBox3.Text & " - " & ComboBox4.Text

End Sub

 

[Alex Blakenburg]

If you want to, give this a try.
From SpreadSheetGuru initially from ExcelHero
How To Use VBA Code To Copy Text To The Clipboard — TheSpreadsheetGuru

Function Clipboard(Optional StoreText As String) As String
'PURPOSE: Read/Write to Clipboard
'Source: ExcelHero.com (Daniel Ferry) via Spreadsheet Guru (Chris Newman)

Dim x As Variant

'Store as variant for 64-bit VBA support
  x = StoreText

'Create HTMLFile Object
  With CreateObject("htmlfile")
    With .parentWindow.clipboardData
      Select Case True
        Case Len(StoreText)
          'Write to the clipboard
            .setData "text", x
        Case Else
          'Read from the clipboard (no variable passed through)
            Clipboard = .GetData("text")
      End Select
    End With
  End With

End Function

You can call it like this but obviously Ctrl+V works for copying from the clipboard

Sub ExampeMacro()

'Copy text to the clipboard
  Clipboard "I can copy to the Clipboard!"

'To read text from the clipboard:
  MsgBox Clipboard
 
End Sub