View: - 355
<% 'Syntax: Sendmail(Reciver Email Address, Sender Name, Email Subject, Message) Function SendEmail(Receiver,Sender, strSubject, MessageBody) Const cdoSendUsingPickup = 1 Const cdoSendUsingPort = 2 'Must use this to use Delivery Notification Const cdoAnonymous = 0 Const cdoBasic = 1 ' clear text Const cdoNTLM = 2 'NTLM 'Delivery Status Notifications Const cdoDSNDefault = 0 'None Const cdoDSNNever = 1 'None Const cdoDSNFailure = 2 'Failure Const cdoDSNSuccess = 4 'Success Const cdoDSNDelay = 8 'Delay Const cdoDSNSuccessFailOrDelay = 14 'Success, failure or delay Dim objMsg Dim objConf Dim objFlds set objMsg = CreateObject("CDO.Message") set objConf = CreateObject("CDO.Configuration") Set objFlds = objConf.Fields With objFlds .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.mydomain.com" .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 .Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "USER_NAME" .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "PASSWORD" .Update End With With objMsg Set .Configuration = objConf .To = Receiver .From = Sender .Subject = strSubject .HtmlBody = MessageBody .Send End With set objMsg = Nothing set objConf = Nothing Set objFlds = Nothing End Function %>
