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
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.