Go

Create DSN (Delivery Status Notification) Email

See more Email Object Examples

Demonstrates how to create a DSN (Delivery Status Notification) Email having the format as defined in RFC 3464. Go

    success := false

    email := chilkat.NewEmail()

    email.SetSubject("Test")
    email.SetFrom("joe@example.com")
    email.SetBody("This is a test")
    email.AddTo("","recipient@example.com")

    fmt.Println(*email.GetMime())
    fmt.Println("")
    fmt.Println("-------------------------------------------------------------")
    fmt.Println("")

    // This is the email we just created:

    // MIME-Version: 1.0
    // Date: Mon, 12 May 2025 11:13:15 -0500
    // Message-ID: <917FA49F75544EF51948B0A52F403B925B51073F@SLICE>
    // Content-Type: text/plain; charset=us-ascii; format=flowed
    // Content-Transfer-Encoding: 7bit
    // X-Priority: 3 (Normal)
    // Subject: Test
    // From: joe@example.com
    // To: recipient@example.com
    // 
    // This is a test

    // -----------------------------------------------------------------
    // Convert the above email into a DSN (Delivery Status Notification)

    xml := chilkat.NewXml()
    xml.SetTag("DeliveryStatusFields")
    xml.NewChild2("Final-Recipient","rfc822; recipient@example.com")
    xml.NewChild2("Action","failed")
    xml.NewChild2("Status","5.1.2")
    xml.NewChild2("Diagnostic-Code","smtp; 550 5.1.2 Host unknown (Domain name not found)")
    dtNow := chilkat.NewCkDateTime()
    dtNow.SetFromCurrentSystemTime()
    xml.NewChild2("Last-Attempt-Date",*dtNow.GetAsRfc822(true))

    headerOnly := true
    sbText := chilkat.NewStringBuilder()
    sbText.Append("This is an automatically generated Delivery Status Notification.\r\n\r\n")
    sbText.Append("Delivery to the following recipient failed permanently:\r\n\r\n")
    sbText.Append("    recipient@example.com\r\n\r\n")
    sbText.Append("Technical details of permanent failure:\r\n")
    sbText.Append("DNS Error: Domain name not found\r\n")

    explain := sbText.GetAsString()

    dsnEmail := chilkat.NewEmail()
    success = email.ToDsn(*explain,*xml.GetXml(),headerOnly,dsnEmail)
    if success == false {
        fmt.Println(email.LastErrorText())
        email.DisposeEmail()
        xml.DisposeXml()
        dtNow.DisposeCkDateTime()
        sbText.DisposeStringBuilder()
        dsnEmail.DisposeEmail()
        return
    }

    fmt.Println(*dsnEmail.GetMime())

    // Here's the MIME of the DNS email we just created:
    // -------------------------------------------------

    // Content-Type: multipart/report; report-type="delivery-status"; boundary="------------060100020300020303000802"
    // 
    // --------------060100020300020303000802
    // Content-Type: text/plain; charset=windows-1252; format=flowed
    // Content-Transfer-Encoding: 7bit
    // 
    // This is an automatically generated Delivery Status Notification.
    // 
    // Delivery to the following recipient failed permanently:
    // 
    //     recipient@example.com
    // 
    // Technical details of permanent failure:
    // DNS Error: Domain name not found
    // 
    // --------------060100020300020303000802
    // Content-Type: message/delivery-status
    // 
    // Final-Recipient: rfc822; recipient@example.com
    // Action: failed
    // Status: 5.1.2
    // Diagnostic-Code: smtp; 550 5.1.2 Host unknown (Domain name not found)
    // Last-Attempt-Date: Mon, 12 May 2025 11:30:39 -0500
    // 
    // --------------060100020300020303000802
    // Content-Type: text/rfc822-headers; charset=windows-1252
    // 
    // MIME-Version: 1.0
    // Date: Mon, 12 May 2025 11:30:39 -0500
    // Message-ID: <B8E6875D582A78AE779FC0B46ACC8C858CEAF608@SLICE>
    // Content-Type: text/plain; charset=us-ascii; format=flowed
    // Content-Transfer-Encoding: 7bit
    // X-Priority: 3 (Normal)
    // Subject: Test
    // From: joe@example.com
    // To: recipient@example.com
    // --------------060100020300020303000802--

    email.DisposeEmail()
    xml.DisposeXml()
    dtNow.DisposeCkDateTime()
    sbText.DisposeStringBuilder()
    dsnEmail.DisposeEmail()