FiveTech Software tech support forums

Code: Select all | Expand

oCfg := CreateObject( "CDO.Configuration" )
      With Object oCfg:Fields
         :Item( cdoSMTPServer ):Value     := Trim( cMailServer )
         :Item( cdoSMTPServerPort ):Value := nPort
         :Item( cdoSendUsing ):Value      := nSendOpt
         If lAuth
            :Item( cdoSMTPAuthenticate ):Value := 1
            :Item( cdoSendUserName ):Value     := Trim( cUser )
            :Item( cdoSendPassword ):Value     := Trim( cPass )
            :Item( cdoSMTPUseSSL ):Value := 1
         EndIf
         :Update()
      End With
      oMsg := CreateObject( "CDO.Message" )
      With Object oMsg
         :Configuration := oCfg
         :From          := Trim( cFrom )
         :To            := Trim( cTo )
         :Subject       := Trim( cSubject )
         :TextBody      := Trim( cBody+ctex )
         For nEle := 1 To Len( aAttach )
            :AddAttachment := AllTrim( aAttach[ nEle ] )
         Next
         If ! Empty( cBCC )
            :BCC := Trim( cBCC )
         EndIf
         :Send()
      End With