Actually, looking for 4 separate stages of work --
(1) make a comma-separated list of all the email addresses (To, Cc, Bcc.) from an email currently being written
(2) take the entire first line of the message body (starting at character X)
(3) Craft a URL that includes prewritten URL plus (1) and (2)
(4) Opens default browser to that URL
Public Sub Draft_Email()
'see Copy and Paste in VBA for reference to Microsoft Forms 2.0
Dim DraftEmail As Outlook.mailitem
Dim ToStr As String
Dim MyClip As DataObject
Set DraftEmail = Application.ActiveInspector.CurrentItem
With DraftEmail
ToStr = .To
End With
Set MyClip = New DataObject
MyClip.SetText ToStr
MyClip.PutInClipboard
Set DraftEmail = Nothing
End Sub