NotesDocument.Size ti torna la dimensione (bytes) del documento
Se invece vuoi sapere la dimensione (bytes) di tutti gli allegati puoi fare un:
Dim dimensione As Long
dimensione = Clng(Join(Evaluate(|@Sum(@AttachmentLengths)|, docMemo)))
Di conseguenza per inoltrare la posta solo, ipotizzo, maggiore di 20 KB farai un:
If dimensione / 1024 > 20 Then
Call docMemo.Send(False)
End If
Ciao
Massimo Nadalin | Devangarde
|