【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時点)

返信を残す

メールアドレスが公開されることはありません。