Sub InviaMailDdt(NomeFile As String, PercFile As String, Oggetto As String)
Dim MS As New MAPISession
Dim MM As New MAPIMessages 
<FONT color=yellowgreen>   'apre comunque una nuova sessione di messaggi</FONT>
    MS.NewSession = True
<FONT color=yellowgreen>   'non effettua il download dei nuovi messaggi dal server</FONT>
    MS.DownLoadMail = False   
    MS.SignOn    
   MM.SessionID = MS.SessionID
<FONT color=yellowgreen>   'composizione del messaggio</FONT>
    MM.Compose
    MM.RecipIndex = 0
    MM.RecipAddress = <A href="mailto:mail@dominio.com">mail<A href="mailto:mail@dominio.com">@dominio.com</A></A>
    MM.MsgSubject = Oggetto
    MM.AttachmentName = NomeFile
    MM.AttachmentPathName = PercFile
    MM.Send False
    MS.SignOffEnd Sub