.Net Envoi message

Question

bonjour, j'utilise la classe Mail pour expédier des messages. hors en faisant des tests, je me suis aperçu qu'il faut que j'arrête mon programme pour que l'envoi soit effectif. y'a-t-il moyen de déclencher la synchronisation avant: voici le code: Option Explicit Off Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim corps As String corps = "message" sendmail("", "", "titre", corps, "", "smtp.free.fr", False) End Sub Public Function sendmail(ByVal Mfrom As String, ByVal Mto As String, ByVal Msubject As String, ByVal Mbody As String, ByVal Mcc As String, ByVal smtpsrv As String, ByVal ishtml As Boolean, Optional ByVal login As String "", Optional ByVal pass As String "", Optional ByVal attachedfile As String = "") As String Try Dim liste As New Net.Mail.MailAddressCollection For i = 1 To 3 liste.Add("dest@free.fr") Next attachfile = ("c:\img.bmp") Dim DotNetMail As New Net.Mail.MailMessage() DotNetMail.From = liste.Item(1) For i = 1 To 3 DotNetMail.To.Add("dest@free.fr") Next With DotNetMail .Subject = Msubject .Body = Mbody .IsBodyHtml = ishtml If attachedfile <> "" Then .Attachments.Add(New Net.Mail.Attachment(attachedfile)) End If End With Dim SmtpMail As Net.Mail.SmtpClient = New Net.Mail.SmtpClient(smtpsrv) If (login <> "" And pass <> "") Then SmtpMail.Credentials = New System.Net.NetworkCredential(login, pass) SmtpMail.DeliveryMethod = Net.Mail.SmtpDeliveryMethod.Network SmtpMail.Send(DotNetMail) SmtpMail = Nothing Return "Mail envoyé avec succés" Catch err As Exception MsgBox("Erreur: " + err.Message) Return "Erreur lors de l'envoie du message : " & err.Message End Try End Function End Class

cs_drahcir · Answer

Salut,

j'ai fait le même constat que toi et je n'ai pas trouvé pourquoi (j'ai sûrement pas cherché suffisamment)....

donc si tu trouve comment faire, je suis preneur!!!

<hr />
@+

.Net Envoi message

1 réponse

Votre réponse

Discussions similaires