Отправка почты по SMTP на C#, FW ver.3.5

[musomoh]

"Люди добрые, помогите! Сами мы не местные"... Не местные в том смысле, что я не программист, но иногда приходится этим заниматься. Проблема такая: при анализе текстовых файлов, при обнаружении определённой комбинации символов надо автоматически послать письмо. Программа отправки сообщения выглядит так:

using System.Net;
using System.Net.Mail;

private void SendMyPost()
{
MailMessage = post_mess = new MailMessage();
post_mess.From = new MailAddress("адрес_отправителя");
post_mess.To.Add(new MailAddress("адрес_получателя");
post_mess.Subject = "тема_сообщения";
post_mess.Body = "текст_сообщения";

SmtpClient client = new SmtpClient("почтовый сервер");
client.Credentials = CredentialCach.DefaultNetworkCredentials;
try { client.Send(post_mess); }
catch (Exception e) { MessageBox.Show(e.ToString(), .......); }

// Для краткости:
private void button1_Click(object sender, EventArgs e)
{
SendMyPost();
}
}

Проблема: сообщения отправляются, хоть десять, но только после закрытия формы. Все остальные функции (запись в базу и т.д.) выполняются, как положено. Как сделать так, чтобы сообщения отправлялись без закрытия формы?

[musomoh]

using System.Net;
using System.Net.Mail;

private void SendMyPost()
{
MailMessage post_mess = new MailMessage();
post_mess.From = new MailAddress("адрес_отправителя");
post_mess.To.Add(new MailAddress("адрес_получателя");
post_mess.Subject = "тема_сообщения";
post_mess.Body = "текст_сообщения";

SmtpClient client = new SmtpClient("почтовый сервер");
client.Credentials = CredentialCach.DefaultNetworkCredentials;
try { client.Send(post_mess); }
catch (Exception e) { MessageBox.Show(e.ToString()); }
}

// Для краткости:
private void button1_Click(object sender, EventArgs e)
{
SendMyPost();
}

[OrdJONY]

Может быть попробовать отправлять методом SendAsync?

[musomoh]

Пробовал. Результат тот же.

[doober]

На Vb.net с программы отправляю так
Добавить в Референсы Мicrosoft CDO for Windows 2000
Работает нормально

Imports ADODB

Imports CDO

 Private Sub Отправка
Dim oMsg As CDO.Message = New CDO.Message
        Dim iConfg As CDO.Configuration
        Dim oFields As ADODB.Fields
        Dim oField As ADODB.Field
       
   
     
        Try
            iConfg = oMsg.Configuration
            oFields = iConfg.Fields

            oField = oFields("http://schemas.microsoft.com/cdo/configuration/sendusing")
            oField.Value = 2   ' CDO.CdoConfiguration.cdoSMTPServer 



            oMsg.Configuration = iConfg

            oMsg.TextBody = "текст тела письма" 

            oMsg.Subject = "Текст темы"
            oField = oFields("http://schemas.microsoft.com/cdo/configuration/smtpserver")
            oField.Value = "mail.rambler.ru"  ' имя почтового сервера 

            oField = oFields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")
            oField.Value = "1" ' без аутентификации  0

            oField = oFields("http://schemas.microsoft.com/cdo/configuration/sendusername")
            oField.Value = "Логин"

            oField = oFields("http://schemas.microsoft.com/cdo/configuration/sendpassword")
            oField.Value = "Пароль"



            oMsg.From = "Логин@rambler.ru"

            oMsg.To = "Получатель@rambler.ru,Получатель1@rambler.ru"   '  Сколько угодно,только не себе



            oFields.Update()
            'Добавляем вложенный  файл 

             oMsg.AddAttachment("С:\Файл.dat")



            oMsg.Send()

        Catch ex As Exception
            If Err.Number = -2147220973 Then
                MsgBox("Отсутствует связь с интернетом", MsgBoxStyle.Critical)
            End If
            If Err.Number = -2147220975 Then
                MsgBox("SMTP сервер ответил отказом", MsgBoxStyle.Critical)
            End If
            MsgBox("Письмо не отправлено адресату", MsgBoxSt 

    Exit Sub


        End Try
 End Sub

[musomoh]

Спасибо всем, кто откликнулся. Код, оказывается, работает, но отправка сообщения происходит примерно через минуту. Почему - не понятно. О чём прога с сервером так долго договаривается? При закрытии окна, думаю, вызывается деструктор и все "отложенные" задачи выполняютя форсированно. Чтобы изменять текст сообщения, надо модифицировать код следующим образом:

using System.Net;
using System.Net.Mail;

        public static void DoSendMail(string smtpServer, string from, string to, string subject, string body)
        {
            
/*MessageBox.Show("Сервер: " + smtpServer + "\r\n" + 
                            "От: " + from + "\r\n" +
                            "Для: " + to + "\r\n" +
                            "Тема: " + subject + "\r\n" +
                            "Сообщение:" + body); */

            MailMessage post_mess = new MailMessage();
            post_mess.From = new MailAddress(from);
            post_mess.To.Add(new MailAddress(to));
            post_mess.Subject = subject;
            post_mess.Body = body;

            SmtpClient client = new SmtpClient(smtpServer);
            // Работает одинаково и без нижеследующего и с ним
            //client.DeliveryMethod = SmtpDeliveryMethod.Network;
            //client.Credentials = CredentialCache.DefaultNetworkCredentials;
            try
            {
                client.Send(post_mess);
            }
            catch (Exception e)
            {
                MessageBox.Show("Ошибка! " + e.ToString());
            }

        }

private void button1_Click(object sender, EventArgs e)
        {
            smtpServer = "имя_сервера";
            from = "адрес_отправителя";
            to = "адрес_получателя";
            subject = textBox1.Text;
            body = textBox2.Text;
            
            Post myPost = new Post();
            Post.DoSendMail(smtpServer, from, to, subject, body);
            
        }

Как любил говорить Волк Зайцу: "Давай не будем торопиться."

[musomoh]

Опять, блин, поторопился...
DoSendMail, естественно, является методом класса Post

public class Post
{

}