Casual Developers Note

エンジニアやデザイナー向けの技術情報・英語学習情報・海外留学情報・海外旅行情報を提供中。世界を旅して人生を楽しもう。

  • ホーム
  • 技術 Tips & Tutorials
  • 技術塾
  • ライフハック
  • 海外留学
  • 英語学習
  • コラム
  • お問い合わせ
現在の場所:ホーム / アーカイブoutlook

2014年2月6日 By KD コメントを書く

[tips][Perl] OLEを使ってPerlからOutlookのメールを送信する方法

[tips][Perl] OLEを使ってPerlからOutlookのメールを送信する方法

WindowsにはOLEオートメーションというWindowsのアプリケーションにアクセスするインターフェースがあります。OLEを使えばOffice製品をすべてプログラムから操作することができるわけです。PerlのOLEモジュールは「Win32::OLE」と言います。

今回は、PerlのWin32::OLEを使って、Outlookメールを送信してみましょう。

以下が、コードです。

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;

use Encode qw/encode decode/;
my $enc = 'cp932';
sub d($) { decode($enc, shift) }
sub e($) { encode($enc, shift) }

use POSIX qw/strftime/;
use Win32::OLE::Const 'Microsoft Outlook';

# 宛先
my @to_addresses = ('hoge@fuga.com','hoge@fuga.com');
my @cc_addresses = ('hoge@fuga.com','hoge@fuga.com','hoge@fuga.com');
my @bcc_addresses = ('hoge@fuga.com');

# 今日の日付取得
my $today = strftime "%Y-%m-%d %H:%M:%S", localtime;

# Outlook起動
my $outlook;
my $is_opened;
eval {$outlook = Win32::OLE->GetActiveObject('Outlook.Application')};
die "Error : Outlook is not installed." if $@;
unless (defined $outlook) {
    $outlook = Win32::OLE->new('Outlook.Application') or die "Error : Could not get OLE object for Outlook.";
    $is_opened=0;
}else{
    $is_opened=1;
}

# メール送信
my $mail_item = $outlook->CreateItem(0);
$mail_item->{'Subject'} = e('['.$today.'] Greeting mail');
$mail_item->{'Body'} = e('Hello, how are you?');
$mail_item->{'To'} = e(join ';', @to_addresses);
$mail_item->{'Cc'} = e(join ';', @cc_addresses);
$mail_item->{'Bcc'} = e(join ';', @bcc_addresses);
$mail_item->Send();
$mail_item->Quit;

# Outlookが起動していた場合はあえて終了しない。
unless ($is_opened) {
    # Outlook終了
    $outlook->Quit;
}

「use Win32::OLE::Const ‘Microsoft Outlook’;」がOutlookのOLEを呼び出す宣言になります。Outlookが起動している場合は起動しているインスタンスを使い、起動していない場合は新しくインスタンスを作成しています。メールを送信後、Outlookが最初から起動していた場合はOutlookを終了させず、Outlookが起動していなかった場合は終了するようにしています。

定期タスクにして、定期的に自動メールを送信する時などに使えますよ。

<環境>
OS : Windows7
Office : 2010
Perl : 5.16.3

カテゴリ : 技術 Tips & Tutorials タグ : outlook, perl, tips, tumblr-imported, windows

ブログ更新情報や海外の関連情報などを配信する無料メルマガ

Sponsored Links

About Author

KD

世界を旅し日本を愛するエンジニア。大学でコンピュータサイエンスの楽しさを学び、日本の大手IT企業で働く中で、新しい技術やスケールするビジネスが北米にある事に気づく。世界に挑戦するための最大の壁が英語であったため、フィリピン留学およびカナダ留学を経て英語を上達させた。現在は日本在住でエンジニアとして働きつつ、次の挑戦に備えて世界の動向を注視している。挑戦に終わりはない。このブログでは、エンジニアやデザイナー向けの技術情報から、海外に留学したい人向けの留学情報、海外に興味がある人向けの海外旅行情報など、有益な情報を提供しています。

https://casualdevelopers.com/

最近の投稿

  • 2020年JS周辺のバックエンド寄りの注目技術!ネクストNodeJSの「Deno」と分散型パッケージレジストリの「Entropic」の紹介

    2020年JS周辺のバックエンド寄りの注目技術!ネクストNodeJSの「Deno」と分散型パッケージレジストリの「Entropic」の紹介

    2020年1月13日
  • 今さら聞けないJavaによる関数型プログラミング入門 ~ラムダ式、ストリーム、関数型インターフェース~

    今さら聞けないJavaによる関数型プログラミング入門 ~ラムダ式、ストリーム、関数型インターフェース~

    2019年11月4日
  • ReactのためのEslintおよびPrettierの設定方法 ~Airbnb JavaScript Style Guideの適用~

    ReactのためのEslintおよびPrettierの設定方法 ~Airbnb JavaScript Style Guideの適用~

    2019年10月30日
  • BashからZshに移行する方法(Mac編)

    BashからZshに移行する方法(Mac編)

    2019年10月21日
  • Create React Appを使わないでゼロからReactの開発環境を構築する方法(Webpack/Docker編)

    Create React Appを使わないでゼロからReactの開発環境を構築する方法(Webpack/Docker編)

    2019年9月30日

カテゴリ

  • 技術 Tips & Tutorials (100)
  • 技術塾 (6)
  • ライフハック (26)
  • 海外留学 (12)
  • 英語学習 (3)
  • コラム (6)

アーカイブ

最高の学習のために

人気記事ランキング

  • MySQLで「ERROR 2003 (HY000): Can't connect to MySQL server」と怒られた時の対処法
    MySQLで「ERROR 2003 (HY000): Can't connect to MySQL server」と怒られた時の対処法
  • Jupyter Notebookで「The kernel appears to have died. It will restart automatically.」というエラーが出た場合の原因と対処法
    Jupyter Notebookで「The kernel appears to have died. It will restart automatically.」というエラーが出た場合の原因と対処法
  • Expressで「Cannot set headers after they are sent to the client」と怒られた時の対処法
    Expressで「Cannot set headers after they are sent to the client」と怒られた時の対処法
  • 爆速でJenkinsをマスターしよう(GitHubアカウント統合編) ~ JenkinsのGitHub Organizationの設定方法 ~
    爆速でJenkinsをマスターしよう(GitHubアカウント統合編) ~ JenkinsのGitHub Organizationの設定方法 ~
  • SAKURAのメールボックスで独自ドメインのメールを設定し、Gmail経由で送受信する方法
    SAKURAのメールボックスで独自ドメインのメールを設定し、Gmail経由で送受信する方法
  • バンクーバー留学豆知識:バンクーバーのATMで日本の銀行のキャッシュカードを使ってお得にお金を引き出す方法
    バンクーバー留学豆知識:バンクーバーのATMで日本の銀行のキャッシュカードを使ってお得にお金を引き出す方法
  • [tips][perl] Perlで文字コードをいい感じに処理する方法
    [tips][perl] Perlで文字コードをいい感じに処理する方法
  • PythonでWebスクレイピング入門(Scrapy+Selenium編)
    PythonでWebスクレイピング入門(Scrapy+Selenium編)
  • Amazon EC2インスタンスにSSHできなくなった時の対処法
    Amazon EC2インスタンスにSSHできなくなった時の対処法
  • SpringBootのProfile毎にプロパティを使い分ける3つの方法
    SpringBootのProfile毎にプロパティを使い分ける3つの方法

Bitcoin寄付 / BTC Donation

Bitcoinを寄付しよう

BTC
Select Payment Method
Personal Info

Donation Total: BTC 0.0010

このブログの運営のためにBitcoinでの寄付を募集しています。お気持ち程度の寄付を頂けると管理者の励みになります。

Bitcoin寄付について知りたい方はこちらの記事へ

ビットコイン取引ならここ

  • ホーム
  • 技術 Tips & Tutorials
  • 技術塾
  • ライフハック
  • 海外留学
  • 英語学習
  • コラム
  • サイトマップ
  • タグ一覧
  • プライバシーポリシー
  • お問い合わせ

Copyright © 2023 KD - Casual Developers Notes