fileFat =Dir(((Pro.PR_DirFile(0)) & "*.pdf"), 0)
Do While fileFat <> ""
fileNameSeq=path+fileFat
Set mail = db.CreateDocument
mail.form = "memo"
mail.subject = Pro.PR_Oggetto(0)
Set rtitem = New NotesRichTextItem( mail, "body" )
Call rtitem.appendtext(Cstr(Pro.PR_Testo(0)))
Call rtitem.AddNewLine(2)
Set object = rtitem.EmbedObject( EMBED_ATTACHMENT, "",fileNameSeq )
Set item=New NotesItem(mail,"SendTo","pippo@tin.it")
mail.Importance="1"
mail.DeliveryReport="C"
mail.ReturnReceipt="1"
Call mail.Send(False)
fileFat = Dir()
Loop
Grazie mille
Ciao
Marco
|