We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Sub newemail() Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.createitem(0) On Error Resume Next With OutMail .To = "firstname.lastname@example.org" .Subject = "File Review" .body = "Please review file located at: " & _ vbCrLf & "<file://" & ActiveWorkbook.FullName & ">" .display End With On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing End Sub
Sub CreateEmail() Dim rcp, hlink, msg, subj rcp = "email@example.com" subj = "Please review this file" msg = "Please review file located at: " & _ "%0A%0A" & "<file://" & ActiveWorkbook.FullName & ">" hlink = "mailto:" & rcp & "?" hlink = hlink & "subject=" & subj & "&" hlink = hlink & "body=" & msg ActiveWorkbook.FollowHyperlink (hlink) End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Sent items not appearing in correct folder||4||34|
|Outlook owa - How to add an email to an existing conversation||5||16|
|VBA - Why copy area and paste area arent the same size error?||3||46|
|Create a list of Worksheets based on Cell Value||14||14|
Join the community of 500,000 technology professionals and ask your questions.