FACIL MODIFICACION SCRIPT VBSCRIPT

Necesito realizar una modificacion en una rutina vbScrip basicamente es muy facil pero no se como hacerlo a continuacion muestro la rutina y al final explico cual es la modificacion y la inquietud del proyecto. Language=VBScript Param=[%1]|Text|From: Param=[%2]|Text|To: Param=[%3]|Text|SMTP Server: Param=[%4]|Text|User Name: Param=[%5]|Text|Password: Param=[%6]|Text|Message: Param=[%7]|Text|Subject Param=[%8]|Text|Use SSL ? ( YES / NO ) Param=[%9]|Text|Attachment {End} Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory. Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network). Const cdoAnonymous = 0 'Do not authenticate Const cdoBasic = 1 'basic (clear-text) authentication Const cdoNTLM = 2 'NTLM Set objMessage = CreateObject("[login to view URL]") [login to view URL] = "[%7]" [login to view URL] = "[%1]" [login to view URL] = "[%2]" '[login to view URL] = "[%6]" [login to view URL] = "[%6]" '==This section provides the configuration information for the remote SMTP server. [login to view URL] _ ("[login to view URL]") = 2 'Name or IP of Remote SMTP Server [login to view URL] _ ("[login to view URL]") = "[%3]" 'Type of authentication, NONE, Basic (Base64 encoded), NTLM [login to view URL] _ ("[login to view URL]") = cdoBasic 'Your UserID on the SMTP server [login to view URL] _ ("[login to view URL]") = "[%4]" 'Your password on the SMTP server [login to view URL] _ ("[login to view URL]") = "[%5]" 'Use SSL for the connection (False or True) if "[%8]" = "NO" Then [login to view URL] _ ("[login to view URL]") = False 'Server port (typically 25) [login to view URL] _ ("[login to view URL]") = 25 else [login to view URL] _ ("[login to view URL]") = True 'Server port 465 [login to view URL] _ ("[login to view URL]") = 465 end if 'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server) [login to view URL] _ ("[login to view URL]") = 60 If "[%9]" <> "" Then [login to view URL] ("[%9]") End If [login to view URL] '==End remote SMTP server configuration section== On Error Resume Next [login to view URL] If [login to view URL] = 0 Then msgbox "mail enviado satisfactoriamente ! ", vbInformation, " e-mail" 'Enviar_Mail_CDO = True Else MsgBox [login to view URL], vbCritical, " Error al enviar el mail " End If Set objMessage = Nothing Bien la modificacion que yo necesito es justo al final de la accion una vez que el correo ha sido enviado lo que hace actualmente es mostrar un cuadro de dialogo donde dice que fue enviado con exito o en su defecto que hubo un error... Lo que yo necesito es que no muestre ningun cartel, que el error lo guarde en una variable en el clipboard de windows donde yo la pueda tomar y a su vezque si el correo salio satisfactoriamente me guarde la direccion de correo enviada en un archivo llamado [login to view URL] y si hubo error al enviar me la guarde en un archivo que se lleme [login to view URL]