So far I've got this
```perl

sub send_message_to_editor
{
    my ($self, %opts) = @_;
    
    # $self->c->lwp
    
    my $_url = $mail_service_base_url . "/send_bulk";

    my $from = $opts{from} or die q(Missing 'from' argument);
    my $to = $opts{to} or die q(Missing 'to' argument);
    my $subject = $opts{subject} or die q(Missing 'subject' argument);
    my $message = $opts{message} or die q(Missing 'message' argument);

    my $contact_url = $url_prefix .
        sprintf '/user/%s/contact', uri_escape_utf8($from->name);
    my @body = (
        'template_id' => 'editor-message',
        'to'          => _user_address($to),
        'from'        => $EMAIL_NOREPLY_ADDRESS,
        # 'lang'
        'message_id'  => _message_id('correspondence-%s-%s-%d', $correspondents[0]->id, $correspondents[1]->id, $time),
        'references'  => [_message_id('correspondence-%s-%s', $correspondents[0]->id, $correspondents[1]->id)],
        'in_reply_to' => [_message_id('correspondence-%s-%s', $correspondents[0]->id, $correspondents[1]->id)],
        'params'      => {
            'to_name' => $to -> name,
            'from_name' => $from -> name,
            'subject' => $subject,
            'message' => $message,
            'contact_url' => $contact_url
        }
    );
        # 'Subject'     => _encode_header($subject),
    
    if ($opts{reveal_address}) {
        push @body, 'reply_to', _user_address($from);
    } else {
        push @body, 'reply_to', $EMAIL_NOREPLY_ADDRESS;
    }

```