[[20050926184123]]　『マクロでエクセル添付』（香織）　ページの最後に飛ぶ

『マクロでエクセル添付』（香織）

マクロを使用してoutlookメーラーを起動して、添付まで一括でできるコマンドボタンを作りたいのですが、可能ですか？可能であれば作り方を教えてください

 Excelで試せる環境がないので可能かどうかは？ですが、過去にAccessで作ったものを掲載してみます。
 参考にどうぞ。(もしかしたらExcelで動くかも？)
 尚、元々Outlookが立ち上がっていたら～等の考慮はしていなかったと思います。
 '**********************************************************************
 '*** 処理名称：メール送信処理
 '*** 処理内容：ファイルをメールに添付して送信
 '*** （補足）：参照設定にMicrosoft Outlook 1x.0 Object Libraryを追加しないと利用できません。
 '**********************************************************************
 Public Function sendMail(Optional sFile As String = "")

    '////////////////////////////////////////
    '/// 宣言部
    '////////////////////////////////////////
    Dim OutlookApp As Object        '*** Outlookオブジェクト
    Dim myMailitem As MailItem      '*** メールオブジェクト
    Dim myAtcments As Attachments   '*** 添付ファイルオブジェクト

    '////////////////////////////////////////
    '/// 処理部
    '////////////////////////////////////////
    Set OutlookApp = CreateObject("Outlook.Application")    '*** Outlookオブジェクト生成
    Set myMailitem = OutlookApp.CreateItem(olMailItem)      '*** メールオブジェクト生成
    myMailitem.To = "mailaddress@xxxx.co.jp"                '*** 送信先アドレスを設定
    If sFile <> "" Then
        Set myAtcments = myMailitem.Attachments             '*** 添付ファイルオブジェクト生成
        myAtcments.Add (sFile)                              '*** 添付ファイル追加
    End If
    '*** メール件名及び本文の設定
    myMailitem.Subject = "メールの件名"
    myMailitem.Body = "メールの本文"
    myMailitem.Send                                         '*** メール送信
    OutlookApp.Quit                                         '*** Outlookを終了
    If sFile <> "" Then
        Set myAtcments = Nothing                            '*** 添付ファイルオブジェクトを開放
    End If
    Set myMailitem = Nothing                                '*** メールオブジェクトを開放
    Set OutlookApp = Nothing                                '*** Outlookオブジェクトを開放

 End Function

 追記、当方レスポンスがそれほど早くないので、わかる方はフォローしていただけると助かります。
 (nak)

コメント返信：

[ 一覧(最新更新順) ]

[[20050926184123]] 『マクロでエクセル添付』（香織） ページの最後に飛ぶ

[[20050926184123]]　『マクロでエクセル添付』（香織）　ページの最後に飛ぶ