Hi,
the code below puts some data on the clipboard and generates an Email message (adress and subject generated by hyperlink)
Would it be possible to paste the clipboard's content into this Email's body
Pasting it manually works fine, but some vba code would complete the macro
Range("N4:U38").Select
Selection.Copy
Dim FindString As String
Dim rng As Range
FindString = Sheets("Externe bestelling").Range("O3").Value
If Trim(FindString) <> "" Then
With Sheets("Externe bestelling").Range("N:N")
Set rng = .Find(What:=FindString)
If Not rng Is Nothing Then
Application.Goto rng, True
Else
MsgBox "Nothing found"
End If
End With
End If
Selection.Hyperlinks(1).Follow NewWindow:=True, AddHistory:=True
What do I need to add to make this work
Kind regards
the code below puts some data on the clipboard and generates an Email message (adress and subject generated by hyperlink)
Would it be possible to paste the clipboard's content into this Email's body
Pasting it manually works fine, but some vba code would complete the macro
Range("N4:U38").Select
Selection.Copy
Dim FindString As String
Dim rng As Range
FindString = Sheets("Externe bestelling").Range("O3").Value
If Trim(FindString) <> "" Then
With Sheets("Externe bestelling").Range("N:N")
Set rng = .Find(What:=FindString)
If Not rng Is Nothing Then
Application.Goto rng, True
Else
MsgBox "Nothing found"
End If
End With
End If
Selection.Hyperlinks(1).Follow NewWindow:=True, AddHistory:=True
What do I need to add to make this work
Kind regards
