Ciao Cyberflaz e grazie.
Mi spiego meglio: l\'agente dovrebbe inviare un\'email via client notes dal pc della persona. Questa email deve essere generata nel momento in cui in una cartella sotto c:\ cratella verrà copiato un file da allegare all\'email. A questo punto deve essere generata l\'email che deve contenere come allegato quel file e deve essere inviata automaticamente (senza il send dell\'utente) al destinatario che scriverò sempore via codice.
Io ho iniziato ad abbozzare una cosa così.. ma .....
Sub Initialize()
Dim S As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim num As Integer
Dim txt As String
Dim filenum As Integer
Dim fileName As String
Dim Destinatario As String
Dim docmail As NotesDocument
Dim rtitem As NotesRichTextItem
Dim obj As NotesEmbeddedObject
fileName = "destin.txt"
filenum = Freefile()
\'Open fileName For Input As filenum
Open "c:\destin.txt" For Input As filenum
Destinatario = Input$(43, filenum)
Close filenum
Set db=S.currentdatabase
Set docmail = New NotesDocument(db)
\'Set msg="Come da vostra richiesta vi inviamo vostra conferma d\'ordine"
docmail.form="Memo"
docmail.subject = "Conferma Ordine/Order Confirmation"
Set rtitem = docmail.CREATERICHTEXTITEM("Body")
\'Set obj = rtitem.EmbedObject(EMBED_ATTACHMENT,"",fileName)
Set obj=rtitem.Embedobject(embed_attachment,"","C:\destin.txt")
docmail.FaxAttachmentOnly="1"
Call docmail.Putinfolder ("c:\INVIATI", True)
docmail.Sender=Destinatario
\'Call memo.copyitem(msg,"Body")
Call docmail.send(False,Destinatario)
|