Macro for sending email via Lotus Notes

[nova110488]

I am looking to set up a macro in excel in order to send a selected range in an email via Lotus Notes 8.5. If anyone has an idea how to set up this it would be greatly appreciated. This is being set up as a way to record problems across a large department while sending each entry through to IT in order to get it resolved.

I intend on sending the range "A2:G2" in worksheet "record" as a copied range through to Lotus Notes 8.5 in a new email, filling in to/cc/subject lines and pasting the range from Excel in body of email. Send email and then return to excel to continue the macro:

Sub Copy()
'
' Copy Macro
'
'
    Range("B2:G2").Select
    Selection.Copy
    Sheets("Log").Select
    Range("B1").End(xlDown).Offset(1, 0).Select
    ActiveSheet.Paste
    Sheets("Data").Select
    Range("F2").Select
    Selection.Copy
    Sheets("Log").Select
    Range("A1").End(xlDown).Offset(1, 0).Select
    ActiveSheet.Paste
    Sheets("Record").Select
    Range("B2:G2").Select
    Selection.Value = Blank
    Range("B2").Select
End Sub

 

[VoG]

This may help you http://www.rondebruin.nl/notes.htm