In Progress

MODIFICAR RUTINA SCRIPT VBSCRIPT

Necesito modificar una rutina de Vbscript en su parte final.

A continuacion la rutina y al final explico que es lo que necesito hacer en este 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("[url removed, login to view]")

[url removed, login to view] = "[%7]"

[url removed, login to view] = "[%1]"

[url removed, login to view] = "[%2]"

'[url removed, login to view] = "[%6]"

[url removed, login to view] = "[%6]"

'==This section provides the configuration information for the remote SMTP server.

[url removed, login to view] _

("[url removed, login to view]") = 2

'Name or IP of Remote SMTP Server

[url removed, login to view] _

("[url removed, login to view]") = "[%3]"

'Type of authentication, NONE, Basic (Base64 encoded), NTLM

[url removed, login to view] _

("[url removed, login to view]") = cdoBasic

'Your UserID on the SMTP server

[url removed, login to view] _

("[url removed, login to view]") = "[%4]"

'Your password on the SMTP server

[url removed, login to view] _

("[url removed, login to view]") = "[%5]"

'Use SSL for the connection (False or True)

if "[%8]" = "NO" Then

[url removed, login to view] _

("[url removed, login to view]") = False

'Server port (typically 25)

[url removed, login to view] _

("[url removed, login to view]") = 25

else

[url removed, login to view] _

("[url removed, login to view]") = True

'Server port 465

[url removed, login to view] _

("[url removed, login to view]") = 465

end if

'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)

[url removed, login to view] _

("[url removed, login to view]") = 60

If "[%9]" <> "" Then

[url removed, login to view] ("[%9]")

End If

[url removed, login to view]

'==End remote SMTP server configuration section==

On Error Resume Next

[url removed, login to view]

If [url removed, login to view] = 0 Then

msgbox "mail enviado satisfactoriamente ! ", vbInformation, " e-mail"

'Enviar_Mail_CDO = True

Else

MsgBox [url removed, login to view], 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 [url removed, login to view] y si hubo error al enviar me la guarde en un archivo que se lleme [url removed, login to view]

Beceriler: Visual Basic

Daha fazlasını gör: script resume, resume update service, o.n.e. network, ha com, err com, vbscript for, vbscript, vbscript com, timeout end message, microsoft mail server configuration, smtp ssl, basic send mail, smtp error authenticate, schemas, server set windows server 2013, vbscript windows service, smtp server configuration, authenticate vbscript, ssl smtp, authentication resume

İşveren Hakkında:
( 0 değerlendirme ) Argentina

Proje NO: #5207100

Bu iş için 1 freelancer ortalamada $25 teklif veriyor

cplaiasu

Hello, It's me again. This is your new account, I guess. We can discuss about your vb scrip now. Best Regards, Constantin Plaiasu

in %bids___i_period_sub_35% gün içinde25%project_currencyDetails_sign_sub_37% %project_currencyDetails_code_sub_38%
(1 Yorum)
1.1