Multimedia Designs .NET

Email THIS URL (vs. Email previous URL)

Sub btnSendShare_Click(ByVal sender As Object, ByVal e As System.EventArgs)

        'Get the Emails,  Get the Name of the Person Sending the Recommendation:

         Dim FriendSendingEmail As String = txtSender.Text 

         Dim FriendReceivingEmail As String = txtFriendEmail.Text 

         Dim WebsiteMailer As String = "info@susanreed.net" 

      Dim URLtoShare as string = WhatPage


         Dim mail As New MailMessage() 


         mail.From = New MailAddress(WebsiteMailer) 

         mail.To.Add(FriendReceivingEmail) 

         mail.Subject = FriendSendingEmail + " would like to share this
    article with you." 


     'Tell the person their friend's name who recommended the site and wrap a 

     'link around the URL of the page they are on while sending this notice.

         mail.Body = FriendSendingEmail + " wants you to see this! "
    + "<a href='" + 

     CurrentURL + " ' >" + "CLICK HERE"   + "</a>"


          Dim smtp As New SmtpClient("127.0.0.1") 

                Try 

                     smtp.Send(mail) 

                     lblMsg.Text = "Referral
    sent to " + FriendReceivingEmail 

               Catch ex As Exception 

                     lblMsg.Text = "OPPS! Error sending
    the email." 

               End Try


    end sub