Note that there are some explanatory texts on larger screens.

plurals
  1. PO
    text
    copied!<p>Use Microsoft NTLM (<a href="http://msdn.microsoft.com/en-us/library/aa378749%28v=vs.85%29.aspx" rel="nofollow">http://msdn.microsoft.com/en-us/library/aa378749(v=vs.85).aspx</a>) In CDO it's a CdoProtocolsAuthentication Enum (<a href="http://msdn.microsoft.com/en-us/library/ms526961%28v=exchg.10%29.aspx" rel="nofollow">http://msdn.microsoft.com/en-us/library/ms526961(v=exchg.10).aspx</a>)</p> <pre><code>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 dim objEmail Set objEmail = CreateObject("CDO.Message") objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing")= cdoSendUsingPort 'Name or IP of remote SMTP server objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="exchange" 'Server port objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =25 objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpAuthenticate") = cdoNTLM objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/NNTPAccountName") = "USERNAME" objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/SaveSentItems") = TRUE objEmail.Configuration.Fields.Update objEmail.From = "FROM &lt;FROM@domain.com&gt;" objEmail.To = "TO@domain.com" objEmail.Subject = "SUBJECT" objEmail.Textbody = "BODY " objEmail.Send </code></pre>
 

Querying!

 
Guidance

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload