(DataFlex) Send Email with hotmail.com, live.com, or outlook.com

See more SMTP Examples

Send email using your Microsoft hotmail.com, live.com, or outlook.com account via the smtp.office365.com SMTP server.

See the Guide for Creating an Application to Send Email from Hotmail.com, Live.com, or Outlook.com

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoMailman
    Handle hoJson
    Boolean iSuccess
    Variant vEmail
    Handle hoEmail
    String sTemp1
    Integer iTemp1

    // This example requires the Chilkat API to have been previously unlocked.
    // See Global Unlock Sample for sample code.

    Get Create (RefClass(cComChilkatMailMan)) To hoMailman
    If (Not(IsComObjectCreated(hoMailman))) Begin
        Send CreateComObject of hoMailman
    End

    Set ComSmtpHost Of hoMailman To "smtp.office365.com"
    Set ComSmtpPort Of hoMailman To 587
    Set ComStartTLS Of hoMailman To True

    // This could be your hotmail.com, live.com, or outlook.com account.
    Set ComSmtpUsername Of hoMailman To "yourName@live.com"

    // Load the previously saved OAuth2 access token.
    Get Create (RefClass(cComChilkatJsonObject)) To hoJson
    If (Not(IsComObjectCreated(hoJson))) Begin
        Send CreateComObject of hoJson
    End
    Get ComLoadFile Of hoJson "qa_data/tokens/hotmail.json" To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoJson To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComStringOf Of hoJson "access_token" To sTemp1
    Set ComOAuth2AccessToken Of hoMailman To sTemp1

    Get Create (RefClass(cComChilkatEmail)) To hoEmail
    If (Not(IsComObjectCreated(hoEmail))) Begin
        Send CreateComObject of hoEmail
    End

    // Note: If you send an email such as this, it can easily go to your Junk or Trash email folders.
    Set ComSubject Of hoEmail To "This is a test"
    Set ComBody Of hoEmail To "This is a test"
    // This could be your hotmail.com, live.com, or outlook.com account.
    Set ComFrom Of hoEmail To "My Hotmail Account <yourName@live.com>"
    Get ComAddTo Of hoEmail "Joe Example" "joe@example.com" To iSuccess

    Get ComOpenSmtpConnection Of hoMailman To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoMailman To sTemp1
        Showln sTemp1
        Get ComConnectFailReason Of hoMailman To iTemp1
        Showln "ConnectFailReason = " iTemp1
        Procedure_Return
    End

    Get ComSmtpAuthenticate Of hoMailman To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoMailman To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get pvComObject of hoEmail to vEmail
    Get ComSendEmail Of hoMailman vEmail To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoMailman To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComCloseSmtpConnection Of hoMailman To iSuccess

    Showln "Email Sent."


End_Procedure