Ciao,
sto facendo un agent il LS per inoltrare le mail in arrivo ad un altro destinatario aggiungendo un testo nel subject e nel corpo della mail. OK, funziona... ma ho un problema con le mail con il testo formattato e /o con dentro immagini.
Come posso gestire la cosa? Come posso discriminare in anticipo e quindi trattare il concatenamento?
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim memo As NotesDocument
Dim doc As NotesDocument
Dim j As Integer
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
For j = 1 To collection.Count
Set memo = collection.GetNthDocument( j )
If Not( memo.SentByAgent ) Then
Set doc = New NotesDocument( db )
doc.Form = "Memo"
doc.Subject = "@NOV-ITA@ " & memo.Subject( 0 )
doc.Body = "@@ACCOUNT=Clienti_Italia@@ " & Chr(10) & memo.Body
doc.Principal = memo.from(0)
doc.InetFrom = memo.SMTPOriginator
doc.ReplyTo = memo.from(0)
doc.SendTo = "ugo@dominio.it"
doc.CopyTo = "pippo@gmail.com"
Call doc.Send( True )
End If
Call session.UpdateProcessedDoc( memo )
Next
End Sub
G a n i m e d e D i g n a n
http://newtoolbox.wordpress.com
|