メールが送信されない

  1. 4 years ago

    コンソールアプリケーションからのメールが送信できません。
    デスクトップアプリケーションからは同じソースコードで問題なく送信できます。
    なぜコンソールアプリから送信できないのでしょうか?
    ソースコードは以下のとおりです。

    dim MailSocket As New SMTPSocket
    dim mail as emailMessage

    MailSocket = New SMTPSocket

    MailSocket.address = "smtp.nifty.com"
    MailSocket.port = 587
    MailSocket.username = "myName"
    MailSocket.password = "myPassword"

    mail = new emailMessage
    mail.fromAddress = "myName@nifty.com"
    mail.subject = "test"
    mail.addRecipient "myName@nifty.com"
    mail.bodyPlainText="test mail"

    MailSocket.messages.append mail
    MailSocket.sendMail

  2. 後の方にDoEvents()のループを追加してメールを送信するようになりました。

    dim MailSocket As New SMTPSocket
    dim mail as emailMessage
    dim startTick As Integer

    MailSocket = New SMTPSocket

    MailSocket.address = "smtp.nifty.com"
    MailSocket.port = 587
    MailSocket.username = "myName"
    MailSocket.password = "myPassword"

    mail = new emailMessage
    mail.fromAddress = "myName@nifty.com"
    mail.subject = "test"
    mail.addRecipient "myName@nifty.com"
    mail.bodyPlainText="test mail"

    MailSocket.messages.append mail
    MailSocket.sendMail

    startTick= Ticks
    do
    DoEvents()
    Loop Until (startTick+120)<Ticks

or Sign Up to reply!