Macro to email data range using Lotus Notes 7

Hi everyone,

I am new to macros but was able to create a macro to automatically generate an email with a specific range of data using excel and microsoft outlook. My company recently switched to Lotus Notes and I am having trouble finding a macro that will do the same thing using Lotus instead of outlook. Here is the code we are currently using and I need to find a way to make it work using Lotus quickly. Any help would be great!

Sub Hour2()
'
' Hour2 Macro
' Macro recorded 10/30/2007 by The Signal
'

'
Application.ScreenUpdating = False
Sheets("Hourly ASA Calculator").Select
Range("B41:E64").Select
Application.CutCopyMode = False
Selection.Copy

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.To = "*DL Hourly ASA"
.CC = ""
.BCC = ""
.subject = "ASA Hourly Stats" & Format(Now, " [$-F800]dddd, mmmm dd, yyyy")
.HTMLBody = RangetoHTMLSnapshot
.Display
End With
Range("L42:O42").Select
Selection.Copy
Sheets("Hourly Breakdown").Select
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Hourly ASA Calculator").Select
Range("L43:O43").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Hourly Breakdown").Select
Range("H4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Hourly ASA Calculator").Select
Range("L44:O44").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Hourly Breakdown").Select
Range("N4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Hourly ASA Calculator").Select
Range("L45:O45").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Hourly Breakdown").Select
Range("T4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Sheets("Hourly ASA Calculator").Select
ActiveSheet.Shapes("Button 5").Select
Application.CutCopyMode = False
Selection.Characters.Text = "Done"
With Selection.Characters(Start:=1, Length:=4).Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic

End With
Range("D4").Select
End Sub

Welcome to the forum!

Adapt your code using something like:
http://www.excelforum.com/excel-prog...tus-notes.html
or if you need to make any links active:
http://www.mrexcel.com/forum/showthread.php?t=368352