FiveTech Support Forums

Func Main()

Local cSubject,cTo,cOther,cBody,cCC
Local oOutlook,oMailItem

cTo      := "twatson@doi.sc.gov"
cOther   := "watsonjt@mindspring.com"
cCC      := "r1.1955@live.com;watsonjt@mindspring.com"
cSubject := "Travel Train Request for Rick Lipkin, Dates 06/01/2020 thru 06/10/2020"
cBody    := "Dear Supervisor : John ( Tommy ) Watson;"+chr(10)
cBody    += "  "+chr(10)
cBody    += "  "+chr(10)
cBody    += "A Travel /  Train request has been submitted for your review and approval. Please click on the Link"+chr(10)
cBody    += "Provided below."+chr(10)
cBody    += " "+chr(10)
cBody    += "Summary of Request:"+chr(10)
cBody    += "  "+chr(10)
cBody    += "   *  Employee Name:     Rick Lipkin"+chr(10)
cBody    += "   *  Vendor Sponsor:    Microsoft"+chr(10)
cBody    += "   *  Conference/Event:  Building an Asure Network"+chr(10)
cBody    += "   *  Location:  Columbia SC"+chr(10)
cBody    += "   *  Start Date:  06/01/2020"+chr(10)
cBody    += "   *  End Date:  06/10/2020"+chr(10)
cBody    += "   *  Estimated Cost:  $500.00"+chr(10)
cBody    += "   *  Is This Associated with a Previously approved Designation? : No"+chr(10)
cBody    += "  "+chr(10)
cBody    += "  "+chr(10)
* cBody    += "file://printserver/scid/0000%20Human%20Resources/Master%20Leave%20Program/%20LeaveW32.Exe"
cBody    += "  "+chr(10)
cBody    += "  "+chr(10)
cBody    += "  "+chr(10)
cBody    += "  "+chr(10)
cBody    += "  "+chr(10)
cBody    += "  "+chr(10)
cBody    += "Note .. This is an automated e-mail sent from the Leave / Travel Program"+chr(10)
cBody    += "  "+chr(10)


oOutLook  := TOleAuto():New("Outlook.Application")   // works with Classic not Outlook 365
oMailItem := oOutLook:Invoke("CreateItem", 0)

oMailitem:to := cTo
*oMailItem:Recipients:Add( cOther )
oMailitem:CC := cCC
oMailItem:Subject := cSubject
oMailItem:Body := cBody

*if ! empty(cPdf)
* oMailItem:Attachments:Add(cPdf)
*endif

oMailItem:display(.F.)
oMailItem:Invoke("Send")
sysrefresh()

msginfo( "E-mail Sent" )

return .T.

#include "c:\harbour\contrib\hbcurl\hbcurl.ch"
#define HB_CURLOPT_POST                      47
#define HB_CURLOPT_URL                        2
#define HB_CURLOPT_DL_BUFF_SETUP              1008
#define HB_CURLOPT_POSTFIELDS                 15
#define HB_CURLOPT_WRITEFUNCTION              11

FUNCTION Main()
    LOCAL cToken, cResult
 cToken := GetAccessToken()
  IF !EMPTY(cToken)
  cResult := SendEmail(cToken)
    ?"Email Send Result: ", cResult
  ELSE
    ? "Failed to retrieve access token."
  ENDIF
 

   

FUNCTION GetAccessToken()
    LOCAL hCurl := CURL_easy_init()
    LOCAL cPayload := ""
    LOCAL cToken := ""
    LOCAL cTest := ""
    LOCAL nStartPos, nEndPos
    LOCAL aHeaders := {"Content-Type: application/x-www-form-urlencoded"}
    LOCAL cTenantID := hb_GetEnv("TENANT_ID")
    LOCAL cClientId := hb_GetEnv("365client_id")
    LOCAL cClientSecret := hb_GetEnv("365client_secret")
    IF hCurl != NIL
        CURL_easy_setopt(hCurl, HB_CURLOPT_URL, "https://login.microsoftonline.com/"+cTenantID+"/oauth2/v2.0/token")
        CURL_easy_setopt(hCurl, HB_CURLOPT_HTTPHEADER, aHeaders)
        CURL_easy_setopt(hCurl, HB_CURLOPT_POSTFIELDS, "grant_type=client_credentials&client_id="+cClientId+"&client_secret="+cClientSecret+"&scope=https://graph.microsoft.com/.default")
        CURL_easy_setopt(hCurl, HB_CURLOPT_POST, .T.)
        curl_easy_setopt( hCurl, HB_CURLOPT_DL_BUFF_SETUP )
        CURL_easy_setopt(hCurl, HB_CURLOPT_WRITEFUNCTION, @cPayload) // Buffer the response
       

   
    CURL_easy_perform(hCurl)
    cPayload := curl_easy_dl_buff_get(hCurl) // Get the response from the buffer
    nStartPos := AT('"access_token":"',cPayload)+LEN('"access_token":"')
    nEndPos := hb_AT('"', cPayload, nStartPos)
    cToken := SUBSTR(cPayload, nStartPos, nEndPos - nStartPos)
 

    CURL_easy_cleanup(hCurl)

   
ELSE
    ? "Failed to initialize cURL session."
ENDIF

RETURN cToken


FUNCTION SendEmail(cToken)
    LOCAL hCurl := CURL_easy_init()
    LOCAL cEmailJson
    LOCAL cResponse := ""
    LOCAL aHeaders := {}
    LOCAL cImgBase64 := ""

cImgBase64 := hb_base64Encode(hb_MemoRead("c:\www\htdocs\submarine_yellow\img\latest_news2.jpg"))
? "cImgBase64", cImgBase64
        cEmailJson := '{"message": {"subject": "Test base64", ';
        + '"body": {"contentType": "html", ';
        + '"content": "<h1>test</h1><p>The new cafeteria is open...</p>';
        + '<img src=\"data:image/jpeg;base64,' + cImgBase64 + '\" > ';
        + '"}, ';
        + '"toRecipients": [{"emailAddress": {"address": "testrecip@****.info"}}]}, ';
        + '"saveToSentItems": "true"}'
       

    IF hCurl != NIL

        AADD(aHeaders, "Authorization: Bearer " + cToken)
        AADD(aHeaders, "Content-Type: application/json")


        CURL_easy_setopt(hCurl, HB_CURLOPT_URL, "https://graph.microsoft.com/v1.0/users/test@*****.at/sendMail")
        CURL_easy_setopt(hCurl, HB_CURLOPT_HTTPHEADER, aHeaders)
        CURL_easy_setopt(hCurl, HB_CURLOPT_POSTFIELDS, cEmailJson)
        CURL_easy_setopt(hCurl, HB_CURLOPT_POST, .T.)
        CURL_easy_setopt(hCurl, HB_CURLOPT_WRITEFUNCTION, @cResponse) // Buffer the response
   
        CURL_easy_perform(hCurl)
        cResponse := curl_easy_dl_buff_get(hCurl) // Get the response from the buffer
        CURL_easy_cleanup(hCurl)
        ? "response", cResponse
    ELSE
        cResponse := "Failed to initialize cURL session."
    ENDIF
   
    RETURN cResponse

FUNCTION SendSmtpDesatendido( cDe, cPara, cAsunto, cCuerpo, cPassword )
   LOCAL oCfg, oMsg
   LOCAL cSchema := "http://schemas.microsoft.com/cdo/configuration/"

   TRY
      oMsg := CreateObject("CDO.Message")
      oCfg := CreateObject("CDO.Configuration")

  // Configuración del Servidor SMTP de Office 365
  oCfg:Fields:Item( cSchema + "sendusing"      ):Value := 2 // cdoSendUsingPort
  oCfg:Fields:Item( cSchema + "smtpserver"     ):Value := "smtp.office365.com"
  oCfg:Fields:Item( cSchema + "smtpserverport" ):Value := 587
  oCfg:Fields:Item( cSchema + "smtpusessl"     ):Value := .T.
  oCfg:Fields:Item( cSchema + "smtpauthenticate" ):Value := 1 // cdoBasic
  oCfg:Fields:Item( cSchema + "sendusername"   ):Value := cDe
  oCfg:Fields:Item( cSchema + "sendpassword"   ):Value := cPassword
  oCfg:Fields:Update()

  oMsg:Configuration := oCfg
  oMsg:From    := cDe
  oMsg:To      := cPara
  oMsg:Subject := cAsunto
  oMsg:TextBody := cCuerpo

  oMsg:Send()
  ? "Correo enviado correctamente por SMTP (Desatendido)"

   CATCH oErr
      ? "Error al enviar: " + oErr:Description
   END
RETURN NIL

FUNCTION GetAccessToken()
    LOCAL hCurl := CURL_easy_init()
    LOCAL cPayload := ""
    LOCAL cToken := ""
    LOCAL cTest := ""
    LOCAL nStartPos, nEndPos
    LOCAL aHeaders := {"Content-Type: application/x-www-form-urlencoded"}
    LOCAL cTenantID := hb_GetEnv("TENANT_ID")
    LOCAL cClientId := hb_GetEnv("365client_id")
    LOCAL cClientSecret := hb_GetEnv("365client_secret")
    IF hCurl != NIL
        CURL_easy_setopt(hCurl, HB_CURLOPT_URL, "https://login.microsoftonline.com/"+cTenantID+"/oauth2/v2.0/token")
        CURL_easy_setopt(hCurl, HB_CURLOPT_HTTPHEADER, aHeaders)
        CURL_easy_setopt(hCurl, HB_CURLOPT_POSTFIELDS, "grant_type=client_credentials&client_id="+cClientId+"&client_secret="+cClientSecret+"&scope=https://graph.microsoft.com/.default")
        CURL_easy_setopt(hCurl, HB_CURLOPT_POST, .T.)
        curl_easy_setopt( hCurl, HB_CURLOPT_DL_BUFF_SETUP )
        CURL_easy_setopt(hCurl, HB_CURLOPT_WRITEFUNCTION, @cPayload) // Buffer the response
       

   

CURL_easy_perform(hCurl)
cPayload := curl_easy_dl_buff_get(hCurl) // Get the response from the buffer
nStartPos := AT('"access_token":"',cPayload)+LEN('"access_token":"')
nEndPos := hb_AT('"', cPayload, nStartPos)
cToken := SUBSTR(cPayload, nStartPos, nEndPos - nStartPos)
 

CURL_easy_cleanup(hCurl)

   
ELSE
    ? "Failed to initialize cURL session."
ENDIF

RETURN cToken

/fivewin/samples/outlook/testoutlook.prg