CdoMail.cls TestCode

CdoMailTest.bas

Option Explicit

Sub CdoMailTest()
    Dim mail As New CdoMail
    Call mail.Configure("oreore@mailsagi.com", _
                        "smtp.server.com:25", _
                        cdoBasic, "userName", "pass", _
                        False)
    
    Call mail.NewMail
    Call mail.SetAddress("obachan@mail.com")
    Call mail.SetMessage("至急乞う", _
                    "添付ファイルに記載の口座に１００万円振り込んで！")
    Call mail.AddAttachments("bankAccountList.7zip")
    Call mail.SendMail
End Sub

Sub CdoMailTestQuick()
    Dim mail As New CdoMail
    Call mail.Configure("ore.is@jibun.net", _
                        "smtp.server.com:25", _
                        cdoAnonymous)
    Call mail.QuickSendMail("x@mail.com", _
                        "現状報告", "ここをベースキャンプとする。")
End Sub