Database Search

TechHome

• Simple EWS Email Message

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Simple EWS Email Message

 Keywords:  EWS Microsoft.Exchange.WebServices Microsoft.Exchange.WebServices.Data.ExchangeService Send Email E-Mail Exchange Web Services

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Purpose: Send Email Message using Exchange Web Services (EWS)
;;
;; Requiresments:
;;       WinBatch 2013A and newer.
;;       Must be executed by a domain user on a domain computer.
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

cDLL   = ;;; Set to location of the file Microsoft.Exchange.WebServices.dll.
         ;;; <'C:\Program Files (x86)\Microsoft\Exchange\Web Services\2'>.
cEmail = ;;; Sender email address < guesswho@somedomain.com >.
cPwd   = ;;; Sender's password < '*topsecret*' >.
cRecp  = ;;; Send to email address < 'destination@something.com' >.
ObjectClrOption('appbase', cDLL)
ObjectClrOption('useany', 'Microsoft.Exchange.WebServices')
oEws = ObjectClrNew('Microsoft.Exchange.WebServices.Data.ExchangeService')

oEws.Credentials = ObjectClrNew('Microsoft.Exchange.WebServices.Data.WebCredentials', cEmail, cPwd)
oEws.AutodiscoverUrl(cEmail)
oMessage = ObjectClrNew('Microsoft.Exchange.WebServices.Data.EmailMessage', oEws)
oMessage.Subject = 'Test Message'
oBody = ObjectClrNew('Microsoft.Exchange.WebServices.Data.MessageBody')
oBody.Text = 'This message is being sent through EWS with WinBatch CLR hosting'
oMessage.Body = oBody

oMessage.ToRecipients.Add(cRecp)
oMessage.SendAndSaveCopy()

Article ID:   W18531

Filename:   Simple EWS Email Message.txt

File Created: 2017:12:06:20:39:42

Last Updated: 2017:12:06:20:39:42