Go

Forward an Email using CreateForward

See more Email Object Examples

Reads an email from an IMAP server, creates a forward version of the email using the CreateForward method, and sends the email to another recipient. Go

    success := false

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

    // Read the 1st (most recent) email in an Inbox.
    imap := chilkat.NewImap()

    // Connect to an IMAP server.
    imap.SetSsl(true)
    imap.SetPort(993)
    success = imap.Connect("imap.example.com")
    if success == false {
        fmt.Println(imap.LastErrorText())
        imap.DisposeImap()
        return
    }

    // Login
    success = imap.Login("myLogin","myPassword")
    if success == false {
        fmt.Println(imap.LastErrorText())
        imap.DisposeImap()
        return
    }

    // Select an IMAP mailbox
    success = imap.SelectMailbox("Inbox")
    if success == false {
        fmt.Println(imap.LastErrorText())
        imap.DisposeImap()
        return
    }

    numEmails := imap.NumMessages()

    // Fetch the email at the last sequence number.
    // (We are assuming the Inbox has at least 1 email)

    email := chilkat.NewEmail()
    success = imap.FetchEmail(false,numEmails,false,email)
    if success == false {
        fmt.Println(imap.LastErrorText())
        imap.DisposeImap()
        email.DisposeEmail()
        return
    }

    // Disconnect from the IMAP server.
    imap.Disconnect()

    fmt.Println(email.Subject())

    eForward := chilkat.NewEmail()
    success = email.ToForward(eForward)
    if success == false {
        fmt.Println(email.LastErrorText())
        imap.DisposeImap()
        email.DisposeEmail()
        eForward.DisposeEmail()
        return
    }

    // The eForward email has no To or CC recipients yet.
    // Add one or more..
    eForward.AddTo("Joe","joe@example.com")

    // We also need to specify the From name/address.
    eForward.SetFromAddress("matt@someMailServer.com")
    eForward.SetFromName("Matt")

    // If we wish to add text at the start of the email body:
    sbHtmlBody := chilkat.NewStringBuilder()
    if eForward.HasHtmlBody() == true {
        sbHtmlBody.Append(*eForward.GetHtmlBody())
        sbHtmlBody.Prepend("<p>Hello, this is an email I'm forwarding to you...</p>")
        eForward.SetHtmlBody(*sbHtmlBody.GetAsString())
    }

    sbPtBody := chilkat.NewStringBuilder()
    if eForward.HasPlainTextBody() == true {
        sbPtBody.Append(*eForward.GetPlainTextBody())
        sbPtBody.Prepend("Hello, this is an email I'm forwarding to you...\r\n\r\n")
        eForward.SetTextBody(*sbPtBody.GetAsString(),"text/plain")
    }

    // We could save the .eml, then double-click on it to view in our mail program, such as Outlook or Thunderbird..
    eForward.SaveEml("qa_output/forward.eml")

    // We could send (forward) the email..
    mailman := chilkat.NewMailMan()

    mailman.SetSmtpHost("smtp.example.com")
    mailman.SetSmtpUsername("myLogin")
    mailman.SetSmtpPassword("myPassword")
    mailman.SetSmtpPort(587)
    mailman.SetStartTLS(true)

    success = mailman.SendEmail(eForward)
    if success == false {
        fmt.Println(mailman.LastErrorText())
        imap.DisposeImap()
        email.DisposeEmail()
        eForward.DisposeEmail()
        sbHtmlBody.DisposeStringBuilder()
        sbPtBody.DisposeStringBuilder()
        mailman.DisposeMailMan()
        return
    }

    success = mailman.CloseSmtpConnection()
    if success != true {
        fmt.Println("Connection to SMTP server not closed cleanly.")
    }

    fmt.Println("Mail Sent!")

    imap.DisposeImap()
    email.DisposeEmail()
    eForward.DisposeEmail()
    sbHtmlBody.DisposeStringBuilder()
    sbPtBody.DisposeStringBuilder()
    mailman.DisposeMailMan()