Attribute VB_Name = "ModuleTest"
Option Explicit

Public Sub TestSend()

    SendWithOutlook _
        "sender@example.com", _
        "recipient@example.com", _
        "テストメール", _
        "添付ファイル付きメールです。", _
        "C:\Test\sample.pdf"

End Sub

Public Sub TestGraphSend()

    SendWithGraph _
        "sender@example.com", _
        "recipient@example.com", _
        "テストメール", _
        "Graphから送信したメールです。", _
        "C:\Test\sample.pdf"

End Sub