Mail::URLFor - Create deep links into mail clients
my $links = Mail::URLFor->new();
my $messageid = 'mail.abcdef.123456@example.com';
my $urls = $links->urls_for($messageid);
for my $client (keys %$urls) {
print "$client: $urls->{$client}\n";
};
# Output:
# Thunderlink: thunderlink://messageid=mail.abcdef.123456%40example.com
# OSX: message:%3Cmail.abcdef.123456@example.com%3E
# RFC2392: mid:mail.abcdef.123456@example.com
# Gmail: https://mail.google.com/mail/#search/rfc822msgid%3Amail.abcdef.123456%40example.com
There is an online demo of the functionality at https://corion.net/mail-urlfor.psgi .
Paste a valid message id into the input field and click on the appropriate link to open the email in that mail client if the mail exists in that mail client.
This module allows you to create (clickable) URLs to emails that will open in the respective (native) client or Gmail.
This is useful if you have a web application but still want to connect an object on the web page with an email in a local mail client.
# Only link to mails on Gmail
my $links = Mail::URLFor->new(
clients => [Mail::URLFor::Plugin::Gmail->new],
);
-
clients
Arrayref of the classes (or instances) of mail clients to render links for.
Defaults to all
::Plugin
classes.
my $url = $links->url_for( '1234.abc@example.com', 'Gmail' );
print "<a href="$url">See mail</a>"
Renders the URL using the moniker of the plugin.
Returns something that should mostly be treated as an opaque string.
Returns undef
, if the moniker is unknown.
Currently, the returned string is always percent-encoded already, but this may change in the future.
my $urls = $links->urls_for( '1234.abc@example.com' );
print $urls->{'Gmail'};
The public repository of this module is http://github.com/Corion/Mail::URLFor.
The public support forum of this module is https://perlmonks.org/.
Please report bugs in this module via the RT CPAN bug queue at https://rt.cpan.org/Public/Dist/Display.html?Name=Mail-URLFor or via mail to mail-urlfor-Bugs@rt.cpan.org.
Max Maischein corion@cpan.org
Copyright 2019 by Max Maischein corion@cpan.org
.
This module is released under the same terms as Perl itself.