🚀 go-pugleaf

Witam
Poniżej kod do wysyłki asynchronicznej:

Sub WyslijPoczte()

        Dim SerwerSMTP As New Net.Mail.SmtpClient("twoj_serwer_smtp", 25)
        Dim Mojadres As New Net.Mail.MailAddress("twojAdres_mailowy")
        Dim OdbiorcyAdres As New Net.Mail.MailAddress(txt_Do.Text)
        Dim Poczta As New Net.Mail.MailMessage(Mojadres, OdbiorcyAdres)
        Poczta.Subject = "temat"

        Poczta.Body = "tekst"
        Dim T As Net.Mail.Attachment
        T = New Net.Mail.Attachment(nazwa_pliku)
        Poczta.Attachments.Add(T)
        SerwerSMTP.Credentials = New 
System.Net.NetworkCredential("twojekonto", "hasło")

        Try
            Dim EE As Object
            EE = Poczta

            AddHandler SerwerSMTP.SendCompleted, AddressOf 
SmtpClient_OnCompleted
            SerwerSMTP.SendAsync(Poczta, EE)

        Catch ex As Exception
            MsgBox("Nie wysłano wiadomości z powodu błędu:" & Chr(10) & 
ex.Message)
        End Try

    End Sub
    Public Sub SmtpClient_OnCompleted(ByVal sender As Object, ByVal e As 
System.ComponentModel.AsyncCompletedEventArgs)
        If e.Cancelled = True Then
            MsgBox("Wiadomość została anulowana")
            Application.Exit()
        End If
        If IsNothing(e.Error) = False Then
            MsgBox("Wystąpił błąd przy wysyłaniu wiadomości")
            Application.Exit()
        Else
            MsgBox("Wiadomosć została wysłana")
            Application.Exit()

        End If
    End Sub