Being able to view related messages as threads is really useful. To make this possible, messages must use either the In-Reply-To or References header field to link to the Message-ID from another message.
This is now possible in {emayili}.
library(emayili)
options(envelope.details = TRUE)
options(envelope.invisible = FALSE)
packageVersion("emayili")
[1] '0.6.3'
Let’s configure an SMTP server.
smtp <- server(
host = Sys.getenv("SMTP_SERVER"),
port = Sys.getenv("SMTP_PORT"),
username = Sys.getenv("SMTP_USERNAME"),
password = Sys.getenv("SMTP_PASSWORD")
)
Now create and send a message to start the thread.
msg <- envelope(
from = Sys.getenv("SMTP_USERNAME"),
to = Sys.getenv("SMTP_USERNAME")
)
msg %>%
subject("Original message") %>%
smtp()
When the message is delivered you can find the value of the Message-ID field among the other headers.
Message-ID: <616d054d.1c69fb81.22f81.bf38@mx.google.com>
Date: Sun, 17 Oct 2021 22:25:33 -0700 (PDT)
X-Google-Original-Date: Mon, 18 Oct 2021 05:25:32 GMT
X-Mailer: {emayili}-0.6.5
MIME-Version: 1.0
Subject: Original message
This can then be used to send a response in the same thread.
msg %>%
inreplyto("<616d054d.1c69fb81.22f81.bf38@mx.google.com>") %>%
subject("First reply") %>%
smtp(verbose)
Message-ID: <616d0583.1c69fb81.22f81.bf55@mx.google.com>
Date: Sun, 17 Oct 2021 22:26:27 -0700 (PDT)
X-Google-Original-Date: Mon, 18 Oct 2021 05:25:32 GMT
X-Mailer: {emayili}-0.6.5
MIME-Version: 1.0
In-Reply-To: <616d054d.1c69fb81.22f81.bf38@mx.google.com>
Subject: First reply
Notice that the In-Reply-To field contains the value of the Message-ID field from the original message. This message, in turn, has a Message-ID which can be used for subsequent responses. Note: The Message-ID from the response looks very similar to that from the original message, but if you look carefully you’ll see that it differs by a few characters.
Let’s send a response to this too.
msg %>%
inreplyto("<616d0583.1c69fb81.22f81.bf55@mx.google.com>") %>%
subject("Comment on first reply") %>%
smtp()
You can also use the references() function to populate the References field, which has essentially the same effect as the In-Reply-To field. How about another reply to the original message?
msg %>%
references("<616d054d.1c69fb81.22f81.bf38@mx.google.com>") %>%
subject("Second reply") %>%
smtp()
Message-ID: <616d0595.1c69fb81.22f81.bf60@mx.google.com>
Date: Sun, 17 Oct 2021 22:26:45 -0700 (PDT)
X-Google-Original-Date: Mon, 18 Oct 2021 05:25:32 GMT
X-Mailer: {emayili}-0.6.5
MIME-Version: 1.0
References: <616d054d.1c69fb81.22f81.bf38@mx.google.com>
Subject: Second reply
This is what the thread looks like in Thunderbird after sending a few more responses.
