#Fields: date-time,connector-id,session-id,sequence-number,local-endpoint,remote-endpoint,event,data,context Clear () Else resultMessage = "Message sent ok" End If Wscript. Send () ' Return status message If Err Then resultMessage = "ERROR " & Err.
#550 5.7 1 unable to relay exchange 2010 password
Fields ( schema & "sendpassword" ) = "sn1000!" 'sender password oConf. Fields ( schema & "sendusername" ) = "shipmentnotification" 'sender username oConf.
Fields ( schema & "smtpusessl" ) = False 'use SSL encryption oConf. Fields ( schema & "smtpauthenticate" ) = cdoBasic 'authentication type oConf. Fields ( schema & "sendusing" ) = cdoSendUsingPort oConf. Fields ( schema & "smtpserverport" ) = 25 'port number oConf. Fields ( schema & "smtpserver" ) = "exchange server IP" 'server address oConf. TextBody = "If you can read this, it worked!" ' GMail SMTP server configuration and authentication info Set oConf = oMsg. VB.net on error resume next Const schema = "" Const cdoBasic = 1 Const cdoSendUsingPort = 2 Dim oMsg, oConf ' E-mail properties Set oMsg = CreateObject ( "CDO.Message" ) oMsg.
0 kommentar(er)
