【VBA】 Outlookメールを作成して表示する

Outlookメールを作成して表示する関数です。

関数概要

• 関数名： FNCCreateOutlookMail
• 入力引数； P_IN_Subject ( String 型 ) : 件名を指定します。
• P_IN_TO ( String 型 ) : 宛先アドレスを指定します。複数存在する場合は、カンマ ( , ) で区切ります。
• P_IN_CC ( String 型 ) : CCアドレスを指定します。複数存在する場合は、カンマ ( , ) で区切ります。
• P_IN_BCC ( String 型 ) : BCCアドレスを指定します。複数存在する場合は、カンマ ( , ) で区切ります。
• P_IN_MailBody ( String 型 ) : メール本文を指定します。
• 出力引数： ありません。
• 返り値：リターンコードが返却されます。

実行例

• 準備中

ダウンロード

UsefulEdgeではよく使うVBA処理を共通クラスとして提供しています。

以下からダウンロードが可能です。

UEVBACommonClass.cls

使用方法

• 準備中

ソースコード

    '-----------------------------------------------------------------
    ' Outlookメールを作成する
    ' 添付ファイルなし。
    '-----------------------------------------------------------------
    Function FNCCreateOutlookMail(P_IN_Subject As String, P_IN_TO As String, P_IN_CC As String, P_IN_BCC As String, P_IN_MailBody As String) As Integer
    On Error GoTo ErrorHandler
        FNCCreateOutlookMail = Me.ReturnError
        Dim ObjOutlook As Outlook.Application
        Dim ObjMail As Outlook.MailItem
        Set ObjOutlook = New Outlook.Application
        Set ObjMail = ObjOutlook.CreateItem(olMailItem)
        ObjMail.To = P_IN_TO
        ObjMail.CC = P_IN_CC
        ObjMail.BCC = P_IN_BCC
        ObjMail.Subject = P_IN_Subject
        ObjMail.Body = P_IN_MailBody
        ObjMail.Display
        FNCCreateOutlookMail = Me.ReturnNomal
        Exit Function
    ErrorHandler:
        MsgBox Err.Number & ":" & Err.Description, vbCritical & vbOKOnly, "エラー"
        FNCCreateOutlookMail = Err.Number
        Exit Function
    End Function

ソースコード説明

• 準備中

ExcelVBAを実務で使い倒す技術 [ 高橋宣成 ]
価格：1944円（税込、送料無料) (2019/7/23時点)

[

楽天で購入

](https://hb.afl.rakuten.co.jp/hgc/156e5f8f.d5d194cd.156e5f90.9ce91fc7/?pc=https%3A%2F%2Fitem.rakuten.co.jp%2Fbook%2F14714310%2F%3Fscid%3Daf_pc_bbtn&m=http%3A%2F%2Fm.rakuten.co.jp%2Fbook%2Fi%2F18413544%2F%3Fscid%3Daf_pc_bbtn&link_type=picttext&ut=eyJwYWdlIjoiaXRlbSIsInR5cGUiOiJwaWN0dGV4dCIsInNpemUiOiIyNDB4MjQwIiwibmFtIjoxLCJuYW1wIjoicmlnaHQiLCJjb20iOjEsImNvbXAiOiJkb3duIiwicHJpY2UiOjEsImJvciI6MSwiY29sIjoxLCJiYnRuIjoxfQ==)