SMTPサーバない時、テスト環境メール送信サンプル

  '''

    ''' テスト環境でメール保存

    ''' 参照サイト：http://keicode.com/dotnet/how-to-test-smtp.php

    '''

    Public Sub SendEmail()

        Dim mailFrom As String = "fromMailAddress@gmail.com"

        '送信先アドレス

        Dim toAddr As String = "toMailAddress@gmail.com"

        Dim subject As String = "メール件名"

        Dim body As String = "メール本文"

        Try

            Dim msg As MailMessage = New MailMessage(mailFrom, toAddr)

            'タイトル名

            msg.SubjectEncoding = System.Text.Encoding.GetEncoding("iso-2022-jp") '文字コードを設定 

            msg.Subject = subject

            '本文

            msg.BodyEncoding = System.Text.Encoding.GetEncoding("iso-2022-jp") '文字コードを設定

            msg.Body = body

            Dim sc As New System.Net.Mail.SmtpClient()

            'SMTPサーバーなどを設定する

            sc.Host = "smtp.test.co.jp" ''テスト環境

            sc.Port = 25

            If sc.Host = "smtp.test.co.jp" Then

                ''テスト環境にemlメール保存

                sc.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.SpecifiedPickupDirectory

                sc.PickupDirectoryLocation = "E:\temp"

            Else

                ''本番環境からメール送信

                sc.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network

            End If

            'メッセージを送信する

            sc.Send(msg)

            '後始末

            msg.Dispose()

            '後始末（.NET Framework 4.0以降）

            sc.Dispose()

        Catch ex As Exception

            ''エラー取得

        End Try

    End Sub

''----------------------------

''OUTPUT

''E:\tempフォルダを確認