E-Mail per Lotus Notes

ich habe hier einen Code aus dem Forum, um eine Mail mit Outlook zu versenden.

Sub mailversenden()
Dim outl As Object
Dim mail As Object
Set outl = CreateObject("outlook.Application")
Set mail = outl.createitem(0)
With mail
.Display
.Subject = "hallo"
.To = "Alex25_@Web.de"
Sheets("Tabelle1").Activate
ActiveSheet.UsedRange.Copy
.Body = "hier die gewünschte tabelle"
SendKeys "{Tab 3}^{End}~~^v"
.Send
End With
End Sub

Wie kann ich per Makro mit Lotus Notes eine Mail versenden???

Danke im Vorraus,

Alex