Sub SendEmail (mail,file) 'set port Const cdoSendUsingPort = 2 Set objCDOMail = CreateObject("CDO.Message") Set objConf = CreateObject("CDO.Configuration") objConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort objConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "198.186.1.41" 'server IP objConf.Fields.Update Set objCDOMail.configuration = objConf objCDOMail.To = mail objCDOMail.From = "test@mail" 'from mail objCDOMail.Subject = "QV mail" strHTML = "QV mail test" 'body objCDOMail.HTMLBody = strHTML 'attached a file: rem ** let QV sleep for 0,5 seconds ** ActiveDocument.GetApplication.Sleep 7500 objCDOMail.AddAttachment file rem ** let QV sleep for 5 seconds ** ActiveDocument.GetApplication.Sleep 7500 objCDOMail.Send Set objCDOMail = Nothing Set objConf = Nothing end sub