Excel - email macro help

Hey All,

I have the following macro code

Sub Button1_Click()

Dim EMail As Object
Dim Link As String

Link = "<web/file link here>" 'Filepath
Set EMail = CreateObject("Outlook.Application") 'Assign Outlook application to variable
With EMail.CreateItem(olMailItem)
.To = "<email address> 'email address
.subject = "Update" 'Something for the subject Field
.Body = Link
.Send
End With
Set EMail = Nothing ' release memory

End Sub

As you can see from the code, you click the button and will send the link via email.

In the code above what do i need to remove/add to stop the email from sending automatically? and actually open instead of sending straight away

Please be kind and patient as this isn’t really my area of knowledge and I am quite new to programming

Cheers

Rich

[1506 byte] By [Randall155] at [2007-12-25]