Hyperlinks into email subject (or body)

[lcartwright]

Currently i have the coding to email out okay. What i am after is a way to attach the hyperlink that has been added in the second column:

Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Sub SendEMail()
    Dim Email As String, Subj As String
    Dim Msg As String, URL As String
    Email = Cells(ActiveCell.Row, 7)
        
    Subj = Cells(ActiveCell.Row, 4) & " " & Cells(ActiveCell.Row, 2)

    Msg = ""
    Msg = Msg & "Dear " & Cells(ActiveCell.Row, 3) & "," & vbCrLf & vbCrLf & "This is a reminder that an incident report review/upate is required " & vbCrLf & vbCrLf & Cells(ActiveCell.Row, 8) & vbCrLf & vbCrLf & " If the above has been completed, please inform Admin so the details can be updated. Thank you. "
    
    'Replace spaces with %20 (hex)
    Subj = Application.WorksheetFunction.Substitute(Subj, " ", "%20")
    Msg = Application.WorksheetFunction.Substitute(Msg, " ", "%20")
    
    'Replace carriage returns with %0D%0A (hex)
    Msg = Application.WorksheetFunction.Substitute(Msg, vbCrLf, "%0D%0A")
    
    'Create the URL
    URL = "mailto:" & Email & "?subject=" & Subj & "&body=" & Msg
    
    'Execute the URL (start the email client)
    ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus
    
    'Wait two seconds before sending keystrokes
    'Application.Wait (Now + TimeValue("0:00:02"))
    'Application.SendKeys "%s"
End Sub

Where highlighted Red in the subject line - i would like it to add the cell reference as a link not just the text.

[Leith Ross]

Hello lcartwright,

Unless I miss my guess, you are using Outlook Express. Hyperlinks can not be included in plain text messages. You would have send the message in HTML. Is there some reason you are not using Outlook?

[lcartwright]

I am using Microsoft Outlook 2007 - sorry should have mentioned earlier

[Leith Ross]

Hello lcartwright,


I have searched my macro files for how to send a hyperlink in the email but can not find it. Can you post a copy the workbook you are using so I can recreate the macro?

Please redact any sensitive or confidential information before you upload the workbook.

How To Post Your Workbook

1. At the bottom right of the Reply window, Click the button Go Advanced
2. At the top of the Your Message Window, in the first row of icons, Click the Paperclip icon.
3. Click the Add Files button at the top right in the dialog box. This displays the File Manager dialog.
4. Click the Select Files button at the bottom middle of the dialog.
5. In the new window Find the file you want to upload, select it, and Click Open.
6. You will now be back in the File Manager dialog. Click the bottom Middle button Upload File.
7. Wait until the file has completely uploaded before you exit the File Manager dialog.

[lcartwright]

Incident Report Log.zip

Hope that works...