sorry...hai ragione.....ho fatto un copia e incolla in velocità...
ecco la funzione "finale"

Public Function fInvioLotus(sOggetto As String, sIndirizzo As String) As Boolean
On Error GoTo err_fInvioLotus
Dim session As Object
Dim doc As Object
Dim rtf As Object
Dim db As Object

fInvioLotus = False
Set session = CreateObject("Notes.NotesSession")
Set db = session.GetDatabase("", "")
Call db.OPENMAIL
Set doc = db.CreateDocument
With doc
.Form = "Memo"
.SaveMessageOnSend = True
.SendTo = "xxxxx@xxxx.it"
.Subject = sOggetto
Set rtf = .CreateRichTextItem("Body")
Call rtf.AppendText("Con la presente si allega quanto in oggetto.")
Call rtf.AddNewLine(2)
Call rtf.AppendText("Distinti saluti.")
Call rtf.AddNewLine(3)
Call rtf.EmbedObject(1454, "", sIndirizzo, "Attachment")
.Send (False)
End With
Set rtf = Nothing
Set doc = Nothing
Set db = Nothing
Set session = Nothing

fInvioLotus = True
Exit Function

err_fInvioLotus:
fInvioLotus = False
MsgBox Err.Description
End Function



ciao ciao